複数の図形からなるリージョンを描画(VB)

説明：

キーワード：

サンプルコード：

'複数の図形からなるリージョンの描画
Private Sub Command1_Click()

    Const PI As Single = 3.14159

    Dim p(100) As POINT
    Dim c(2) As Long
    Dim hRgn As Long
    Dim I As Long
    Dim M As Long
    Dim N As Long

	'リージョン作成用データ描画
    I = 0
    For N = 5 To 9 Step 2
        For M = 0 To N - 1
            p(I).X = 100 * Cos(2 * PI * M * 2 / N) + 100 + (N - 5) / 2 * 100
            p(I).Y = 100 * Sin(2 * PI * M * 2 / N) + 100
            I = I + 1
        Next
    Next

    c(0) = 5
    c(1) = 7
    c(2) = 9

    'リージョンの作成
    hRgn = CreatePolyPolygonRgn(p(0), c(0), 3, ALTERNATE)
    
    'リージョンの描画
    FillRgn Picture1.hDC, hRgn, GetStockObject(WHITE_BRUSH)

    'リージョンの破棄
    DeleteObject hRgn

End Sub