リージョンの枠を描画(VB)

説明:

CreateEllipticRgnによって二つの交差する円で構成されるリージョンを作成する。次に、FrameRgnによって、このリージョンの枠を描画する。

キーワード:

CreateEllipticRgn, CombineRgn, FrameRgn

サンプルコード:

'リージョンの枠を描画
Private Sub Command1_Click()

    Dim hRgn1 As Long
    Dim hRgn2 As Long
    
    'リージョンの作成
    hRgn1 = CreateEllipticRgn(0, 0, 100, 100)
    hRgn2 = CreateEllipticRgn(50, 50, 150, 150)
    
    'リージョンの結合
    CombineRgn hRgn1, hRgn1, hRgn2, RGN_XOR
    
    'リージョンの枠を描画
    FrameRgn Picture1.hDC, hRgn1, GetStockObject(WHITE_BRUSH), 10, 10

    '後処理
    DeleteObject hRgn1
    DeleteObject hRgn2

End Sub

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

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