Будьте добры.
Имеем:
PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
PauseTime = 20
Start = Timer
Do While Timer < Start + PauseTime
MyObject.Visible = True
DoEvents
Loop
Если первый или второй циклы должны ПРИНУДИТЕЛЬНО прерываться, то как грамотно оформить Error, т.е. как грамотно ПРИНУДИТЕЛЬНО прерывать тот или другой циклы?
On Error GoTo My_Error что-то не очень на них действует.
Имеем:
PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
PauseTime = 20
Start = Timer
Do While Timer < Start + PauseTime
MyObject.Visible = True
DoEvents
Loop
Если первый или второй циклы должны ПРИНУДИТЕЛЬНО прерываться, то как грамотно оформить Error, т.е. как грамотно ПРИНУДИТЕЛЬНО прерывать тот или другой циклы?
On Error GoTo My_Error что-то не очень на них действует.