我正在VB6项目中工作,在该项目中,我需要具有工具栏控件上的按钮的键盘快捷键。为此,我使用了vbAccelerator中的Win32 Hooks库。这是我的IWindowsHook_HookProc
函数,用于检索快捷键并根据按下的快捷键执行操作(对于新键,<< Ctrl >> + N,对于<< Ctrl >> + O打开,然后按Ctrl + S保存),但是我不知道使我的应用程序与VB6 IDE一起崩溃的代码有什么问题。该功能当前不完整,因为我刚刚尝试识别Ctrl + N组合键来测试此功能。请帮帮我。...:-|Private Function IWindowsHook_HookProc(ByVal eType As EHTHookTypeConstants, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long, bConsume As Boolean) As Long
If KeyboardlParam(lParam).KeyDown Then
Select Case True
Case Me.ActiveControl = Me
If wParam = vbKeyControl + vbKeyN Then
frmNewReport.show
bConsume = True
End If
End Select
End If