how can I reference this bitmap?????????

  • Thread starter Thread starter Marc
  • Start date Start date
M

Marc

Guys the below code is not working ( i know i am trying to reference a
function!) .

Im a beginner so does anyone know how i could reference the bitmap?



Private Sub MarkVORToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MarkVORToolStripMenuItem.Click
If ContextMenuStrip1.SourceControl.BackgroundImage Is
DrawCross() Then
msgbox("test")
End Sub

Friend Function DrawCross() As Bitmap
Dim sampleBitmap As New Bitmap(32, 32)
Dim g As Graphics = Graphics.FromImage(sampleBitmap)
Dim p As New Pen(ProfessionalColors.ButtonPressedBorder)
p.Color = Color.Red
Try
p.Width = 2
g.DrawLine(p, -35, 65, 80, -45)
g.DrawLine(p, 200, 200, 0, 0)
Finally
p.Dispose()
End Try
Return sampleBitmap
End Function
 
Marc said:
Guys the below code is not working ( i know i am trying to reference a
function!) .

Im a beginner so does anyone know how i could reference the bitmap?
Click to expand...

\\\
Private m_Cross As Bitmap

Public Sub New()
m_Cross = DrawCross()
End Sub
Private Sub MarkVORToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MarkVORToolStripMenuItem.Click
If ContextMenuStrip1.SourceControl.BackgroundImage Is
DrawCross() Then
Click to expand...

Replace the line above with this:

\\\
If ContextMenuStrip1.SourceControl.BackgroundImage Is m_Cross Then
...
End If
///
End Sub

Friend Function DrawCross() As Bitmap
Dim sampleBitmap As New Bitmap(32, 32)
[...]
Click to expand...
 
Thanks Herfried....

your a star!

Marc said:
Guys the below code is not working ( i know i am trying to reference a
function!) .

Im a beginner so does anyone know how i could reference the bitmap?
Click to expand...

\\\
Private m_Cross As Bitmap

Public Sub New()
m_Cross = DrawCross()
End Sub
Private Sub MarkVORToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MarkVORToolStripMenuItem.Click
If ContextMenuStrip1.SourceControl.BackgroundImage Is
DrawCross() Then
Click to expand...

Replace the line above with this:

\\\
If ContextMenuStrip1.SourceControl.BackgroundImage Is m_Cross Then
...
End If
///
End Sub

Friend Function DrawCross() As Bitmap
Dim sampleBitmap As New Bitmap(32, 32)
[...]
Click to expand...
Click to expand...
 
Back
Top