(12-10-21, 05:57 PM)Miloud كتب :

مثال بسيط في كيفية الرسم في الفيجوال.نت

PHP كود :

'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.