19-10-21, 01:07 AM
(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.
ربي زدني علما