画像の周囲に残像が残る (ID:142751)

名前

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

本文 透過の問題は解決しました。 しかし、残像が残る部分はダメです。VBの限界でしょうか？ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.BackColor = Color.Yellow '背景色 bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height) PictureBox1.Image = bmp Me.DoubleBuffered = True’ダブルバッファリングしましたが効果なし End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick frg = Not frg x -= 8 PictureBox1.Refresh() End Sub Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim g As Graphics = e.Graphics g = Graphics.FromImage(PictureBox1.Image) img = Image.FromFile("\pin5.gif") g.DrawImage(img, 30, 30, 25, 60) g.DrawImage(img, 70, 80, 25, 60) g.DrawImage(img, 110, 90, 25, 60) g.DrawImage(img, 150, 120, 25, 60) g.DrawImage(img, 30, 90, 25, 60) g.DrawImage(img, 70, 130, 25, 60) g.DrawImage(img, 30, 150, 25, 60) g.DrawImage(img, 70, 180, 25, 60) g.DrawImage(img, 110, 150, 25, 60) g.DrawImage(img, 30, 210, 25, 60) g3 = e.Graphics g3 = Graphics.FromImage(PictureBox1.Image) imgx = Image.FromFile("\1tama.gif")’オレンジ色の玉（左上方から右下に白い影あり） imgx2 = Image.FromFile("\x2tama.gif")’オレンジ色の玉（右上方から左下に白い影あり） If frg = True Then g3.DrawImage(imgx, x, 155, 30, 30) Else g3.DrawImage(imgx2, x, 155, 30, 30)