Easy DrawImage question [RESOLVED]

[Bloged]

He everyone,

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

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

But I want to use something like

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

Where sString contains something like c:\pion.gif

I tried

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

With no luck!

Thanks in advance

Grtz,

Bloged

[Pirate]

Like this !!

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

[Bloged]

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

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

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

[Pirate]

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

[Bloged]

This is only for testing

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

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

[Bloged]

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

Thanks for the help though!

Grtz,

Bloged

[Pirate]

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

Thanks for the help though!
Grtz,
Bloged

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