Easy DrawImage question [RESOLVED]

He everyone,

I'm using this to draw an pion on my map:

VB Code:

Dim gr As Graphics = pctBox.CreateGraphics
gr.DrawImage(New Bitmap("c:\pion.gif"), iX, iY)

But I want to use something like

VB Code:

Dim gr As Graphics = pctBox.CreateGraphics
gr.DrawImage(New Bitmap(sString), iX, iY)

Where sString contains something like c:\pion.gif

I tried

VB Code:

Dim gr As Graphics = pctBox.CreateGraphics
gr.DrawImage(New Bitmap("sString"), iX, iY)

With no luck!

Thanks in advance

Grtz,

Bloged

Like this !!

VB Code:

Sub DrawImg(ByVal pth As String)
        Dim g As Graphics = Me.PictureBox1.CreateGraphics
        g.DrawImage(New Bitmap(pth), 0, 0)
    End Sub
 
 
'Then 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click
        DrawImg("c:\test.jpg")
    End Sub

Something like that! This is the source as I'm wanting it (or something similair):

VB Code:

Shared cooCoordinates(100) As Coordinate
 
'(Re)draws all the pions on the map
Public Shared Function DrawAllPions(ByRef pioPion() As Pion, ByVal pctBox As PictureBox)
    Dim iLoop, iX, iY As Integer
 
    For iLoop = 0 To 39
        iX = Coordinate2Pixel(pioPion(iLoop).GetCoordinateX())
        iY = Coordinate2Pixel(pioPion(iLoop).GetCoordinateY())
 
        Dim gr As Graphics = pctBox.CreateGraphics
        gr.DrawImage(New Bitmap(pioPion(iLoop).PicturePath), iX, iY)
    Next
End Function

VB Code:

Public Class Pion
    'Returns the path with the picture for this image
    Public ReadOnly Property PicturePath() As String
        Get
            Return AppDomain.CurrentDomain.BaseDirectory & "images\pion.gif"
        End Get
    End Property    'PicturePath
End Class

Grtz,

Bloged

I don't understand why you're doing it that way !:confused: . Are you getting any error anyway ??

This is only for testing

VB Code:

Public Class Pion
    'Returns the path with the picture for this image
    Public ReadOnly Property PicturePath() As String
        Get
            Return AppDomain.CurrentDomain.BaseDirectory & "images\pion.gif"
        End Get
    End Property    'PicturePath
End Class

and should become something like

VB Code:

Public Class Pion
    Dim intRank as Integer
 
    'Returns the path with the picture for this image
    Public ReadOnly Property PicturePath() As String
        Get
            Return AppDomain.CurrentDomain.BaseDirectory & "images\pion" & intRank & ".gif"
        End Get
    End Property    'PicturePath
End Class

Grtz,

Bloged

Solved it myself... Made an type instead of pion.gif I called the file poin.gif:blush: :bigyello:

Thanks for the help though!

Grtz,

Bloged

Quote:

---

Originally posted by Bloged
Solved it myself... Made an type instead of pion.gif I called the file poin.gif:blush: :bigyello:

Thanks for the help though!
Grtz,
Bloged

---

lol , pretty simple , I thought you're doing something fancy . :D