Declare Function Polyline Lib "gdi32" ( _ ByVal hDC As Long, _ ByRef Points As POINT, _ ByVal PointNum As Long) As Long
現在位置は更新されない。
引数の意味は以下の通り。
hDC | 描画先のデバイスコンテキストのハンドル。 |
Points | 直線で結ぶ点の座標の配列。 |
PointNum | Pointsで指定した配列の要素の数。 |
戻り値は、関数の実行に成功したか否かを表す真偽値である。
Private Sub Command1_Click() Const PI As Single = 3.14159 Const PointNum As Long = 5 Dim I As Long Dim Points(PointNum) As POINT For I = 0 To PointNum Points(I).X = Cos(2 * PI * I * 2 / PointNum) * 100 + 100 Points(I).Y = Sin(2 * PI * I * 2 / PointNum) * 100 + 100 Next Polyline Picture1.hDC, Points(0), PointNum + 1 End Sub