vb中自己设定快捷键来执行某段代码

来源：百度知道 编辑：UC知道 时间：2024/05/21 17:39:46
如题，我想在自己创建的vb程序中设置一个快捷键(如alt+a)来执行本程序中的某段代码或者是某个command1_click。
总共20分我全贡献出来了，帮我解决下~~~~
首先我在我的vb程序中写一段代码,然后我再在vb程序中定义一个快捷键来执行他,实现的功能是:打开刚才写的VB程序,按快捷键执行vb程序里的那段代码. 跟windows中安装程序的时候通过快捷键执行"下一步"类似,另外本人菜鸟,请注明要执行的代码和定义的快捷键在哪个位置上,谢谢~~~~

答案补充：看了你的补充，我更一头雾水了……这样吧，你建一个Command1，添上我的代码，运行程序，按Alt+A试试。给你点注释。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
MsgBox "按了" '这里放你的程序
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '按键事件
If KeyCode = vbKeyA And (Shift And vbAltMask) = vbAltMask Then Command1_Click '判断是否按下按下Alt+A
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub

不要用调试器,要不你会哭的..生成exe后再调试

'以下程序放在模块中
Option Explicit

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc A