| Вопрос: Русский текст или Анг в TextBox??? | Добавлено: 13.08.06 12:26 |
Автор вопроса:  KEP
|
| Скажите пожалуйста как узнать Английский ли текст в TextBox или русский если Английский то переменной Id=1 если русская Id=0 |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 13.08.06 12:37 |
|
dim i as long
dim s as string * 1 dim f as boolean for i = 1 to len(text1.text) s = ucase$(mid$(text1.text, i, 1)) if s >= "А" and s <= "Я" then f = true exit sub / exit function end if next |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 13.08.06 12:37 |
| exit sub / exit function / exit for точнее | ||
|
Номер ответа: 3 Автор ответа: KEP Вопросов: 44 Ответов: 119 |
Профиль | | #3 | Добавлено: 13.08.06 12:41 |
| Сбасибо! Выручил! | ||
Страница: 1 |