1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
Sub drawArrow(CtrlImg As Image)
Dim o as ClGdiPlus
'Création de nouvelles images
Set o = New ClGdiPlus
'Chargement de l'image PNG de fond
o.LoadFile CheminImage.png
'Taille de l'image chargée
oTailleX = o.ImageWidth
oTailleY = o.ImageHeight
'Centre X de l'image chargée
oCentreX = oTailleX / 2
'Centre Y de l'image chargée
oCentreY = oTailleY / 2
'Coordonnées Y de la base du triangle de la flèche
oBase_TriangleY = oTailleY - 280
'Dessin de la flèche
o.DrawPolygon Array(oCentreX, oTailleY - 56, _
28, oBase_TriangleY, oCentreX - 28, oBase_TriangleY, _
oCentreX - 28, 16, oCentreX + 28, 16, _
oCentreX + 28, oBase_TriangleY, oTailleX - 28, oBase_TriangleY), vbBlack, vbBlack
'On redessine le contrôle image
o.RepaintNoFormRepaint CtrlImg
Set CtrlImg = Nothing
End Sub |
Partager