SetRectRgnの例(VB)

説明:

SetRectRgnを利用して、複数個の長方形からなるリージョンを作成し、ピクチャボックスに描画する。

キーワード:

CreateRectRgn, SetRectRgn, CombineRgn, FillRgn

サンプルコード:

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

    Dim hRgn1 As Long
    Dim hRgn2 As Long
    Dim I As Long
    
    'リージョンの作成
    hRgn1 = CreateRectRgn(0, 0, 100, 100)
    hRgn2 = CreateRectRgn(0, 0, 1, 1)
    
    'リージョンの結合
    For I = 1 To 4
        SetRectRgn hRgn2, 50 - I * 10, 50 - I * 10, 50 + I * 10, 50 + I * 10
        CombineRgn hRgn1, hRgn1, hRgn2, RGN_XOR
    Next
    
    'リージョンの描画
    FillRgn Picture1.hDC, hRgn1, GetStockObject(WHITE_BRUSH)

    '後処理
    DeleteObject hRgn1
    DeleteObject hRgn2

End Sub
(original text:2000/02/13 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。