2015-07-21
240
При работе с текстовыми полями часто возникает необходимость проверки правильности введённой пользователем информации перед тем, как использовать её в программе. Для этого в 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
