投稿日 | : 2004/02/20(Fri) 11:20 |
投稿者 | : N502i |
URL | : |
タイトル | : PaintPictureについて |
こんにちは。
ピクチャーボックス上に、イメージボックスを配置しています。
このときは、Image1の背景は透明なのですが、
以下のプログラムを実行すると、Image1の背景が白に変わってしまいます。
Image1がGif形式だからなのでしょうか?背景を透明で貼り付けることが出来るよい方法があったら
教えてください。
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Picture = LoadPicture("C:test.jpg")
Image1.Picture = LoadPicture("C:test2.gif")
End Sub
Private Sub Command1_Click()
Picture1.PaintPicture Image1.Picture, Image1.Left, Image1.Top,Image1.Width,Image1.Height
End Sub