"Tomas Christiansen" <toc@blikroer.removethis.dk> skrev i en meddelelse
news:a63fb5$mna$1@news.cybercity.dk...
> Bjørn skrev:
> > Det spiller max
>
> Husk blot at når dit program "sover" med Sleep, så er det IKKE til at
> vække før sleep-perioden er udløbet!
> Med andre ord reagerer dit program på INTET (museklik, event, ...) i
> den tid.
>
> Længere pauser (over 1 sekund) kan f.eks. foretages med en løkke
> indholdende en sleep med en passende tid (f.eks. 100 ms), som kører
> indtil vente-tiden er overstået. Derved vil dit program reagere på
> "ydre stimuli" selvom det "venter".
Helt enig. Ved lange pauser, hvor præcisionen ikke er *så* væsentlig, plejer
jeg at bruge en Sub noget i retning af:
Public Sub Pause(sVent As Single)
Dim sPauseStart as Single
sPauseStart = Timer
Do Until Timer > sPauseStart + sVent
DoEvents
Loop
End Sub
Man skal bare tænke grundigt over, hvad der kan ske, mens løkken kører.
DoEvents kan godt være lidt 'farlig', men den tillader f.eks. at klik på an
Annuller-knap registreres.
--
mvh
Jens Vestergaard
www.railsoft.dk