Формы и элементы управления

Вопрос

Как проверить корректность ввода различной информации в соответствующие текстовые поля формы (цифры или текст)?
Может есть уже готовые коды?

Ответ

Если надо проверять ввод каждого символа, то проверку надо встроить в процедуру Text1_KeyPress.

Для проверки на цифру в VB есть функция IsNumeric, если есть необходимость, то можно вставить проверку на нажатие специфических клавиш (забой — KeyAscii=8, Tab — KeyAscii=9, и др.).

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
Print «Введена цифра»
Else
Print «Введена не цифра»
End If
End Sub

Из конференции Expert_FAQ