|
|
|
Нужно чтобы нельзя было выйти из поля , пока не будет введено правильное з
|
|||
|---|---|---|---|
|
#18+
Подскажите ответ на простой вопрос: Нужно чтобы нельзя было выйти из поля txtD2, пока не будет введено правильное значение: Private Sub txtD2_Validate(Cancel As Boolean) If DateDiff("d", txtD1.Text, txtD2.Text) > 10 Then MsgBox ("Очень большой диапазон !") End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.06.2003, 14:09 |
|
||
|
Нужно чтобы нельзя было выйти из поля , пока не будет введено правильное з
|
|||
|---|---|---|---|
|
#18+
Ну что то вроде этого на Lostfocus Public Sub txtChange(txtobj As TextBox) If Len(txtobj.Text) > 0 And Not IsNumeric(txtobj.Text) Then MsgBox "В поле допустимы только цифры.", vbExclamation, "Сообщение" txtobj.SelStart = 0 txtobj.SelLength = Len(txtobj.Text) txtobj.SetFocus End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.06.2003, 14:31 |
|
||
|
Нужно чтобы нельзя было выйти из поля , пока не будет введено правильное з
|
|||
|---|---|---|---|
|
#18+
Я делаю так: для поля, в которое предполагается вводить дату (использую маск эдит контрол): Private Sub txmДатаРожд_Validate(Сancel As Boolean) ' если юзер ввел вообще не дату If Not IsDate(txmДатаРожд) Then Сancel = True Beep Else ' ввел дату, делаем проверку ограничений на дату ' dtДатаРожд - переменная, которая в дальнейшем используется в другом месте dtДатаРожд = txmДатаРожд If твое условие не выполняется Then Сancel = True Beep Else Сancel = False End if End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.06.2003, 17:02 |
|
||
|
|
start [/forum/topic.php?fid=60&tid=2171136]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
49ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 12ms |
| total: | 147ms |
| 0 / 0 |
