Comment dessiner un polygone plein

Question

Comment faire un algorithme du genre:

Public Sub DrawPoly(nbr,x1,y1,x2,x2,...,rgb)

nbr              :  le nombre de sommets
x1,y1,x2,y2...   :  les coordonnées des sommets
rgb              :  la couleur en RGB

int19h · Answer

Tu peux utiliser :

Private Type PointApi
    x As Long
    y As Long
End Type

Dim pts(100) As PointApi
Dim numpoints(10)

Private Declare Function PolyPolygon Lib "gdi32.dll" (ByVal hdc As Long, lpPoint As PointApi, lpPolyCounts As Long, ByVal nCount As Long) As Long

Private Sub Form_Load()

Form1.AutoRedraw = True
Form1.ScaleMode = 3  ' pixel
pts(0).x 20: pts(0).y 10pts(1).x 200: pts(1).y 10pts(2).x 200: pts(2).y 190pts(3).x 20: pts(3).y 190
numpoints(0) = 4

' Dessin
Form1.ForeColor = RGB(255, 0, 0)  ' Couleur des Bords
Form1.FillColor = RGB(0, 255, 0)  ' Couleur de remplissage
' 0 : Remplie
' 1 : Vide
Form1.FillStyle = 0
PolyPolygon Me.hdc, pts(0), numpoints(0), 1

End Sub

a+

| - BLAFARD - | · Answer

merci

c sympa d'aider 
les pauves kums de 15 ans ki sèchent pour coder en débutantsMERCI

Comment dessiner un polygone plein

2 réponses

Discussions similaires