VB怎么设置热键啊

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

我来回答

共3个回答

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

例子1：
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("a") Then MsgBox "你按下了a键" '//当按下了a键时
'//KeyAscii:是各个键或组合键的代码，如A就是65
'//Asc函数:获得一个指定字符的Ascii码
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

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

楼上的只有在程序获得焦点时有效。。我这个无论有没有焦点都有效

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Function Myhotkey(vkeycode) As Boolean
Myhotkey = (GetAsyncKeyState(vkeycode) < 0)
End Function

这是我写的一个模块

用法
myhotkey(热键键值)
例如：
if myhotkey(vbkeysF1) then
end
endif

这样按下F1就会终止程序~

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

什么是热键?

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

例子1：
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("a") Then MsgBox "你按下了a键" '//当按下了a键时
'//KeyAscii:是各个键或组合键的代码，如A就是65
'//Asc函数:获得一个指定字符的Ascii码
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

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

楼上的只有在程序获得焦点时有效。。我这个无论有没有焦点都有效

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Function Myhotkey(vkeycode) As Boolean
Myhotkey = (GetAsyncKeyState(vkeycode) < 0)
End Function

这是我写的一个模块

用法
myhotkey(热键键值)
例如：
if myhotkey(vbkeysF1) then
end
endif

这样按下F1就会终止程序~

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

什么是热键?

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

例子1：
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("a") Then MsgBox "你按下了a键" '//当按下了a键时
'//KeyAscii:是各个键或组合键的代码，如A就是65
'//Asc函数:获得一个指定字符的Ascii码
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

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

楼上的只有在程序获得焦点时有效。。我这个无论有没有焦点都有效

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Function Myhotkey(vkeycode) As Boolean
Myhotkey = (GetAsyncKeyState(vkeycode) < 0)
End Function

这是我写的一个模块

用法
myhotkey(热键键值)
例如：
if myhotkey(vbkeysF1) then
end
endif

这样按下F1就会终止程序~

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

什么是热键?