DrawImage question [RESOLVED]

[Bloged]

Hi Everybody,

I have an form (frmMain) with an picturebox (pctMap) on wich I draw an image (pctPion.Image). I'm using this to draw the Pion on the Map:

Dim gr As Graphics = pctMap.CreateGraphics
gr.DrawImage(pctPion.Image, 42, 42)

But this can only be done in the frmMain code... I've got an class Map wich should do this... How can this be solved? Is it an design error by me !

Extra question: instead of pctPion.Image i would like to use an filename is this possible cause when I try that I get an error?!

Thnx in advance,

Bloged

[Pirate]

1-I don't quite get what you mean !

2-It's working . What does the error say ?

Me.PictureBox1.Image = New Bitmap("c:\test.jpg")

[Bloged]

Dim gr As Graphics = pctMap.CreateGraphics
gr.DrawImage(pctPion.Image, 42, 42)

This is what I use to draw an image over an image... pctPion.Image over the image of pctMap... now I want to use something like:

gr.DrawImage(c:\test.gif, 42 ,42)

But that won't work...

Also, more important, now this function is in the frmMain code (frmMain also holds the pctMap & pctPion) but I want this function in the Map class so simple said it would look something like this:

Dim gr As Graphics = frmMain.pctMap.CreateGraphics
gr.DrawImage(frmMain.pctPion.Image, 42, 42)

But that doesn't work!

Anyone who knows the answers (and gets what I'm trying to say)

Thnx in advance

Bloged

[Pirate]

Do you have any problems using this way :

gr.DrawImage(New Bitmap("c:\test.gif"), 42, 42)

I still don't know what you mean by "map class" ? Do you mean referencing mainform in your class to use it inside the function?

[Bloged]

This works:

gr.DrawImage(New Bitmap("c:\test.gif"), 42, 42)

By Map class I mean I've got an class called Map:

Public Class Map
End Class

This class is for my form containing the pctMap on wich I want to draw the test.gif

Public Class frmMain
End Class

How can I do that?

Hope this clarifies it more!

Grtz,

Bloged

[PT Exorcist]

You'll have to pass as argument or your picture or its graphic's pbject

[Bloged]

Originally posted by PT Exorcist
You'll have to pass as argument or your picture or its graphic's pbject

Could you explain with some sample code? I'm pretty new to VB .Net

Grtz,

Bloged

[Pirate]

Public Class mytestclass
 
    Public Shared Sub DrawingSub(ByVal frm As Form, ByVal picBox As PictureBox)
        Dim gr As Graphics = frm.CreateGraphics
        gr.DrawImage(picBox.Image, 42, 42)
    End Sub
End Class
 
 
 
'then you just call it from your main form as this : 
mytestclass.DrawingSub(Form1, PictureBox1)

[Bloged]

Ok that seems to be it now I've got to test it!

But I get:
'frmMain' is a type and cannot be used as an expression

Sorry real newbie in VB.Net
Edit:
I solved it myself this seems to work:

Public Shared Sub DrawPion(ByVal pctBox As PictureBox)
   Dim gr As Graphics = pctBox.CreateGraphics
   gr.DrawImage(New Bitmap("c:\pion.gif"), 42, 42)
End Sub

Called with:

Map.DrawPion(pctMap)

Grtz,

Bloged

[Pirate]

Originally posted by Bloged
Ok that seems to be it now I've got to test it!

But I get:
'frmMain' is a type and cannot be used as an expression

Sorry real newbie in VB.Net

I don't understand why you got that error !!! I used it that and working ok