vb6 - Windows修飾子を使用してグローバルホットキーを設定する

Question

キーボードショートカット+をリッスンするグローバルホットキー*をVB6に設定したいと思います。WinO

厄介な例が山ほどありますが、Windowsキーに関係するものはありません。

ホットキーを設定する理想的な方法は何ですか？また、修飾子としてWindowsキーを含めるにはどうすればよいですか？

*私はグローバルショートカットを求めています。つまり、アプリケーションを機能させるためにフォーカスを合わせる必要はありません。

Answer 1

Windows API の RegisterHotKey を使用すると、グローバル ホット キーを登録できます。また、GlobalAddAtom を使用して一意のホット キー識別子を取得する必要があります。詳細については、このリンクを参照してください。

Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer

Private Const WM_HOTKEY As Long = &H312
Private Const MOD_WIN          As Long = &H8

  m_lHotkey = GlobalAddAtom("MyHotkey")
  Call RegisterHotKey(Me.hwnd, m_lHotkey, MOD_WIN, vbKeyO)

次に、ウィンドウで WM_HOTKEY メッセージをリッスンするだけです。