В одном моём таймере в эдитбокс нужно вводить время от 0 до 23 часов.
Чтобы сделать ограничение, я создал скрипт под названием Check,
который выполняется каждый раз при вводе значений в эдитбокс. Вот
этот скрипт:
| Code |
If (H>23) Then
H=0
H$=CHAR(H)
LoadText("BoxH","H$")
End
If (H<0) Then
H=0
H$=CHAR(H)
LoadText("BoxH","H$")
End
For hour =0 To 9
bagH$ = '0'+CHAR(hour)
If (H$=bagH$) Then
H=hour
H$=CHAR(H)
LoadText("BoxH","H$")
End
Next hour |
Последний цикл в этом скрипте нужен, чтобы в эдитбокс не вводили
всякие там 07, 009 и т.д.
Все права защищены
