BMP画像の背景を透明にできないの？ (ID:107015)

名前

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

本文 返事が大変遅れまして、すみませんでした。 ＡＰＩでWindowsの全OSで使えるのはBitBlt関数ぐらいみたい？ですが、 どうも、うまくいかないので質問を変えさせて下さい。 前回も書かせて頂いたのですが、背景が透明なGif画像をImageで表示させ ドラッグで移動する時、白黒に点滅します。 これは、Imageのドラッグ時は、そうなるのでしょうか？ それとも、自分のプログラムが悪いのでしょうか？ どうか、宜しければ、原因を教えて下さい。 Dim Drg As Boolean Dim DrX As Single, DrY As Single Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then If Drg = False Then Drg = True DrX = x: DrY = y Image1.ZOrder 0 End If End If End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) FH = Form1.Height FW = Form1.Width Gh = Image1.Height Gw = Image1.Width If Button = 1 Then If Drg Then XX = Image1.Left + x - DrX YY = Image1.Top + y - DrY If XX > 0 And YY > 0 Then If XX < FW - Gw And YY < FH - Gh Then Image1.Move XX, YY End If End If End If End If End Sub Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then Drg = False End If End Sub