十万火急!!! VB 如何上下或左右循环移动 和利用键盘的方向键控制Shape移动

来源：百度知道 编辑：UC知道 时间：2024/05/24 15:55:18
如何让Shape上下或左右循环移动 和利用键盘的方向键控制Shape移动
键盘的方向键 包括(左上 左下 右上 右下)会是45度的
知道的话 请帮帮忙

'37 ←
'38 ↑
'39 →
'40 ↓

Const Num = 10 '每次移动的数值

Dim z As Boolean, s As Boolean, y As Boolean, x As Boolean '左上右下键的情况

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37: z = True '←
Case 38: s = True '↑
Case 39: y = True '→
Case 40: x = True '↓
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37: z = False '←
Case 38: s = False '↑
Case 39: y = False '→
Case 40: x = False '↓
End Select
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
If z = True Or s = True Or y = True Or x = True Then '如果有一个按下
If z =