vb 组合键问题
来源:百度知道 编辑:UC知道 时间:2024/05/05 15:31:20
'form中的代码:
'Option Explicit
Private Sub Form_Load()
Form1.Hide
SetHotkey 1, "Ctrl+Alt,82", "Add" '这里可以修改快捷键,如Shift+Q那就改为SetHotkey 1, "Shift,81", "Add" ,当然,也可以添加多个快捷键,第一个数字就是第几个快捷键了
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetHotkey 1, "", "Del"
End Sub
'下面的放到模块里
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function Regist