تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] رسم سهم في vb. Net
#1
مثال بسيط في كيفية الرسم في الفيجوال.نت
PHP كود :
'1) solution
'
on utilise un pen dont on specifie l extremite EndCap

Dim penFl 
As New Pen(Color.Black2)
penFl.EndCap Drawing2D.LineCap.ArrowAnchor 

'Mais la fleche est de la taille de la ligne, toute petite

'
2Solution 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(penFlx0y0x1y1)

'où gr as graphics
'
x0,y0,x1,y1 des entiers correspondant aux points extrèmes de la ligne
الرد
تم الشكر بواسطة:
#2
(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.Black2)
penFl.EndCap Drawing2D.LineCap.ArrowAnchor 

'Mais la fleche est de la taille de la ligne, toute petite

'
2Solution 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(penFlx0y0x1y1)

'où gr as graphics
'
x0,y0,x1,y1 des entiers correspondant aux points extrèmes de la ligne
محاولة فاشلة


    Heart ربي زدني علما  Heart

الرد
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم