画像転送（ワールド変換行列）について

質問

Dim g As Graphics = PictureBox1.CreateGraphics()
Dim img As Image = Image.FromFile("○○.jpg")

For i = 1 To 10
g.TranslateTransform(+10, 0)
g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height))
Next i

上記のような感じで画像を左から右へとスムーズに
動かしたいのですが、移動毎の残像が残ってしまいます。
毎回Refreshするとちらつきが出てしまいますし……。
どうしたら残像が残らず画像を移動出来るでしょうか。

回答No.4

redfox63 · ベストアンサー

単純にFormのバックカラーでいのでしたらBlackイメージの作成を
g1.FillRectangle( new SolidBrush( Me.BackColor ), _
　　new Rectangle( 0, 0, img.Width, img.Height ) )
といった具合にして見ましょう

お礼

何度も有難う御座いました！
無事にイメージ通りのものが完成しました。
本当に感謝いたします。

回答No.3

redfox63

移動した分がそのまま残るのであれば 消去用のイメージの作成がうまくいってないのではと考えられます

ピクチャーボックスの BackColorがColor.Transparentなのでしょうか
透過色に設定されていると上書きしても残像が残ってしまいます

ピクチャーボックスのコンテナから背景を取得して上書きといった手順が必要になりそうですよ

お礼

何度も有難う御座いました！
無事にイメージ通りのものが完成しました。
本当に感謝いたします。

回答No.2

redfox63

当方が検証したのは VB.NET2005ですが このあたりは同じだったと思います

単にフォームにピクチャーボックスを貼り付けて
適当な画像を使って お示しのコード + 改良部分で検証しました

どの程度残像が残るのでしょう
移動した分がそのまま残るのでしょうか？

補足

はい、仰る通り移動した分がそのまま残ります。
Refreshをするとちらつきは出ますが、残像は消えます。

回答No.1

redfox63

以前描画した領域を消去してから新しいイメージを描画しましょう

dim blank as Image = new Bitmap(img.Width, img.Height)
Dim g1 as Graphics = Graphics.FromImage( blank )
g1.FillRectangle( new SolidBrush( PictureBox1.BackColor ), _
　　new Rectangle( 0, 0, img.Width, img.Height ) )
g1.Dispose()
といった準備をしておきます

描画する際に
For i = 1 To 10
　　// 描画領域を消去
　　g.DrawImage(blank, New Rectangle(0, 0, img.Width, img.Height))
　　g.TranslateTransform(+10, 0)
　　g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height))
　　// 画面の更新待ち
　　Threading.Thread.Sleep( 200 );
Next i
といった具合にします

これでもちらつきがきになるのであれば『ダブルバッファ』など散らすつきを抑える技法を使いましょう

お礼

素早く丁寧な回答有難う御座います。
ただ、これをそのまま使用してみたところ
やはり残像の方が残ってしまいます。
何が原因なんでしょうね……。

補足ですが、環境はVisual Basic 2008です。