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

名前

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

本文

配列を勉強する前に玉をころがす動きを実装してますが、玉がピンを通過するときに玉の輪郭に四角い黄色の枠が見えてしまいます。（うまく透過できない）

また、玉がころがるときに玉の後方に半円形の玉の残像が見えてしまいます。（残像が残る）
とりあえずこの2点から解決していきたいと思うのですが
アドバイスお願いします

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.FillRectangle(New SolidBrush(Color.Yellow), x, 155, 30, 30)
            g3.DrawImage(imgx, x, 155, 30, 30)

Else
            g3.FillRectangle(New SolidBrush(Color.Yellow), x, 155, 30, 30)
            g3.DrawImage(imgx2, x, 155, 30, 30)

End If

←解決時は質問者本人がここをチェックしてください。

戻る