chrisisis
Messages postés32Date d'inscriptionmercredi 14 avril 2004StatutMembreDernière intervention 2 novembre 2004
-
14 avril 2004 à 17:05
chrisisis
Messages postés32Date d'inscriptionmercredi 14 avril 2004StatutMembreDernière intervention 2 novembre 2004
-
15 avril 2004 à 09:13
Bonjour,
C'est une info et non une question, mais je ne sais pas où la mettre
Voilà un petit bout de code qui permet de dessiner une ligne dont l'extémité est une flèche :
1) solution
on utilise un pen dont on specifie l extremite EndCap
Dim penFl As New Pen(Color.Black, 2)
penFl.EndCap = Drawing2D.LineCap.ArrowAnchor
Mais la fleche est de la taille de la ligne, toute petite
2) Solution Fleche de taille variable
On cree une fleche de la largeur et hauteur que l on veut avec AdjustableArrowCap
Dim penFl As New Pen(Color.Black, 2)
Dim aArrow As New Drawing2D.AdjustableArrowCap(5, 5)
penFl.CustomEndCap = aArrow
Dans les 2 cas reste à dessiner votre ligne :
gr.DrawLine(penFl, x0, y0, x1, y1)
où gr as graphics
x0,y0,x1,y1 des entiers correspondant aux points extrèmes de la ligne.