TextBox Validate

[VVitafresh]

При переходе (клике) на следующий текстбокс выполняется код Validate для текущего:

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

Private Sub Text1_Validate(Cancel As Boolean)
    Dim i
    i = MsgBox("Test", vbYesNo, "Test")
End Sub

После этого для того, чтобы перейти на следующий контрол нужно щелкнуть не один а ДВА раза (после первого клика фокус остается в том же текстбоксе). Если MsgBox не вызывать, все работает как обычно.

Глюк или фича? И как это обойти?

[VVitafresh]

Хочу понять у меня глюки или это у всех так.

Если не сложно попробуйте у себя на форме положить два текстбокса Text1 и Text2 и добавить код:

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

Private Sub Text1_Validate(Cancel As Boolean)
    Dim i as Long
    i = MsgBox("Test", vbYesNo, "Test")
End Sub

Установить фокус на Text1, щелкнуть на Text2, ответить на вопрос месседжбокса (Yes или No) и снова щелкнуть на Text1

Курсор сразу переходит на Text1 или нужно щелкнуть повторно?

[Antonariy]

Нужно щелкнуть повторно.
Add:
Потому что до ответа в Text2 произошел keydown, а после ответа keyup не происходит. Текстбокс остается в состоянии выделения текста.

[Andrey Fedorov]

Вообще-то - нафига выдавать сообщение, если все введено правильно?

[VVitafresh]

Antonariy, есть мысли, как это можно исправить?

Andrey Fedorov, долго объяснять...

Вкратце:
В БД есть справочкик пользователей (ID, ФИО). Есть форма ввода, где нужно вводить определенные данные и среди них есть ФИО и идентификатор пользователя (нечто вроде табельного номера).

Проблема в том, что не всегда в справочнике есть актуальные данные, поэтому разрешается вводить ФИО и идентификатор вручную. Хочу сделать, чтобы при вводе ФИО, которое есть в справочнике идентификатор автоматически "подтягивался", однако если в текстбоксе уже есть другой идентификатор спрашивать у пользователя, заменить его или оставить. Для этого в Validate делается проверка и выводится вопрос. Примерно так.

[Antonariy]

Сделать mouse_click после ответа?

[VVitafresh]

В смысле mouse_event?

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

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI

Вроде работает. Придется так наверное.