PolyLine 折れ線の描画

VBの宣言:

Declare Function Polyline Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByRef Points As POINT, _
    ByVal PointNum As Long) As Long

説明:

Pointsで指定した座標群を直線で結び、hDCで指定したデバイスコンテキストへ描画する。

現在位置は更新されない。

引数の意味は以下の通り。
hDC 描画先のデバイスコンテキストのハンドル。
Points 直線で結ぶ点の座標の配列。
PointNum Pointsで指定した配列の要素の数。

戻り値は、関数の実行に成功したか否かを表す真偽値である。

VBのサンプル:

Polylineを利用して星型マークを描画する。
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


(original text:1999/02/23 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。