WM_CHAR - что это и как работать?

[Гость]

Это для перехвата нажатий, но обясните неопытным как с этим работать.

[GSerg]

Это смотря что хочется получить

[Гость]

хочу нажатие клавиши в программе перехватить.
Напрмер нажал пользователь "space" , а тут раз действие какое-нибуть.

[GSerg]

Ну, если именно WM_CHAR, то просто обрабатывай KeyPress

[Гость]

KeyPress этож на если выбран конкретный обьект на форме, а как вообще перехватить, чтобы в любом обьекте был курсор и ловить нажатие.

[alibek]

На форме выставь KeyPreview=True и отслеживай на форме.

[Гость]

Спасибо, работает почти всё как надо. Только как перехватить нажатия на стрелочки, они почему-то не считаются.

[alibek]

Смотри KeyDown

[Гость]

Результат отрицательный. Даже через Кей_даун.

[Amed]

Не может быть... Стрелочки не на цифровой клавиатуре?

[Гость]

Нет.
А может быть такое, если у меня мультимедийная клавиатура?

[Гость]

Обнаружил такую вещь. Нажатия на стрелочки перехватываются лишь тогда, когда я этими стрелочками перемещаюсь в каком-нибуть текстовом поле на форме, т.е. при активном элементе "текстовое поле".
А как, чтобы без поля?

[zHackLeX]

Попробуй поотменять Tabstop (=false)
у всех контролов.

[ANDLL]

Может это подойдет?

Код: Выделить всё

'in module
Option Explicit

Public Const WH_KEYBOARD = 2
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public hHook As Long

Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'if idHook is less than zero, no further processing is required
    If idHook < 0 Then
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        If GetActiveWindow = Form1.hWnd Then
            Select Case wParam
            Case vbKeyUp
                Beep
            End Select
        End If
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function

'in form
Option Explicit

Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'set a keyboard hook
    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'remove the windows-hook
    UnhookWindowsHookEx hHook
End Sub


[Джеффи]

ANDLL
А ты объясни как эти пользоваться

[ANDLL]

(мысли вслух) Интересно, на кого он злится?

Пользоваться очень просто: создаешь форму, создаешь модуль. То, что под in form пишешь в форму. То, что под in module пишешь в модуль. Сие отлалвивает нажатия клавиш на твоей форме. В данном случае, если ты нажмешь кнопку "вверх" прозвучит звуковой сигнал. Даже если в этот момент стоит фокус на кнопке, и ее tabstop=true. Можно приписать в select case другие константы, что бы отслеживать другие события.

[Джеффи]

ANDLL
Я не злюсь просто мне один раз уже писали этот код и не объяснили как он работает...

Но моя проблема в том что мне нужно ловить нажатия не только на форме, а во всей винде!

[Amed]

Господи... Соображайте, юзеры, соображайте головой!

Замени

Код: Выделить всё

        If GetActiveWindow = Form1.hWnd Then
            Select Case wParam
            Case vbKeyUp
                Beep
            End Select
        End If


на

Код: Выделить всё

            Select Case wParam
            Case vbKeyUp
                Beep
            End Select


Это убирает проверку того, что на экране в данный момент твоя программа. Идею раскрыл?

[Джеффи]

Всё теперь всё понял
Спасибо

[Zubik]

Слушайте, а у меня с этим кодом отлавливания нажатия стрелки вверх при неактивной форме не происходит.
Это у меня так или у всех тоже?

[AjaxVS]

Странно.. у меня с GetAsyncKeyState() все всегда и везде перехватывает.. Точнее, отслеживает. Пример смотри в ApiGuide37.

[Zubik]

с горем пополам более-менее розобрался как хук работает на клавиатуру... но всётаки, как запретить кнопку-флажок ( её код 91), чтобы она не разворачивала меню кнопки "Пуск". Возможно ли это осуществить локально? или же всётаки придётся использовать библиотеку.
Кучу примеров просмотрел, но там происходит только лиш отлов нажатий кнопок (клавиатурные шпионы).
Меня интересует именно кнопка-флажок, как с ней быть?

[keks-n]

Журнальный хук от Оловянникова не пробовал?

[Zubik]

пример видел (он ловит события), но моих знаний и умений недостаточно, чтобы определить, способен ли тот хук заблокировать нужную мне клавиш

[keks-n]

А попробовать? И ещё, там скорее всего(хотя точно не знаю) шлётся WM_SYSKEYDOWN и WM_SYSKEYUP. Поправьте меня, если ошибся.