HRGN CreateRectRgn( int LeftRect, int TopRect, int RightRect, int BottomRect);
Declare Function CreateRectRgn Lib "gdi32" ( _
ByVal LeftRect As Long, _
ByVal TopRect As Long, _
ByVal RightRect As Long, _
ByVal BottomRect As Long) As Long
引数の意味は以下の通り。
| LeftRect | 作成するリージョンの左上隅座標の水平成分。 |
| TopRect | 作成するリージョンの左上隅座標の垂直成分。 |
| RightRect | 作成するリージョンの右下隅の水平成分。 |
| BottomRect | 作成するリージョンの右下隅の垂直成分。 |
戻り値は、作成結果のリージョンのハンドルである。関数の実行に失敗した場合、NULLが返される。
' 交差する二つの長方形からなるリージョンを描画
Private Sub Command1_Click()
Dim hRgn1 As Long
Dim hRgn2 As Long
'リージョンの作成
hRgn1 = CreateRectRgn(0, 0, 100, 100)
hRgn2 = CreateRectRgn(50, 50, 150, 150)
'リージョンの結合
CombineRgn hRgn1, hRgn1, hRgn2, RGN_XOR
'リージョンの描画
FillRgn Picture1.hDC, hRgn1, GetStockObject(WHITE_BRUSH)
'後処理
DeleteObject hRgn1
DeleteObject hRgn2
End Sub