Проблемы переключения фокуса

[dima-pol]

Приложение стартует с Form1 (невидима) и запускает ee таймер, который выдает в определенный момент (через 5сек) на экран Form2 с TextBox. Я хотел, чтобы в этот момент фокус ввода переместился в TextBox на Form2, даже если в этот момент он в другом приложении (например в NotePad). Как этого добиться? Спасибо.

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

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Form2.Show
Form2.Text1.SetFocus
End Sub

Заголовок Form2 моргает 3 раза, но TextBox не получает фокус ввода.

[Rody66]

Форма1:

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

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Form2.Show
End Sub


Форма2:
Сперва создайте таймер под именем Timer2

Private Sub Form_Load()
Timer2.Interval = 100
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
Text1.SetFocus
End Sub

[dima-pol]

Rody66,

Ваш пример не работает - фокус ввода остается в Notepad

[Хакер]

dima-pol, такое понятие как «foreground window» тебе о чём-нибудь говорит? Если нет, исправь эту ситуацию.

[Rody66]

dima-pol, только что проверил, все сработало, винда семера.
Или я вас не так или у вас иные проблемы.
Попробуйте тогда вот еще что:
Форма1:

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

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Form2.Show
Form2.SetFocus
End Sub

форма2:

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

Private Sub Form_Load()
Timer2.Interval = 100
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
me.SetFocus
Text1.SetFocus
End Sub

[Sam777e]

Не имею возможности проверить, но не поможет ли волшебное слово vbModal ?

[Хакер]

Гадание и волшебные слова — на другом форуме, пожалуйста.

[dima-pol]

Rody66,
Я запускаю Ваш 2й пример, потом перевожу фокус на Notepad, через 5 сек появляется Form2, (но она на заднем плане, высовывается из-за Notepd, ), заголовок Form2 моргает 3 раза, я набираю текст и он появляется в Notepd, а мне надо чтобы - в TextBox из Form2.
Замечу, что при этом текстовый курсор мигает и в Notepd и в TextBox из Form2.
У меня WinXP.

Хакер,
Следущий код не меняет картину:

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

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Form2.Show
SetForegroundWindow Form2.hwnd
Form2.Text1.SetFocus
End Sub

[Хакер]

Следущий код не меняет картину:

И совершенно правильно.

В некоторый момент в Windows стало запрещено одному приложению перетягивать на себя одеяло фореграундность с другого приложения. И это правильно.

[dima-pol]

Ок, остается одно - имитировать клик мышки по TextBox

[Хакер]

Откуда такая наглость?

[FireFenix]

Никогда не побывал такое, и меня тоже заинтересовал вопрос

Через SwitchToThisWindow мы можем вывести окно на передний план
Но т.к. МС проводит политику относительно SetForegroundWindow, то без неё нельзя установить фокус на своё окно?

[dima-pol]

В моем случае нашлось очень простое решение - надо при запуске программы сделать Form1 (или Form2) видимой хотя-бы на мгновение. Т.е. в VB6 устанавливаем для Form1 Visible = True и ипользуем код:

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

Private Sub Form_Load()
Timer2.Interval = 10
Timer2.Enabled = True

Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Form2.Show
Form2.Text1.SetFocus
End Sub

Private Sub Timer2_Timer()
Me.Visible = False
End Sub