複数の多角形の描画(VB)

説明:

PolyPolygonを利用して、三角形、四角形、五角形を描画する。

キーワード:

PolyPolygon

サンプルコード:

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
        For I = 0 To PointNum - 1
            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
        
    PolyPolygon Picture1.hDC, Points(0), Counts(0), PointNumMax - 2

End Sub

(original text:1999/03/04 更新)

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