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

名前

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

本文 >やはり、1枚のピクチャ-ボックスで処理できるように頑張りましょう 完成はしておりませんが、 いちおうピンの描画、倒れたときの描画処理はこんな感じでよいのでしょうか？ 非効率的かつ無駄な処理が含まれていたらご教授ください。 Dim g As Graphics Dim bmp As Bitmap Dim img As Image Dim img2 As Image Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click g = Graphics.FromImage(PictureBox1.Image) g.FillRectangle(New SolidBrush(Color.Yellow), 30, 30, 25, 60) '3本のピンを消す g.FillRectangle(New SolidBrush(Color.Yellow), 70, 80, 25, 60) g.FillRectangle(New SolidBrush(Color.Yellow), 110, 90, 25, 60) img2 = Image.FromFile("c:\xpin1a.gif") '倒れたピンの画像を描画 g.DrawImage(img2, 0, 60, 60, 25) g.DrawImage(img2, 50, 100, 60, 25) g.DrawImage(img2, 90, 120, 60, 25) g.Dispose() PictureBox1.Refresh() End Sub 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 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click g = Graphics.FromImage(PictureBox1.Image) img = Image.FromFile("c:\pin5.gif") '立っているピンの画像 '10本のピンを描画 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) img.Dispose() g.Dispose() PictureBox1.Refresh() End Sub End Class