VB按钮定义快捷键

[niaorenzaixian]

我知道的 就是在
Caption=(&1)
快捷键就是 ALT+1 问题是 这样按钮上也显示了。 （1） 这样 显示不好看。
还有个问题就是 这里只是ALT 那 CTRL 和SHIFT如何定义呢？
据说是要定义全键盘的KEYSC什么那个？

[cqq_chen]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

[niaorenzaixian]

够简单。···。。。 唉。

[y564642865]

监视键盘按键，检测到按下哪个按键就实现相应的按钮功能。

[咸清]

局部的：
Command1.Caption = "&OK"
Command1的快捷键就是 Alt + O
全局的：

以下加到模块中
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public 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
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fskey_Modifiers As Long, ByVal vk As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long

Public Const WM_HOTKEY = &H312
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const GWL_WNDPROC = (-4)
Public preWinProc As Long
Public Modifiers As Long, uVirtKey1 As Long, idHotKey As Long

Public Function SetHotKey()
preWinProc = GetWindowLong(Form1.hwnd, GWL_WNDPROC)
SetWindowLong Form1.hwnd, GWL_WNDPROC, AddressOf Keywndproc
RegisterHotKey Form1.hwnd, 1, 0, vbKeyF1 '注册热键
RegisterHotKey Form1.hwnd, 2, 0, vbKeyF3 '注册热键
'这里还可以添加
End Function


Public Function Keywndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
Select Case wParam
Case 1
'热键一
case 2
'热键2
End Select
End If
Keywndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function


窗体
Private Sub Form_Load()
SetHotKey
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
'取消Message的截取，而使之又只送往原来的Window Procedure
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
Call UnregisterHotKey(Me.hwnd, uVirtKey)
End Sub