vb 如何用上下左右键改变控件位置,但是不改变焦点位置?
我编写了一个打砖块的游戏,但是按左右键的时候只是焦点在两个command按钮之间变换,控件不左右移动,请问我该怎么办?另外我想加一个scrollbar来改变小球速度,但是...
我编写了一个打砖块的游戏,但是按左右键的时候只是焦点在两个command按钮之间变换,控件不左右移动,请问我该怎么办?另外我想加一个scrollbar来改变小球速度,但是用左右键的时候会改变scrollbar的值,怎么办?
多谢各位了!
马上就交作业了,急啊!!!
以下是代码
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
If Command7.Left < 0 Then
Else
Command7.Left = Command7.Left - 100
End If
End If
If KeyCode = vbKeyRight Then
If Command7.Left + Command7.Width >= Line1.X1 Then
Else
Command7.Left = Command7.Left + 100
End If
End If
End Sub
谢谢您!您说的方法我已经试过了,但是不好使。我已经把没有用的控件都设为enabled=FALSE了,有用的控件tapstop也设为FALSE了,而且最开始编的时候左右键移动还好使说明条件没有问题,您看还能怎么办呢? 展开
多谢各位了!
马上就交作业了,急啊!!!
以下是代码
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
If Command7.Left < 0 Then
Else
Command7.Left = Command7.Left - 100
End If
End If
If KeyCode = vbKeyRight Then
If Command7.Left + Command7.Width >= Line1.X1 Then
Else
Command7.Left = Command7.Left + 100
End If
End If
End Sub
谢谢您!您说的方法我已经试过了,但是不好使。我已经把没有用的控件都设为enabled=FALSE了,有用的控件tapstop也设为FALSE了,而且最开始编的时候左右键移动还好使说明条件没有问题,您看还能怎么办呢? 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询