PolyPolylineの例(VB)

説明:

PolyPolylineを利用して、一度に三角形、四角形、五角形の三つの図形をピクチャボックスに描画する。

キーワード:

PolyPolyline

サンプルコード:

Private Sub Command1_Click()
    Const PI As Single = 3.14159
    Const PointNumMax As Long = 5
    
    Dim Points(100) As POINT
    Dim Counts(100) As Long
    Dim X As Long
    Dim Y As Long
    Dim Cnt As Long
    Dim PointNum As Long
    
    Dim I As Long
    
    For PointNum = 3 To PointNumMax
        Counts(PointNum - 3) = PointNum + 1
        For I = 0 To PointNum
            Points(Cnt).X = Cos(2 * PI * I / PointNum) * 50 + 50 + 100 * (PointNum - 3)
            Points(Cnt).Y = Sin(2 * PI * I / PointNum) * 50 + 50
            Cnt = Cnt + 1
        Next
    Next
        
    PolyPolyline Picture1.hDC, Points(0), Counts(0), PointNumMax - 2
End Sub

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

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