リージョンを使用したビットマップの反転(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 更新)
本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。