| |
|
|
| | Добрый день... Не подкините чуть чуть кода:)? есть простая задача.
существует форма в ней три поля, пусть поле 1, поле 2 и поле 3. текстовое, числовое и дата соответственно...
хочется добавить в форму защиту от дурака проверку на корректность ввода, чтобы проверялось что в поле 1 введен текст без цифр, во второе только цифры, а в третьем дата формата 12.12.2007... ???
Заранее спасибо за помощь!
P.S. а еще вопрос есть текстовая переменная в ней строка хранится, как проверить ее на наличие симолов которые нельзя использовать в названии дирректорий и заменить их скажем подчеркиванием? | |
| |
| |
| |
|
|
| | со вторым и 3-м все просто, установите соответсующие форматы полей и маски ввода
с 1-м , если поле не очень длинное то можно маской ввода (см. Help) если длинное, то придется на событие до обновления (или после) анализировать введенное значение на предмет наличия недопустиных символов (см. Instr, Like)
PS. - см. Instr, Like, Replace | |
| |
| |
| |
|
|
| | Как в текстовое поле Text1.Text запретить ввод символов (букв) и разрешить ввод только цифр
'A key is a digit (_KeyPress)
Public Function IsDigit(KeyAscii As Integer) As Boolean
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or (KeyAscii = 44) Or _
(KeyAscii = vbKeyDecimal) Or (KeyAscii = Asc("e")) Or (KeyAscii = vbKeyE) Then
IsDigit = True
Else
IsDigit = False
End If
End Function
|
Чуток переделайте - подумайте и получится - только буквы.  | |
| |
| |
|
|
