Bonjour,
Regarde ce que ferait ceci :
Private Const ALTERNATE = 1
Private Const WINDING = 2
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SetPolyFillMode Lib "gdi32" (ByVal hdc As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function GetPolyFillMode Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Sub Form_Activate()
Me.AutoRedraw = True
Me.ScaleMode = vbPixels
Dim MP(1 To 3) As POINTAPI, Cnt As Long
MP(1).x = 3
MP(1).y = 10
MP(2).x = 200
MP(2).y = 50
MP(3).x = 10
MP(3).y = 60
Me.FillStyle = vbSolid
Me.FillColor = RGB(255, 0, 0)
If GetPolyFillMode(Me.hdc) <> WINDING Then SetPolyFillMode Me.hdc, WINDING
Polygon Me.hdc, MP(1), 3
End Sub
(j'espère que tu aimes le rouge, sinon joue sur les composantes de RGB).
Et tu devrais dans la foulée t'intéresser aux autres propriétés du conteneur sur lequel tu dessines (Form ou PictureBox). fait varier, par exemple, les valeurs de la propriétés DrawMode...
Vu ?
Intéresse-toi maintenant à d'autres propriétés de ce conteneur. C'est ainsi, que tu apprendras.
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.