Stop Sleep

øhhh bare en knap på ovenstående func

???? :0)

huh? denne funktion definerer tiden!

Skriv evt. specifik kode...

Forstår jeg rigtigt?

Du vil sige f.ex. Sleep (120000)

og så være i stand til at afbryde Sleep?

\\Spinner

ja

K. Der må jeg blive dig svar skyldig. Jeg er ikke sikker på det kan lade sig gøre...

En løsning kunne måske være at lave din egen Sleep funktion, der indeholder muligheden for at afbryde.

Lidt a la:

Public Sub SovSoedt(Sekunder as Byte)  'Max 255 sekunder
Afbryd = False
Start = Now()
While (Now() - Start) < Sekunder
  If Afbryd = True then Exit Sub
  DoEvents
Wend
End Sub

Private Sub Command1_Click()
  Afbryd = True
End Sub

I koden:
...
GørDet
SovSoedt(15)  'Sov i 15 sek
GørNogetAndet
...

Det her er skrevet frit fra leveren og skal sikkert tilpasses før det virker. Jeg er ikke engang 100% sikkert på det virker, da jeg ikke helt ved hvordan man skal kalde SovSoedt, uden at den forsætter med GørNogetAndet, inden SovSoedt er færdig.

Men det er da et forsøg værd...

\\Spinner

(Husk at definere Afbryd globalt...

Smid en timer kontrol på formen, sæt interval til fx. 60000 (60 sekunder) og lav din kode i dens OnTimer event. Så bliver koden kaldt efter tidsintervallet og dine knapper virker i mens...

Mvh

tak