二つの交差する長方形で構成されるリージョンを描画(VB)

説明：

キーワード：

サンプルコード：

'二つの交差する長方形からなるリージョンを描画
Private Sub Command1_Click()

    Dim hRgn1 As Long
    Dim hRgn2 As Long
    Dim r As RECT
    
    'リージョンの作成
    r.Left = 0
    r.Top = 0
    r.Right = 100
    r.Bottom = 100
    
    hRgn1 = CreateRectRgnIndirect(r)
    
    r.Left = 50
    r.Top = 50
    r.Right = 150
    r.Bottom = 150
    
    hRgn2 = CreateRectRgnIndirect(r)
    
    'リージョンの結合
    CombineRgn hRgn1, hRgn1, hRgn2, RGN_XOR
    
    'リージョンの描画
    FillRgn Picture1.hDC, hRgn1, GetStockObject(WHITE_BRUSH)

    '後処理
    DeleteObject hRgn1
    DeleteObject hRgn2

End Sub