福州三中黄炳锋:VB中如何用方向键控制一个PICTURE或IMAGE运动??

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/09 20:46:07
VB中如何用方向键控制一个PICTURE或IMAGE运动??
编码越简单越好

首先设置Form的KeyPreview属性为True。
然后添加如下代码:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37 'Left
Picture1.Left = Picture1.Left - 15
Case 38 'up
Picture1.Top = Picture1.Top - 15
Case 39 'right
Picture1.Left = Picture1.Left + 15
Case 40 'down
Picture1.Top = Picture1.Top + 15
End Select
End Sub

首先设置Form的KeyPreview属性为True。
然后添加如下代码:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37 'Left
Picture1.Left = Picture1.Left - 15
Case 38 'up
Picture1.Top = Picture1.Top - 15
Case 39 'right
Picture1.Left = Picture1.Left + 15
Case 40 'down
Picture1.Top = Picture1.Top + 15
End Select
End Sub