Question

vb高手进,关于form_keydown

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Command1.Top = Command1.Top + 100
End
End Sub
为什么控件不动?

Answer 1

没有vbKeyUp这种按键。
直接在KeyUP事件里面处理不就行了吗？

追问

你试完这个再说
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Me.Top = Me.Top + 100
End If
End Sub
还有麻烦调试成功了再回答..............

Answer 2

你把Command1删除了，放上个TextBox，然后再重新画个Command1就好了
因为焦点在Command1上面，所以它不动

追问

我擦嘞,选错答案了