Проерка данных при вводе в TextBox

[BIT]

Для корректного ввода данных в TextBox использую процедуру TextBox_Change. Если данные не удовлетворяют неким условиям выполняю TextBox.Text=старые данные, при этом происходит вызов процедуры TextBox_Change (что в общем то и не надо т.к. старые данные - правильные данные). Чтобы этого избежать использую переменную Dostup

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

Dim Dostup As Boolean
Private Sub UserForm_Initialize()
  Dostup = True
  ....
End Sub
Private Sub TextBox_Change()
  If Not Dostup Then Exit Sub
  if Form3.TextBox1.Text ='УСЛОВИЕ' then
    .....
  else
    Dostup = False
    Form3.TextBox1.Text ='СТАРЫЕ ДАННЫЕ'
    Dostup = True
  end if
End Sub


Все работает, но мне кажется есть другой (ПРАВИЛЬНЫЙ) метод решения данной задачи.

[skiperski]

Нормальное решение. Только не забывай сбрасывать флаг

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

If Not Dostup Then Dostup = True: Exit Sub

Есть ещё вариант ставить обработку в KeyPress, но там тоже есть проблемы, т.к. текст ещё не изменён. Можно, конечно, самому его изменить. См. http://bbs.vbstreets.ru/viewtopic.php?t=3657

[SSecurity]

Немножко о проверке ... (так, чтобы 100 сообщений было)
При ошибке условия фокус туда перекидывай и выделяй ТЕКСТБОКС-овский текст ...

Это ценится юзверями

[sanches]

Здесь лучше всего испольщовать _Validate .

Private Sub Text1_Validate(Cancel As Boolean)
If Text1.Text = "" Then Cancel = True
End Sub

Здесь ты не сможешь убрать фокус с текстбокса пока не заполнишь поле.

[Unknown_Error]

][
А я так делаю на событие KeyDown

Private Sub txt_KeyDown( ........ )
txt.locked = IIF((KeyCode > 47 and KeyCode <58) or KeyCode = 8 .....,False,True)
End Sub


- Но тут надо учитывать, что цифры от 0-9 на доп клаве имеют разные коды чем на основной.

Delete - 46