画像の周囲に残像が残る (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

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

戻る