Запрет ввода в текстовое поле буквенных символов

Языки ASM, Pascal, C/C++, Perl, Delphi, PHP, Java...
Программируем сами, помогаем друг другу...

Модераторы: Al_lexx, Sharp, ionika, Happy_MAN, 0xFF, Atom, Serega S.U.

Ответить
TillLinderman
Сообщения: 919
Зарегистрирован: 08 июн 2006, 20:11

Запрет ввода в текстовое поле буквенных символов

Сообщение TillLinderman » 10 окт 2008, 15:19

Всем добрый день! Вопрос: на форме 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). Какое условие задать чтобы оно выполнялось без ошибки?

Аватара пользователя
uza
Сообщения: 922
Зарегистрирован: 16 янв 2008, 13:54

Сообщение uza » 10 окт 2008, 15:43

1) Ошибка типов в варианте "РАВНО" лечится приведением числа к строке

Код: Выделить всё

Val(text1.text)
заменить на

Код: Выделить всё

Str((Val(text1.text))

2) Не скажу за шестой, но в 2005, 2008м есть контрол, звать NumericUpDown - для ввода чисел пользую его. В нем же удобно задать разделение триад - что для больших чисел есть весьма удобно.

Вот еще по теме http://www.vbstreets.ru/VBdotNET/Articles/65960.aspx
Удалил этот форум из избранного!

Аватара пользователя
uza
Сообщения: 922
Зарегистрирован: 16 янв 2008, 13:54

Сообщение uza » 10 окт 2008, 15:54

Удалил этот форум из избранного!

Ответить