VB.Net PictureBox
Résolu
cs_JeffC1977
Messages postés
928
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2023
-
6 sept. 2007 à 18:41
cs_JeffC1977 Messages postés 928 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 23 septembre 2023 - 6 sept. 2007 à 21:45
cs_JeffC1977 Messages postés 928 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 23 septembre 2023 - 6 sept. 2007 à 21:45
1 réponse
cs_JeffC1977
Messages postés
928
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2023
4
6 sept. 2007 à 21:45
6 sept. 2007 à 21:45
J'ai trouvé..
Private
Sub BtnCercle_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles cmdDessin.Click
Dim objBitMap
As
New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim objGraphics
As Graphics
Dim MonRectable
As Rectangle
Dim MaBrush
As Brush
Dim i
As
Integer
Dim CoordX
As
Double, CoordY
As
Double
For i = 0
To UBound(Tableau)LigneSplit = Tableau(i).Split(Separateur)
CoordX = ((Convert.ToDouble(LigneSplit(2)) + 5000) / 1000)
CoordY = ((Convert.ToDouble(LigneSplit(1)) + 5000) / 1000)
objGraphics = Graphics.FromImage(objBitMap)
MonRectable New Rectangle(CoordX, CoordY.ToString, 1, 1)MaBrush
New SolidBrush(Color.Blue)
If i = 0
Then objGraphics.Clear(Color.White)objGraphics.FillEllipse(MaBrush, MonRectable)
Me.PictureBox1.Image = objBitMapobjGraphics.Dispose()
objGraphics =
Nothing
Next i
End
Sub
Private
Sub BtnCercle_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles cmdDessin.Click
Dim objBitMap
As
New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim objGraphics
As Graphics
Dim MonRectable
As Rectangle
Dim MaBrush
As Brush
Dim i
As
Integer
Dim CoordX
As
Double, CoordY
As
Double
For i = 0
To UBound(Tableau)LigneSplit = Tableau(i).Split(Separateur)
CoordX = ((Convert.ToDouble(LigneSplit(2)) + 5000) / 1000)
CoordY = ((Convert.ToDouble(LigneSplit(1)) + 5000) / 1000)
objGraphics = Graphics.FromImage(objBitMap)
MonRectable New Rectangle(CoordX, CoordY.ToString, 1, 1)MaBrush
New SolidBrush(Color.Blue)
If i = 0
Then objGraphics.Clear(Color.White)objGraphics.FillEllipse(MaBrush, MonRectable)
Me.PictureBox1.Image = objBitMapobjGraphics.Dispose()
objGraphics =
Nothing
Next i
End
Sub
