ピクチャボックスに表示されている背景が透明な画像をパワーポインタにドラッグするには?


yamabato  2007-03-27 13:45:35  No: 135889

はじめまして、超初心者です。

環境はXPのVB6.0です
ピクチャボックスに表示されている背景が透明なgif画像
をパワーポインタにドラッグ&ドロップしたいのですが
背景が透けずに灰色になってしまいます。下の様なプログラム
を作って見たのですが、透明なままドラッグできないでしょうか?
ご教授おねがいします。

Dim FileName as string

Private Sub Form_Load()
    FileName = "D:\Clip01.gif"
    Picture1.Picture = LoadPicture(FileName)
End Sub

Private Sub Picture1_MouseDown(〜省略〜)
    Picture1.OLEDrag
End Sub

Private Sub Picture1_OLEStartDrag(〜省略〜)
    Data.Files.Add FileName
    Data.SetData , vbCFFiles
    AllowedEffects = vbDropEffectCopy
End Sub


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加