polygon.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "传递数组的范例程序"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Polygon"
      Height          =   615
      Left            =   2760
      TabIndex        =   0
      Top             =   2280
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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