drawimageを使いつつ背景を綺麗に表示させる方法について

質問

ぶしつけで申し訳ありません。
タイマー処理でdrawimageを使いキャラクターを規則的に動かしてるのですが、
drawimageにてアイテムを動かす場合には、現状g.clear(color.black)で背景を塗りつぶし
再描画する事によって動いているように見せている状況です。
ですがこの方法だとクリアした時に切れ目が出来、背景を表示させたいのにチカチカしてしまいます。

理想的な形としてはdrawimageだけを再描画出来れば背景が消えずにすむ筈なのですが
知らない構文が多すぎて出来るのか出来ないのかわからない状況です。

私が対処した方法（もちろん駄目でしたが）としては
(1)g.clear(color.tranceparent)　透明色で削除　結局切れ目が出来ました
(2)タイマーに背景描画処理を直書　これも気休めでぶつ切りになってしまいました

このまま解決しないととてもシンプルなものになってしまい寂しいので
何とか背景を表示させたいと思っています。
詳しい方がいらっしゃいましたら教えてください。

回答No.1

gcqd75ce · ベストアンサー

方法はたくさんありますけどね。
☆例1☆
'ども♪By 聖帝レオ
Public Class Form1
' Dim 背景イメージ数 As Integer = 5
' Dim 背景イメージ(背景イメージ数 - 1) As Image
'Dim キャラクター As Image
' Dim 背景イメージカウンター As Integer
'Dim キャラクターの横位置 As Integer
Public Sub New()
' この呼び出しは、Windows フォーム デザイナで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
'背景イメージ(0) = My.Resources.Image1
'背景イメージ(1) = My.Resources.Image2
'背景イメージ(2) = My.Resources.Image3
'背景イメージ(3) = My.Resources.Image4
'背景イメージ(4) = My.Resources.Image5
'キャラクター = My.Resources.kyara1
'ソリューションエクスプローラ内
'リソース
'Image1.bmp(大きさ300×300)
'Image2.bmp
'Image3.bmp
'Image4.bmp
'Image5.bmp
'kyara1.gif(大きさ48×48)
'gifファイルじゃないと透過しません。
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Timer1.Interval = 1000
'Timer1.Enabled = True
'Timer2.Interval = 50
'Timer2.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' PictureBox1.BackgroundImage = 背景イメージ(背景イメージカウンター)
'背景イメージカウンター += 1
'If 背景イメージカウンター = 背景イメージ数 Then
'背景イメージカウンター = 0
' End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
'キャラクターの横位置 += 1
'If キャラクターの横位置 > PictureBox1.Width Then
'キャラクターの横位置 = -48
'End If
'PictureBox1.Invalidate()
End Sub
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
' e.Graphics.DrawImage(キャラクター, キャラクターの横位置, 200)
End Sub
End Class

お礼

こんなに沢山どうもありがとう御座います。
今すぐ試させていただきます。