星型のリージョンを描画(VB)

説明：

キーワード：

サンプルコード：

' 星の描画
Private Sub Command1_Click()

    Const POINT_NUM As Long = 5
    Const PI As Single = 3.14159
    
    Dim p(POINT_NUM - 1) As POINT
    Dim hRgn As Long
    Dim I As Long
    
    '星型リージョン作成用データ初期化
    For I = 0 To POINT_NUM - 1
        p(I).X = 100 * Cos(2 * PI * I * 2 / POINT_NUM) + 100
        p(I).Y = 100 * Sin(2 * PI * I * 2 / POINT_NUM) + 100
    Next
    
    'リージョンの作成
    hRgn = CreatePolygonRgn(p(0), POINT_NUM, ALTERNATE)
    
    'リージョンの描画
    FillRgn Picture1.hDC, hRgn, GetStockObject(WHITE_BRUSH)

    'リージョンの破棄
    DeleteObject hRgn
    
End Sub