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

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

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

nstring = thisform.Text1.Value

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

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

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

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


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