Проверка введённых данных
При работе с текстовыми полями часто возникает необходимость проверки правильности введённой пользователем информации перед тем, как использовать её в программе. Для этого в Visual Basic 6.0 определено событие Validation. Это событие может возникнуть в текстовом поле только в том случае, если для выбранного элемента управления значение свойства CausesValidation равно True. Событие Validation возникает тогда, когда элемент управления теряет фокус или пользователь щёлкнул по любому элементу управления, у которого значение свойства Enabled равно True.
Для проверки введённой пользователем информации в Visual Basic определены следующие функции:
Синтаксис функции |
Описание |
Function Val (String As String) As Double |
Преобразует начало строки в число. Если строку невозможно преобразовать в число, вращает ноль |
Function Len (Expression) As Long |
Возвращает количество байт, которое занимает параметр Expression в оперативной памяти. Если тип Expression – строка переменной длины (String), то возвращает количество символов в строке. Если тип Expression – строка фиксированной длины (String * N), то возвращает N. Если тип Expression - Double, то возвращает 8. |
Function IsNumeric (Expression) As Boolean |
Возвращает True, если выражение может быть преобразовано в число |
Function IsNull (Expression) As Boolean |
Возвращает True, если выражение не содержит данных |
Function IsDate (Expression) As Boolean |
Возвращает True, если выражение может быть преобразовано в дату |
Function IsArray (VarName) As Boolean |
Возвращает True, если переменная является массивом |
В следующем примере приведён фрагмент кода, который помещает в надпись lblMes сообщение об отсутствии числовых данных в текстовом поле txtN:
Private Sub txtN_Validate (Cancel As Boolean)
If Not IsNumeric ( txtN ) Then ‘ если текстовое поле txtN содержит нечисловое значение
lblMes = “Введите в поле число” ‘ передаёт надписи lblMes строку “Введите в поле число”
End If
End Sub