怎么辨别崖柏手串真假:VB中如何用方向键控制一个PICTURE或IMAGE运动??
来源:百度文库 编辑:神马品牌网 时间:2024/08/30 03:48:34
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