用API画多边形

用API画多边形

Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long

Private Sub Command1_Click()
    Dim Point(0 To 10) As POINTAPI
       
    Point(0).x = 0: Point(0).y = 100
    Point(1).x = 200: Point(1).y = 100
    Point(2).x = 66: Point(2).y = 200
    Point(3).x = 100: Point(3).y = 0
    Point(4).x = 133: Point(4).y = 200
   
    Polygon Me.hdc, Point(0), 5
End Sub

Private Sub Form_Load()

End Sub