投稿日 | : 2006/01/11(Wed) 23:43 |
投稿者 | : はま |
URL | : |
タイトル | : Re^2: VB で 半透明(再質問) |
似たようなことで
ペン先を CreatePatternBrush(hMaskBmp) にて、モノクロームのビットマップ
を使って面塗りすると、言われたようなことができるらしいのですが
hhttp://www.microsoft.com/japan/msdn/library/default.asp?
url=/japan/msdn/library/ja/jpgdi/html/_win32_createpatternbrush.asp
ピクチャーボックスにモノクロームのビットマップ
をロードしてもダメなんですね。トホホ
picMask.Picture = LoadPicture(App.Path & "\Mask3.bmp")
hMaskBmp = picMask.Image
BrushP = CreatePatternBrush(hMaskBmp) '指定したペン先
BrushD = SelectObject(.hdc, BrushP)
Ellipse pic.hdc, 100, 100, 200, 150
BrushP = SelectObject(.hdc, BrushD)
DeleteObject BrushP