VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -