VB.Net Dessiner plusieurs croix dans un picturebox

cs_JeffC1977 Messages postés 928 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 23 septembre 2023 - 11 sept. 2007 à 18:43
cs_JeffC1977 Messages postés 928 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 23 septembre 2023 - 11 sept. 2007 à 20:26
Salut...

J'utilise un tableau contenant des points avec leurs coordonnées et je veux faire dessiner chaque point par une croix dans un picturebox.

Je réussi à faire dessiner qu'une seul croix et dans mon exemple que j'utilise j'ai 5 points, donc je devrais voir 5 croix...

Pouvez-vous me dire qu'est ce qui ne fonctuionne pas dans mon code... ????

Merci d'avance

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 MyPen
As
New Pen(Color.Black, 1)

Dim i
As
Integer
Dim CoordX
As
Single, CoordY
As
SingleobjGraphics = Graphics.FromImage(objBitMap)
objGraphics.Clear(Color.White)

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.DrawLine(MyPen, CoordX, CoordY - 2, CoordX, CoordY + 2) 'Dessiner la premiere ligne
objGraphics.DrawLine(MyPen, CoordX - 2, CoordY, CoordX + 2, CoordY)'Dessiner la deuxième ligne pour former une croix

Next i

Me.PictureBox1.Image = objBitMap
objGraphics.Dispose()
objGraphics =
Nothing

End
Sub

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
11 sept. 2007 à 20:26
Re...

Est ce que objGraphics.DrawLine(MyPen, CoordX, CoordY - 2, CoordX, CoordY + 2)

Renvoi des Integer ou des Single... ???? Je suis en compact Framework

CoordX et CoordY as Single
J'ai l'impression que DrawLine renvoi des Intger???

J'ai besoin d'un confirmation.....  Sur MSDN, c'est un peu confu, pour moi...

merci de votre aide

P.S. si DrawLine renvoi des integer, c'est pour cela que j'ai l'impression que j'ai qu'une seule croix mais elles sont une par dessus l'autre mais si je mets en single, les croix ne devraient pas être une par dessus l'autre...
0
Rejoignez-nous