ＶＢ2008でブロック崩しを作っているのですが、玉は動くようになり次に

質問

ＶＢ2008でブロック崩しを作っているのですが、玉は動くようになり次に自機を動かそうと思いやってみたのですが動きません。
もう一つプロジェクトを作って自機を動かす文だけでやってみるときちんと動きます。

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim w As Graphics = Pic1.CreateGraphics()
w.DrawImage(picback, zikiX, zikiY, rect, GraphicsUnit.Pixel)
Select Case e.KeyCode
Case Keys.Left : zikiX -= 3
Case Keys.Right : zikiX += 3
End Select
w.DrawImage(ziki, zikiX, zikiY)
w.Dispose()
End Sub
Private Sub ballmove()

Dim g As Graphics = Pic1.CreateGraphics()
tamasita = y + 28
tamawidth = x + 28
zikiwidth = zikiX + 15
zikisita = zikiY + 73

rec.X = x : rec.Y = y : rec.Width = 28 : rec.Height = 28
g.DrawImage(picback, x, y, rec, GraphicsUnit.Pixel)
g.DrawImage(ziki, zikiX, zikiY)

If x + 28 >= Pic1.Width Then
flag_x = False
ElseIf x < 1 And flag_x = False Then
flag_x = True
End If

If y + 28 >= Pic1.Height Then
flag_y = False
ElseIf y < 1 And flag_y = False Then
flag_y = True
End If

If flag_x = True Then
x = x + 3
Else
x = x - 3
End If

If flag_y = True Then
y = y + 3
Else
y = y - 3
End If
g.DrawImage(tama, x, y)
g.Dispose()
End Sub

回答No.1

layy

ソースを追いかけたわけでないですが、玉が動いていたらバーが動かないとか。その逆か。イベントを見直す。

玉とカーソルバーは同時に稼動されるようになっていますか。タイマー使ってますか。