ＶＢ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
お礼
まさにこれです。 かなり前から探していたので大変感謝しております、 ありがとうございました。