PaintRgnによるリージョンの描画(VB)

説明：

キーワード：

サンプルコード：

'PaintRgnの例
Private Sub Command1_Click()

    Dim hRgn1 As Long
    Dim hRgn2 As Long
    Dim hOldBrush As Long
    Dim hBrush As Long
    
    'ストックブラシの取得
    hBrush = GetStockObject(WHITE_BRUSH)
    
    'リージョンの作成
    hRgn1 = CreateRectRgn(0, 0, 100, 100)
    hRgn2 = CreateRectRgn(50, 50, 150, 150)
    
    'リージョンの結合
    CombineRgn hRgn1, hRgn1, hRgn2, RGN_XOR
    
    'リージョンの描画
    hOldBrush = SelectObject(Picture1.hDC, hBrush)
    PaintRgn Picture1.hDC, hRgn1
    SelectObject Picture1.hDC, hOldBrush

    '後処理
    DeleteObject hRgn1
    DeleteObject hRgn2

End Sub