Помогите с TextBox!

[Nazar]

Требуется проверка вводимых данных при вводе их с клавиатуры в окно TextBox. Процедура проверки вызывается по событию Text_Change. При этом если данные вводятся в этот же TextBox программно процедура проверки не нужна, а она все равно вызывается. Как решить проблему?
Спасибо.

[Nicky]

Form1.KeyPreview = True
Form_KeyDown -> KeyCode - 0
Form_KeyPress -> KeyAscii = 0

[inq]

Завести булевую переменную?

[alibek]

Видимо, флаговой переменной, которая будет устанавливаться, когда обработка уже не нужна.

[Конь]

Можно правда завести булевую, например:

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

Dim bAutoChange As Boolean

Private Sub Text1_KeyPress()

    bAutoChange = False

End Sub

Private Sub Text1_Change()

    If bAutoChange = False Then
        '-----Здесь вызывается процедура проверки данных-----
        bAutoChange = True
    End If

End Sub