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

[Space]

cbx.Style=0. В событии Click пишу cbx.SelStart = 0. После выбора Item строка в Text выделяется и каретка мигает в конце строки, а мне надо в начале строки и желательно выделение всей строки. Как сделать?

[alex77755]

В начало строки можно таймером

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

Private Sub Комбо1_Click()
Часы1.Enabled = True
End Sub

Private Sub Часы1_Timer()
   Комбо1.SelStart = 0
  Часы1.Enabled = False
End Sub

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

[alex77755]

Впрочем получилось так:

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

Private Sub Часы1_Timer()
SendKeys "{RIGHT}"
   For i = 1 To Len(Комбо1.Text)
SendKeys "+{LEFT}"
   Next i
Часы1.Enabled = False
  End Sub

[Xcode]

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

Private Sub cbx_Click()
SendKeys "{END}"
SendKeys "+{HOME}"
End Sub

[Хакер]

Это всё криво, alex77755 правильно говорит, что нет разницы, где каретка. Так что не надо заниматься фигнёй.

Вариант с SendKeys крив ещё и потому, что нет гарантии, что фокус на комбике.

[Space]

а что, фокус может резко уйти с комбика? Или SendKeys тормозит? Жалко, что в SendKeys нельзя указать hWnd... А насчёт того, где находится каретка, так это для того, чтобы текст был виден сначала, а не с конца, если текст не помещается в поле Text! Так что это не фигня, Хакер

[Хакер]

Резко уйти он не может, по крайне мере, не должен по правилам.

Он может попросту не быть на комбике вообще.

[Space]

но как же тогда происходит Click? Разве что при ListIndex=n... тогда перед посылкой нуно проверять наличие фокуса на комбике, ActiveControl вроде...

[Space]

а что если вместо SendKeys использовать SendMessage, указать hWnd комбика, только что запихнуть в Msg, wParam и lParam вместо "+{HOME}"?

[Хакер]

Событие Click, которое по хорому должно было называться ItemSelected происходит когда был выбран какой-то пункт, и не важно, как он был выбран (мышкой, ListIndex-ом и т.д.).

а что если вместо SendKeys использовать SendMessage, указать hWnd комбика, только что запихнуть в Msg, wParam и lParam?

Ты понимаешь, почему SendKeys позволяет тебе сделать то, что ты хочешь? Судя по всему нет. Разберись с этим.

[arthur2]

viewtopic.php?p=6709481#p6709481

[Space]

Артур, я не понимаю, почему не срабатывает SendMessage Text1.hwnd, WM_KEYDOWN, VK_SHIFT, &H402A0001 как нажатие Shift, почему надо только через SetKeyboardState? И что за значение &H402A0001?

[arthur2]

А ты весь топик посмотри - я тоже не понимаю, но не срабатывает

&H402A0001 - это состояние нужной клавиши, её сканкод и ещё чего-то. Значение получено было опытным путём через субклассинг, дабы быть уверенным, что сам я ничего не перепутал и не вычислил значение неправильно.

Но в результате оказалось, что вполне можно передать 0 (в коде же, который я привёл, это значение закомментировано), так что не заморачивайся

[Хакер]

А вы подумайте головой, почему не срабатывает, а не бросайте не разобравшись.

Надо начать думать с того момента, почему не работает просто ковырянием свойств SelStart, SelLength.

Надо поставить эксперимент, вписать в обработчик события примерно такой код с бесконечным циклом:

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

    cbx.SelStart = 1
    cbx.SelLength = 2
    DoEvents
    Do
    Loop

И увидеть, что дёрганье свойства всё-таки меняет выделение (но не надолго). Сделать на основании этого эксперимента вывод, что SelectAll-выделение ставится уже после того, как происходит возврат из обработчика события.

Сделать вывод, что никакие попытки изменить диапазон выделения до возврата из обработчика события не пройдут. А пройдут после (поэтому срабатывает таймер, поэтому срабатывает SendKeys).

Почитать в документации по SendMessage, что SendMessage (в отличие от PostMessage) возвращает выполнение строго после того, как отработает своё WindowProc.

[arthur2]

Хакер Вот блин... Действительно, PostMessage!!! А ведь я мог бы и сам тогда догадаться

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

[Space]

Хакер, то, что выделение происходит после обработчика события ты Америку не открыл. Это было видно, так как cbx.SelStart = 0 не срабатывал. А вот за PostMessage спасибо. Но как ни странно, PostMessage тоже не работает. Тест на TextBox:

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

Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const VK_HOME = &H24
Private Const VK_SHIFT = &H10
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101

Private Sub Text1_GotFocus()

    Text1.SelStart = Len(Text1.Text)
'    SendKeys "+{HOME}"
    PostMessage Text1.hwnd, WM_KEYDOWN, VK_SHIFT, 0 ' &H402A0001
    PostMessage Text1.hwnd, WM_KEYDOWN, VK_HOME, 0 '&H1470001
    PostMessage Text1.hwnd, WM_KEYUP, VK_HOME, 0 '&H1470001
    PostMessage Text1.hwnd, WM_KEYUP, VK_SHIFT, 0 '&HC02A0001
End Sub

Ещё интересно, что при использовании SendKeys антивир KIS говорит:

[MIT]

ИМХО, для перемотки текстбоксов есть нормальный способ.

[Space]

MIT, ты вообще понял, о чём тут речь?
Где энтот вумный Хакер? Ожидается истина в формировании сообщения одновременного нажатия Shift+Home не через SendKeys

[MIT]

MIT, ты вообще понял, о чём тут речь?

После выбора Item строка в Text выделяется и каретка мигает в конце строки, а мне надо в начале строки и желательно выделение всей строки.

это для того, чтобы текст был виден сначала, а не с конца, если текст не помещается в поле Text!

PostMessage тоже не работает. Тест на TextBox

чтобы текст был виден сначала в TextBox`е юзай нормальный способ

[Space]

MIT, расслабься...

[MIT]

расслабься...

Не понял. Можно поподробнее?

[Space]

Хакер, сообщения

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

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

не лепятся в одно как Shift+Home, а идут раздельно, при том приходят почему-то дважды:

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

Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const VK_HOME = &H24
Private Const VK_SHIFT = &H10
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101


Private Sub cbx_Click()
Debug.Print "cbx_Click"
    cbx.SelStart = Len(cbx.Text)
'    SendKeys "+{HOME}"
    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

End Sub

Private Sub cbx_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode, Shift
End Sub

Private Sub Form_Load()
    cbx.Text = ""
    cbx.AddItem "1234567890"
    cbx.AddItem "0987654321"
   
End Sub

[Хакер]

Space, ты может для начала почитаешь про второй параметр сообщений?

[Space]

про lParam уже прочитал, никакие флаги там не помогают.

[Хакер]

Как минимум, я не знаю, на что можно надеяться, передавая 0 в качесиве РепитКаунт. Там не флаги, там целая структура.

[arthur2]

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

Но если их раскомментировать, код всё равно не заработает


Space Впрочем, если интерес чисто практический, то код, который по моей ссылке - Тёмычевский - работает нормально, можно его взять и не париться.

[Space]

я разобрал уже эту структуру, в инете тоже куча вопросов на тему посылки этих двух сообщений с целью генерации Shift+Key, как ни странно, всё упирается в SetKeyboardState, как будто когда происходит обработка сообщений, без GetKeyboardState не обходится, хотя, ясно, что 2 подряд WM_KEYDOWN - одновременно нажатые клавиши, а если вызывать GetKeyboardState, то на момент обработки сообщений Shift может быть отжат...

[Space]

а SendKeys это обёртка над keybd_event?

[Хакер]

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

Я их разобрал. Они тоже неправильные.

[arthur2]

А как такое могло получиться? Я брал те самые значения, которые приходят в окно при реальном нажатии и отпускании этих клавиш.