9. Установка горячей клавиши для приложения

 

Описание

Пример, показывающий, как создать горячую клавишу (hotkey) для Вашего приложения

Объявления

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Const WM_SETHOTKEY = &H32
Public Const WM_SHOWWINDOW = &H18
Public Const HK_SHIFTA = &H141 'Shift + A
Public Const HK_SHIFTB = &H142 'Shift * B
Public Const HK_CONTROLA = &H241 'Ctrl + A

Public Const HK_ALTZ = &H45A

' Значение комбинации горячей клавиши определяется
' в младшем/старшем байтах
' В шестнадцатеричном числе:
' два последних символа - младший байт (41= a),
' первые два символа - старший байт (01 = 1 = Shift)

Пример использования

Private Sub Form_Load()

Me.WindowState = vbMinimized
erg& = SendMessage(Me.hwnd, WM_SETHOTKEY, HK_ALTZ, 0)
If erg& <> 1 Then
  MsgBox "You need another hotkey", vbOKOnly, "Error"
End If

erg& = DefWindowProc(Me.hwnd, WM_SHOWWINDOW, 0, 0)

End Sub

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ