Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / проверка при вводе / 8 сообщений из 8, страница 1 из 1
21.09.2011, 15:19
    #37450013
Lena1234
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
Помогите!!!нужна проверка при вводе в TextBox первая чтоб была буква а уже остальные могут быть цифры по желанию пользователя!
...
Рейтинг: 0 / 0
21.09.2011, 16:35
    #37450211
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
Lena1234,

ISALPHA() и ISDIGIT() в помощь
...
Рейтинг: 0 / 0
21.09.2011, 16:36
    #37450215
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
Код: plaintext
TextBox.InputMask = "AXXXXXXXXX"
...
Рейтинг: 0 / 0
21.09.2011, 16:58
    #37450285
aasa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
ВладимирМ,igorbik
а примерчика нет у вас( что то не получается(....
...
Рейтинг: 0 / 0
21.09.2011, 17:10
    #37450308
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
aasaВладимирМ,igorbik
а примерчика нет у вас( что то не получается(....

Что именно не получается? Что делаете?
...
Рейтинг: 0 / 0
21.09.2011, 17:30
    #37450356
aaasss
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
IgorNG,

nstring = thisform.Text1.Value

If ISDIGIT(nstring)
.........................
....................
endif

это пошло а вот не подскажете для символов как поставить такое же условие ?????
...
Рейтинг: 0 / 0
21.09.2011, 17:43
    #37450377
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
Да не надо никакого кода писать. Вообще.

У объекта TextBox есть такое свойство InputMask. Вот в этом свойстве и указываете первым символом символ "A" (латинская), далее несколько символов "X" (латинская). Общее количество символов равно максимальному количеству символов, которое может быть введено в этот объект

В результате, пользователь просто не сможет ввести первым символом ничего, кроме букв. Маска не даст. Хотя программно можно ввести все что угодно.
...
Рейтинг: 0 / 0
21.09.2011, 18:00
    #37450410
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка при вводе
aasaВладимирМ,igorbik
а примерчика нет у вас( что то не получается(....По Максимову: если нужно предотвратить ввод первым символом цифру, а всех других - буквы, то нужно назначить свойству INPUTMASK текстбокса значение "A9999999" (без кавычек), при этом нужно еще знать, сколько символов в поле должно будет анализироваться, и дописать соотв. число "девяток".

Другой вариант посложнее. В метод VALID, или LOSTFOCUS, или KEYPRESS (и т.п.) пишем программу обработки неверного ввода. Например, в VALID можно так:

IF NOT ISALPHA(ALLT(THIS.VALUE))
*здесь обрабатываем ошибку ввода первого символа
* например, если ввели цифру, то RETURN .F. и пр.
ELSE
* анализируем другие символы, начиная со второго
FOR NUM1 = 2 TO LEN(ALLT(THIS.VALUE))
IF NOT ISDIGIT(SUBSTR(ALLT(THIS.VALUE), NUM1, 1)
*здесь обрабатываем ошибку ввода последующих символов
* например, если ввели букву, то RETURN .F. и пр.
ENDIF
NEXT
ENDIF

Вот где-то так.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / проверка при вводе / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]