Как выделить текст в текстовом поле?

[arthur2]

Можно ли выделить текст так, чтобы курсор оказался не в конце текста, а в начале?

Стандартное:

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

           .SelStart = 0
           .SelLength = Len(.text)

ведёт к тому, что курсор оказывается в конце

[tyomitch]

Можно только посылкой последовательности End, Shift+Home.

[arthur2]

То-есть, с имитировать ввод с клавиатуры? Точно, я как-то не допёр. А если я пошлю ему сообщения типа кейдаун-кейап, это сработает, когда окно с полем невидимо? Чтобы когда окно покажется, селект уже был.

Я и сам проверю, но вдруг ты уже знаешь

[Хакер]

[offtopic]
Ну вот. А keks-n летом критиковам мою идею сделать так, чтобы наши контроллы понимали отрицательный SelLength .
[/offtopic]

[arthur2]

Пробую сделать так:

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

txt.SelStart = Len(txt.Text)

SendMessage txt.hwnd, WM_KEYDOWN, VK_SHIFT, 0
SendMessage txt.hwnd, WM_KEYDOWN, VK_HOME, 0
SendMessage txt.hwnd, WM_KEYUP, VK_HOME, 0
SendMessage txt.hwnd, WM_KEYUP, VK_SHIFT, 0


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

Хакер

Ну вот. А keks-n летом критиковам мою идею сделать так, чтобы наши контроллы понимали отрицательный SelLength

А я как раз - за! Давно меня это раздражало, но оставил тогда как есть, а вот теперь - приспичило

[Йода]

Если твоё текстовое поле имеет MultiLine = True, то выделяй текст посылая EM_SETSEL. Установив начальную позицию выделения больше конечной, ты получишь нужный результат. Но повторюсь: это работает только для многострочного текстбокса.

[arthur2]

Йода
Спасибо! Увы, у меня поля однострочные... но может, просто заменить их на мультилайн без скролов и дело с концом Надо попробовать - возможно, я так и сделаю

[Йода]

Чтобы юзверь не испугался внезапно пропавшего текста - попробуй перед выделением устанавливать ES_MULTILINE, а после - снимать (сам я не пробовал, просто предположение). Если не сработает - более кривой вариант для текстбокса с постоянным мультилайном без скролов: обрабатывай нажатие на Enter, и ограничивай длинну текста.

[arthur2]

Ну да, в кейпрессе 13 заменять на ноль и бимкать Ну ещё, наверное, 32 на 160 - чтобы по словам не переносило

[tyomitch]

arthur2, lParam у сообщения для красоты что ли?

Йода, добавлять/убирать ES_MULTILINE после создания контрола нельзя.

[arthur2]

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

То есть, если lparam заполнить, всё правильно? И должно заработать? Тогда пойду копать в эту сторону

[tyomitch]

Если заполнить, всё заработает.

[arthur2]

Так как боялся что-нибудь перепутать и потом не знать, как искать глюк, получил значения lparam просто через субклассинг

Теперь код выглядит так:

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

   txt.SelStart = Len(txt.Text)
   SendMessage txt.hwnd, WM_KEYDOWN, VK_SHIFT,  &H402A0001
   SendMessage txt.hwnd, WM_KEYDOWN, VK_HOME, &H1470001
   SendMessage txt.hwnd, WM_KEYUP, VK_HOME,  &HC1470001
   SendMessage txt.hwnd, WM_KEYUP, VK_SHIFT,  &HC02A0001


Увы, код по-прежнему не работает (кроме хоума в нём

[tyomitch]

Странно, я отлично помню, что у меня это работало.... Ну да ладно.
Вот так вот работает. (Сорри за синтаксис, VB6 под рукой не нашлось.)

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

        Dim ks(255) As Byte
        txt.SelectionStart = Len(txt.Text)
        GetKeyboardState(ks(0))
        ks(Keys.ShiftKey) = Byte.MaxValue
        SetKeyboardState(ks(0))
        SendMessage(txt.Handle, WM_KEYDOWN, Keys.Home, &H1470001)
        SendMessage(txt.Handle, WM_KEYUP, Keys.Home, &HC1470001)
        ks(Keys.ShiftKey) = 0
        SetKeyboardState(ks(0))


[arthur2]

tyomitch
Ура! действительно заработало! Огромное спасибо!

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

        Dim ks As KeyboardBytes
        txt.SelStart = Len(txt.Text)
        GetKeyboardState ks
        ks.kbByte(VK_SHIFT) = 255 'Byte.MaxValue
        SetKeyboardState ks
        SendMessage txt.hwnd, WM_KEYDOWN, VK_HOME, 0 ' &H1470001
        SendMessage txt.hwnd, WM_KEYUP, VK_HOME, 0 ' &HC1470001
        ks.kbByte(VK_SHIFT) = 0
        SetKeyboardState ks


У меня сначала бейсик пару раз упал... но оказалось, что это GetKeyboardState, видимо, в win32.tlb криво прописана

Передекларировал руками и - уаля! - всё работает А lParam я из любопытства таки закомментировал Кстати, в связи с чем ещё крошечный вопросик: а скан-коды на разных клавах действительно могут оказаться совсем разными? или всё-же есть какой-то стандарт?

[tyomitch]

У стандартных кнопок стандартные коды, у нестандартных -- нестандартные

[arthur2]

То есть, за основные клавиши можно не бояться? Это хорошо! А, допустим, слеш - которая бывает на разнык клавах в разных местах - у неё тоже сканкод везде одинаковый? (очень хочется на это надеяться