リージョンを使用したビットマップの反転(VB)

説明:

"c:\pic\test.bmp"というビットマップをピクチャボックスに描画する。次に、中心(50, 50)、半径50の円領域をInvertRgnによって反転する。

キーワード:

CreateEllipticRgn, InvertRgn

サンプルコード:

'円領域の反転
Private Sub Command1_Click()

    Dim hRgn As Long

    'リージョンの作成
    hRgn = CreateEllipticRgn(0, 0, 100, 100)

    Picture1.Picture = LoadPicture("c:\pic\test.bmp")
    InvertRgn Picture1.hDC, hRgn

    '後処理
    DeleteObject hRgn

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

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