窗体键盘事件，传递到程序，是否可行呢？

suxiong22 · 发表于 2018-9-23 11:37

本帖最后由 suxiong22 于 2018-9-23 14:54 编辑

要求:

窗体运行时：
按了键盘的左方向键就执行第一个按钮的代码；
按了回车就就执行第二个按钮的代码；
按了右方向键，就执行第三个按钮的代码

各位大神，可以实现吗？感谢，如果不能实现，麻烦也告诉一下，我也就死心了。

QQ截图20180923113606.jpg

test.zip (10.54 KB, 下载次数: 6)

chxw68 · 发表于 2018-9-23 11:41

本帖最后由 chxw68 于 2018-9-23 11:43 编辑

看错了。。

suxiong22 · 发表于 2018-9-23 14:30

up up up up up up

fyure · 发表于 2018-9-23 14:41

onkey事件吧

suxiong22 · 发表于 2018-9-23 14:46

fyure 发表于 2018-9-23 14:41
onkey事件吧

大神，感谢你的回复，这个是在工作表中实现，窗体上可以实现吗？主要是想在窗体中实现，麻烦了。

fyure · 发表于 2018-9-23 15:35

suxiong22 发表于 2018-9-23 14:46
大神，感谢你的回复，这个是在工作表中实现，窗体上可以实现吗？主要是想在窗体中实现，麻烦了。

没看清楚。。
你的需求的话我只想到个笨办法，把所有控件都设个keydown事件。。你参考看看

suxiong22 · 发表于 2018-9-23 18:16

fyure 发表于 2018-9-23 15:35
没看清楚。。
你的需求的话我只想到个笨办法，把所有控件都设个keydown事件。。你参考看看

谢谢。可行；

tylsj740320 · 发表于 2018-9-23 18:28

在窗体的KeyPress中可以实现吧。

zopey · 发表于 2018-9-25 14:48

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
      Call CommandButton1_Click
ElseIf KeyCode = 37 Then
      Call CommandButton2_Click
ElseIf KeyCode = 39 Then
      Call CommandButton3_Click
End If
End Sub

Private Sub CommandButton1_Click()
MsgBox "你按了回车"
Unload UserForm1
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
MsgBox "你按了左"
Unload UserForm1
UserForm1.Show
End Sub
Private Sub CommandButton3_Click()
MsgBox "你按了右"
Unload UserForm1
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
CommandButton1.TabStop = False
CommandButton2.TabStop = False
CommandButton3.TabStop = False
End Sub

test925.zip (16.14 KB, 下载次数: 12)

		自动登录	找回密码
密码			免费注册

[求助] 窗体键盘事件，传递到程序，是否可行呢？

评分

评分