マスクで？ (ID:117309)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 えっ！！ もしかして、 Option Explicit Private Const PICTURE_BACK As String = "\T13_Back.Jpg" Private Const PICTURE_CHARA As String = "\T13_Chara.GIF" Private Const PICTURE_MASK As String = "\T13_CharaMask.GIF" Private Sub Command1_Click() picMain.Picture = LoadPicture(App.Path & PICTURE_BACK) picChara.Picture = LoadPicture(App.Path & PICTURE_CHARA) picMask.Picture = LoadPicture(App.Path & PICTURE_MASK) Call picMain.PaintPicture(picMask.Picture, 0, 0, , , , , , , vbSrcAnd) '↑ Call picMain.PaintPicture(picChara.Picture, 0, 0, , , , , , , vbSrcInvert) '↑ End Sub のソースって、 白から黒の範囲で透過できないのでしょうか？ つまり、白と黒の中間色のグレーならその元画像を半透明にするとかできないのでしょうか？