Всем добрый день! Вопрос: на форме VB6 есть поле text требуется запретить пользователю вводить туда буквы. То есть что-то типа: если введен любой буквенный символ то exit sub" иначе то есть если введена цифра продолжи выполнение программы. Я попробовал так:
if not text1.text = Val(text1.text) then msgbox"error" exit sub. И еще вот так (по моему тоже самое) if text1.text <> Val(text1.text) then .......тоже самое. Результатом является ошибка несоотвествия типа (type.mismatch). Какое условие задать чтобы оно выполнялось без ошибки?
Запрет ввода в текстовое поле буквенных символов
Модераторы: Al_lexx, Sharp, ionika, Happy_MAN, 0xFF, Atom, Serega S.U.
-
- Сообщения: 919
- Зарегистрирован: 08 июн 2006, 20:11
1) Ошибка типов в варианте "РАВНО" лечится приведением числа к строке заменить на
2) Не скажу за шестой, но в 2005, 2008м есть контрол, звать NumericUpDown - для ввода чисел пользую его. В нем же удобно задать разделение триад - что для больших чисел есть весьма удобно.
Вот еще по теме http://www.vbstreets.ru/VBdotNET/Articles/65960.aspx
Код: Выделить всё
Val(text1.text)
Код: Выделить всё
Str((Val(text1.text))
2) Не скажу за шестой, но в 2005, 2008м есть контрол, звать NumericUpDown - для ввода чисел пользую его. В нем же удобно задать разделение триад - что для больших чисел есть весьма удобно.
Вот еще по теме http://www.vbstreets.ru/VBdotNET/Articles/65960.aspx
Удалил этот форум из избранного!
Вот еще по теме http://sources.ru/vb/controls/accept_te ... bers.shtml
Удалил этот форум из избранного!