Dessiner une ligne dont l'extémité est une flèche

Commenter

Contenu du snippet

Voilà un petit bout de code qui permet de dessiner une ligne dont l'extémité est une flèche

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (chrisisis)