怎样通过键盘来移动控件呀?

Question

Private Sub cmdMove_KeyPress(KeyAscii As Integer)
            If KeyAscii = vbKeyUp Then
                cmdMove.top=cmdMove.top-100
            End If            
End Sub
这样它不响应键盘操作，怎样使它响应呀？cmdMove一个Command按钮！

Answer 1

你在keypress事件中写keyup能行吗，你直接写在keyup事件里不行吗？

Answer 2

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 37 Then     'ctrl键+左右箭头
Text1.Left = Text1.Left - 15
End If
If Shift = 2 And KeyCode = 39 Then
Text1.Left = Text1.Left + 15
End IfEnd Sub

Answer 3

Private Sub cmdMove_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 37 Then     'ctrl键+左右箭头
cmdMove.Left = cmdMove.Left - 15
End If
If Shift = 2 And KeyCode = 39 Then
cmdMove.Left = cmdMove.Left + 15
End IfEnd Sub

Answer 4

为什么一定要按下Shift,Alt,或者Ctrl这些附加键呢？？？

Answer 5

Private Sub cmdMove_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then     '左右箭头
cmdMove.Left = cmdMove.Left - 15
End If
If KeyCode = 39 Then
cmdMove.Left = cmdMove.Left + 15
End IfEnd Sub

Answer 6

借光
bydisplay(时光)
为什么你给的程序不能用？

Answer 7

command不可以，但textbox等可以