掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像の周囲に残像が残る (ID:142731)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ボールをころがすアニメを作ってみたのですが ころがるボールの周囲に残像らしきものがうずを蒔くように みえてしまいます。 ３つのPictureBoxのサイズは同じにしているのですが、 何が問題なのでしょうか？ Dim flag As Boolean Dim x, y As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim g As Graphics g = PictureBox1.CreateGraphics() If PictureBox1.Left > 0 Then PictureBox1.Left = PictureBox1.Left - 8 End If flag = Not flag If flag = True Then g.DrawImage(PictureBox2.Image, x, y, PictureBox1.Width, PictureBox1.Height) Else g.DrawImage(PictureBox3.Image, x, y, PictureBox1.Width, PictureBox1.Height) End If End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.