| Вопрос: Остановка программы | Добавлено: 02.05.07 22:08 |
Автор вопроса:  litt
|
|
Допустим, у меня есть текстовое поле. Если в него ничего не введено, то вылезает MsgBox с ошибкой... и программа выполняется дальше... Как сделать так:
если в это поле ничего не введено... программа останавливалась и ждала до тех пор, пока не введут значение этой переменной? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Alexandrus ICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #1 | Добавлено: 02.05.07 22:21 |
Когда вылазить MsgBox,прога итак останавливается Заблокируй дальнейшие действия для пользователя, пока он не введёт данные,проверяй по таймеру...
|
||
|
Номер ответа: 2 Автор ответа: intel-DXICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | | #2 | Добавлено: 02.05.07 22:50 |
|
1)это когда надо вводить данные фиксированой длины, где N количество символов нужное в Text1
Установи в свойствах Text1 MaxLenght = N Private Sub Command1_Click() If Len(Text1.Text) <> N then MsgBox "Ану заполни поле!!!" Exit Sub End if '*********Kod Programmu************** End Sub 2)Когда в Text1 должно хотя бы чтото должно быть Private Sub Command1_Click() If Text1. = " " or Text1.Text <> "" then MsgBox "Ану заполни поле!!!" Exit Sub End if '*********Kod Programmu************** End Sub |
||
|
Номер ответа: 3 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #3 | Добавлено: 02.05.07 22:58 |
|
На сколько я понял юзер вводит что - то в текстовое поле и нажимает на кнопку. Так?
Если так, то нужно просто заблокировать эту кнопку при пустом тексовом поле. Private Sub Text1_Change()
Command1.Enabled = Not (Text1.Text = "" 
End Sub |
||
|
Номер ответа: 4 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #4 | Добавлено: 02.05.07 23:07 |
| Всё вышесказанное справедливо и полностью соответствует -'Заблокируй дальнейшие действия для пользователя...' ...или модально выведи форму для заполнения,не ввёл данные-форму не закрыть! ...или InputBox...Вариантов много-выбирай... | ||
|
Номер ответа: 5 Автор ответа: litt Вопросов: 6 Ответов: 18 |
Профиль | | #5 | Добавлено: 03.05.07 18:09 |
| ВСЕМ ОГОРМНОЕ СПАСИБО ЗА ПОМОЩЬ!!! Вы супер. | ||
Страница: 1 |