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

名前

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

本文

ちらつきも何とか解決できました。
今度は配列＜List (of データ型）＞の勉強をしたいと思います

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Yellow '背景色

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim bmp As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)

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)

imgx = Image.FromFile("\1tama.gif")
        imgx2 = Image.FromFile("\x2tama.gif")
        frg = Not frg
        x -= 10
        If frg = True Then

g.DrawImage(imgx, x, 155, 30, 30)

Else

g.DrawImage(imgx2, x, 155, 30, 30)

End If

PictureBox1.Image = bmp
        g.Dispose()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Start()

End Sub

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

戻る