AllApi.net

[an error occurred while processing this directive]
 
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


 
Copyright © 1998-2000, The KPD-Team.
Send mail to KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/