BOOL FillRgn( HDC hDC, HRGN hRgn, HBRUSH hBrush);
Declare Function FillRgn Lib "gdi32" ( _ ByVal hDC As Long, _ ByVal hRgn As Long, _ ByVal hBrush As Long) As Long
引数の意味は以下の通り。
| hDC | 描画先のデバイスを識別するデバイスコンテキストのハンドル。 |
| hRgn | 描画するリージョンのハンドル。 |
| hBrush | 描画の際の塗りつぶしに使用するブラシのハンドル。 |
戻り値は、関数の実行に成功したか否かを表す真偽値である。
' 交差する二つの長方形からなるリージョンを描画
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