Установа SetFocus на объект

Пользователь

Сообщений: 16 Регистрация: 27.01.2017

27.02.2017 21:22:57

Добрый вечер. Есть форма на которой Textbox1 в котором надо постоянно держать фокус.
Происходят действия и фокус надо вернуть в Textbox1.
Если обрабатываю изменения TextBox1 по нажатию "Ввод" с помощью TextBox1_KeyDown ( именно так мне и надо), фокус останавливается на другом объекте, но далее форма работает и его можно вернуть в TextBox1. В примере останавливается фокус на CommandButton1, а в рабочем файле на кнопке на которой меняется свойство Visible, но в примере так не получается.
Если выполнять TextBox1_Change, все работает корректно.
Может кто подскажет в чем тут загвоздка?

Прикрепленные файлы

пример.xlsm (15.89 КБ)

БМВ Модератор Сообщений: 23278 Регистрация: 28.12.2016 Excel 2013, 2016	#2 27.02.2017 21:32:20 Загвоздка видимо в том, что пример не показателен и не соответвует тому что в рабочем файле. Как вы представляете поиск неисправности в том что работает? По вопросам из тем форума, личку не читаю.

kapso2 Пользователь Сообщений: 16 Регистрация: 27.01.2017	#3 27.02.2017 21:34:10 Если нажать ввод в TextBox1, выполниться Sub sobytie, но фокус не вернется в TextBox1.

Юрий М

Модератор

Сообщений: 61035 Регистрация: 14.09.2012

Контакты см. в профиле

27.02.2017 22:37:24

Костыль:

Код
Public Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Call sobytie Me.Hide UserForm1.Show End If End Sub

И добавить событие активации:

Код
Private Sub UserForm_Activate() Me.TextBox1.SetFocus End Sub

kapso2 Пользователь Сообщений: 16 Регистрация: 27.01.2017	#5 28.02.2017 08:02:44 Юрий М, Спасибо. Заработало!!!!

БМВ Модератор Сообщений: 23278 Регистрация: 28.12.2016 Excel 2013, 2016	#6 28.02.2017 08:10:58 kapso2, на кнопках и других вредных для вас контролсов TABStop=TRUE заменитена FALSE или удалите TABIndex. Костыль от Юрия прекрасен, но это перебор. Изменено: БМВ - 28.02.2017 08:13:04 По вопросам из тем форума, личку не читаю.