在VB中如何设置快捷键?

发布网友 发布时间：2022-04-28 11:29

我来回答

共2个回答

热心网友 时间：2023-10-05 11:44

Private Sub Command1_Click()
MsgBox "haha"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub

上例，按回车即可调用按钮1。你也可以设置keyascii为别的值来实现调用不同的函数。如果不知道KeyAscii的值，可以在事件里加入msgbox keyascii，就可以读出来了.

热心网友 时间：2023-10-05 11:45

在菜单编辑器里,可以为菜单中的[退出]选项加上快捷键,比如Ctrl+X.
这样不必点菜单中的[退出],可直接用Ctrl+X

热心网友 时间：2023-10-05 11:44

Private Sub Command1_Click()
MsgBox "haha"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub

上例，按回车即可调用按钮1。你也可以设置keyascii为别的值来实现调用不同的函数。如果不知道KeyAscii的值，可以在事件里加入msgbox keyascii，就可以读出来了.

热心网友 时间：2023-10-05 11:45

在菜单编辑器里,可以为菜单中的[退出]选项加上快捷键,比如Ctrl+X.
这样不必点菜单中的[退出],可直接用Ctrl+X

热心网友 时间：2023-10-05 11:44

Private Sub Command1_Click()
MsgBox "haha"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub

上例，按回车即可调用按钮1。你也可以设置keyascii为别的值来实现调用不同的函数。如果不知道KeyAscii的值，可以在事件里加入msgbox keyascii，就可以读出来了.

热心网友 时间：2023-10-05 11:45

在菜单编辑器里,可以为菜单中的[退出]选项加上快捷键,比如Ctrl+X.
这样不必点菜单中的[退出],可直接用Ctrl+X