|
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Dim Pts(0 To 6) As POINTAPI
Private Sub Form_Paint()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Pts(0).X = 10: Pts(0).Y = 10
Pts(1).X = 10: Pts(1).Y = 100
Pts(2).X = 10: Pts(2).Y = 50
Pts(3).X = 50: Pts(3).Y = 10
Pts(4).X = 10: Pts(4).Y = 50
Pts(5).X = 50: Pts(5).Y = 100
Polyline Me.hdc, Pts(0), 6
Pts(0).X = 60: Pts(0).Y = 100
Pts(1).X = 60: Pts(1).Y = 10
Pts(2).X = 100: Pts(2).Y = 10
Pts(3).X = 100: Pts(3).Y = 50
Pts(4).X = 60: Pts(4).Y = 50
Polyline Me.hdc, Pts(0), 5
Pts(0).X = 110: Pts(0).Y = 10
Pts(1).X = 150: Pts(1).Y = 10
Pts(2).X = 160: Pts(2).Y = 20
Pts(3).X = 160: Pts(3).Y = 90
Pts(4).X = 150: Pts(4).Y = 100
Pts(5).X = 110: Pts(5).Y = 100
Pts(6).X = 110: Pts(6).Y = 10
Polyline Me.hdc, Pts(0), 7
End Sub
|
|