Переместить каретку на начало в ComboBox

[Хакер]

Как минимум, там есть одно аппаратно-зависимое поле.

[arthur2]

Именно поэтому не хотелось связываться с им параметром. Хотя, tyomitch меня вроде бы успокоил, что сканкоды для стандартных клавиш должны быть снатнадртные.

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

[Хакер]

Я, вобщем, вот что скажу: я смотрел Spy++-ом сообщения, которые присылаются окну твоим кодом, и которые приходят окну при реальном нажатии данных клавиш. Я видел различия.

[arthur2]

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

Public Function winProc(ByVal hwnd As Long _
                  , ByVal uMsg As Long, ByVal wParam As Long _
                  , ByVal lParam As Long) As Long
   Select Case uMsg
   Case WM_KEYDOWN
      Debug.Print "WM_KEYDOWN "; " &h" & Hex(wParam); " &h" & Hex(lParam)
   Case WM_KEYUP
      Debug.Print "WM_KEYUP "; " &h" & Hex(wParam); " &h" & Hex(lParam)
   End Select
   
   CallWindowProc oldPr, hwnd, uMsg, wParam, lParam
   
End Function


результат:

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

WM_KEYDOWN  &h10 &h402A0001
WM_KEYDOWN  &h24 &h1470001
WM_KEYUP  &h24 &hC1470001
WM_KEYUP  &h10 &hC02A0001

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

Исправленный вариант:

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

Private Sub Form_Click()
    PostMessage text1.hwnd, WM_KEYDOWN, VK_SHIFT, &H402A0001
    PostMessage text1.hwnd, WM_KEYDOWN, VK_HOME, &H1470001
    PostMessage text1.hwnd, WM_KEYUP, VK_HOME, &HC1470001
    PostMessage text1.hwnd, WM_KEYUP, VK_SHIFT, &HC02A0001
End Sub


Код по-прежнему не работает (конкретно - как и прежде, курсор в начало переносится, но текст не выделяется)

я смотрел Spy++-ом сообщения, которые присылаются окну твоим кодом, и которые приходят окну при реальном нажатии данных клавиш. Я видел различия.

А с теми значениями, которые показал спай - заработает?

[Space]

Я сделал через keybd_event:

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

    keybd_event VK_SHIFT, 0, 0, 0 'press shift
     keybd_event VK_HOME, 0, KEYEVENTF_EXTENDEDKEY, 0

Что интересно, без флага KEYEVENTF_EXTENDEDKEY Cbx_KeyDown принимает клавиши как отдельно нажатые, а с KEYEVENTF_EXTENDEDKEY уже как одновременно нажатые, PostMessage не хочет работать никак

[arthur2]

Space Через keybd_event - это коряво. А чем тебя не устроил рабочий и некривой вариант, который я тебе дал с SetKeyboardState?

[iGrok]

Что интересно, без флага KEYEVENTF_EXTENDEDKEY Cbx_KeyDown принимает клавиши как отдельно нажатые

Ну это как раз вполне логично. Этот флаг, судя по названию, как раз для эмуляции нажатия комбинаций клавиш..

[Space]

Судя по названию, этот флаг "Расширенные(серые) клавиши".
arthur2 , чем keybd_event - коряво?

[arthur2]

Когда ты шлёшь сообщение по хендлу, ты не привязан ни к фокусу окна, ни даже к его видимости. А кейэвент - это куда бог пошлет. Собственно, то же самое, что было и с сендкеем.

А ты всегда переспрашиваешь, пропуская вопрос? Чем тебя не устроил нормальный некривой код?

[Space]

Вообще-то я фокус проверяю там If Screen.ActiveControl.Name = cbx.Name Then ... Ну мне показался этот вариант проще и я как-то подозрительно отношусь к Get/SetKeyboardState...

[arthur2]

И чего там такого подозрительного? Особливо - чем подозрительней, чем тот же кейбордэвент?

[Space]

Ну в промежутке между Get и Set клава может изменить своё состояние, хоть вероятность и мала. Особенно не нравится промежуток между Get и последним Set - 2 SendMessage...
Возвращаясь к проблемам PostMessage - я спрашивал Хакера, почему получается 2 события в cbx_KeyDown на 1 PostMessage? Думаю, что второе событие возникает от неккоректного(непонятно откуда взявшегося) сообщения WM_KEYDOWN, VK_SHIFT, которое разбивает корректную пару сообщений WM_KEYDOWN, VK_SHIFT и WM_KEYDOWN, VK_HOME, поэтому это воспринимается как нажатие отдельных клавиш...

[arthur2]

В моем коде не post-, а sendmasage и нет дуэвентов, значит ничего в промежутке возникнуть не может

Меня интересует другая вещь: у меня в проекте при установке состояния шифта через setkeybordstate текстовое поле вообще невидимо. Значит, ни какое сообщение о нажатии клавиш к нему не приходит. Кроме тех, которые я сам посылаю - WM_KEYDOWN, VK_HOME и WM_KEYUP, VK_HOME.

А раз код работает, то получается, окно не использует сообщения о шифтах, оно само смотрит состояние шифтов в момент прихода VK_HOME.

Я так понимаю, сообщения не меняют состояния клавиш. То-есть, сообщения - только сообщают: состояние изменилось. А раз мы сами их шлём, то просто обманываем окно. Мы сообщаем, что VK_HOME изменилась, хотя она и не менялась. А на шифты окно смотрит не по сообщениям, по состоянию.

Так что, получается, слать VK_SHIFT для выделения текста - бесполезно

А кейбордэвент работает именно потому, что не только сообщение шлет, но и состояние клавиш меняет.

Как-то так

[Space]

я говорил не о твоём коде от Тёмыча, а о изначальном варианте:

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

    PostMessage cbx.hwnd, WM_KEYDOWN, VK_SHIFT, 0 ' &H402A0001
    PostMessage cbx.hwnd, WM_KEYDOWN, VK_HOME, 0 '&H1470001
    PostMessage cbx.hwnd, WM_KEYUP, VK_HOME, 0 '&H1470001
    PostMessage cbx.hwnd, WM_KEYUP, VK_SHIFT, 0 '&HC02A0001

почему на один WM_KEYDOWN приходится два события cbx_KeyDown?

[arthur2]

Space Потому что, видимо, они генерируются, пока клавишу не отпустят

Хакер Ну так что, прав я или неправ в предыдущем посте?

[Space]

нет, это же просто сообщения, причём тут нажатые клавиши? Хакера сегодня нет, он где-то в ФСБ доказывает, что он не верблюд

[arthur2]

возьми нормальное готовое решение и не страдай фигней. Поскольку:

В моем коде не post-, а sendmasage и нет дуэвентов, значит ничего в промежутке возникнуть не может

Тем более, что все твои решения с кейэвентами или сендкеями - то же самое, только с кучей лишних действий. А в оконцовке комбик всё равно среагирует именно на сообщение хоум при зажатом состоянии шифта

События приходят парами - это какая-то личная особенность комбика, для текстбокса всё стандартно. Думаю, комбик, приняв сообщение даун, ещё раз для каких-то своих нужд посылает его себе сам

Где энтот вумный Хакер?

Хакера сегодня нет, он где-то в ФСБ доказывает, что он не верблюд

Хамишь? Это ты так самоутверждаешься?

[Space]

нет, это я так шучу Хакера я лю, особенно его способность отписыаться отдалёнными намёками. А по поводу Get/SetKeyboardState так твоя прога тут ни при чём, состояние клавы может измениться нажатием юзером кнопы в момент промежутка или тем же SetKeyboardState в другой проге

[arthur2]

Ещё раз по буквам: внутри кода нет дуэвентов, всё, что нажмётся на клаве за это время, будет обработано после.

[Space]

ещё раз по буквам: проблема не в этом коде, проблема во внешних событиях, таких, как удар молотком юзверем по клаве в критический момент

[alibek]

ещё раз по буквам: проблема не в этом коде, проблема во внешних событиях, таких, как удар молотком юзверем по клаве в критический момент

И что?
Ты не понимаешь, как работает оконный цикл?

[Space]

а причём тут оконный цикл? Прога Артура берёт состояние клавы GetKeyboardState, потом юзер зажимает Ctrl, меняет его, потом прога Артура устанавливает SetKeyboardState. Где мой зажатый Ctrl делся?

[alibek]

Space, а ты попробуй подумать.
Все события в программе генерируются из оконного цикла. Если программа однопоточная и в ней не используется DoEvents, то никаких событий между двумя операторами не произойдет. Они будут помещены в очередь и сгенерируются после того, как текущая процедура завершит работу.

[Space]

а и не надо