Установка курсора в новое окно

[Summer.05]

Вероятно, вопрос примитивный. Поиск осуществлял по SetFoces, но ответа не нашел.
Прошу подсказать.

На событие Private Sub Form_Load () требуется:
- установить фокус для TextBox1
- установить курсор туда же
- переключить клавиатуру на русский язык.

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

[AjaxVS]

Не SetFoces, а SetFocus:
Text1.SetFocus +_+

Переключение раскладки 100% было на форуме.. Искать влом.

[Summer.05]

AjaxVS
Спасибо! Я допустил опечатку, естественно.
Установив фокус, я не вижу в окне мигающего курсора. Почему?
С переключением раскладки уже разобрался по аналогии.
Спасибо!

[Lexandrus]

Установив фокус, я не вижу в окне мигающего курсора. Почему?

Потому, что курсор находится в другом месте... Ты таким образом установил фокус, а не курсор.

[Lumen]

Попробуй сначала HideCaret hwnd1, где hwnd1 - это дескриптор окна, где в данный момент курсор, а потом ShowCaret your_hwnd, где your_hwnd - это дескриптор твоего окна, которое должно получить курсор.

[tyomitch]

Во дают... Сто апей на ровном месте
Метод .SetFocus сам ставит каретку, я только что проверил.

[Summer.05]

tyomitch
На событие Fom_Load () я установил
Text4.SetFocus

И... ничего/

Курсор в окне Text4 TextBox не появилcя.
Не подскажешь?

[Amed]

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

Private Sub Form_load()
Me.Show
Text4.SetFocus
End Sub

...и все появляется

[vvs_adm]

tyomitch
На событие Fom_Load () я установил
Text4.SetFocus

Скорее всего у тебя в событии Form_Load стоит On Error Resume Next, поэтому курсор и не появляется. Если ты On Error закомментируешь, то увидишь, что он не просто не появляется, а появляется ошибка. Элемент управления не может получить фокус в событии Form_Load , пока форма не отображена.

[Twister]

tyomitch
На событие Fom_Load () я установил
Text4.SetFocus

Скорее всего у тебя в событии Form_Load стоит On Error Resume Next, поэтому курсор и не появляется. Если ты On Error закомментируешь, то увидишь, что он не просто не появляется, а появляется ошибка. Элемент управления не может получить фокус в событии Form_Load , пока форма не отображена.

Голова!...

Во дают... Сто апей на ровном месте
Метод .SetFocus сам ставит каретку, я только что проверил.

Тоже проверял в свое время - истину глаголишь...

[Summer.05]

tyomitch

На событие Fom_Load () я установил
Text4.SetFocus

Скорее всего у тебя в событии Form_Load стоит On Error Resume Next, поэтому курсор и не появляется. Если ты On Error закомментируешь, то увидишь, что он не просто не появляется, а появляется ошибка. Элемент управления не может получить фокус в событии Form_Load , пока форма не отображена.

Да, ты прав, так оно и есть.


Но тогда на какое событие устанавливать Text4.SetFocus, чтобы курсор появился в окне?

[Summer.05]

Amed
Ты прав, этот код работает, но только в том случае, если при этом событии ничего другого не происходит. Во всех остальных случаях выдается ошибка. Так как и писал VVS_adm

[vvs_adm]

Но тогда на какое событие устанавливать Text4.SetFocus, чтобы курсор появился в окне?

В зависимости от того, что тебе именно нужно Если просто, чтобы при загрузке формы фокус был в текстовом поле, то не изголяйся, а установи ему в дизайнере (нужному текстбоксу) TabIndex=0

[Summer.05]

[vvs_adm

Да уж....
Просто как все гениальное...
Спасибо тебе большое!

[Kovu]

Summer.05
Ещё можно повесить передачу фокуса в этот текстбокс на Form_Activate.

[Summer.05]

Kovu
Вот, спасибо, я никак не мог сообразить - под какое событие подвязать передачу фокуса.
Спасибо!