DevTrain Forum - Re: sleep/delay ähnlicher befehl

Forum: Visual Basic | Thema: Re: sleep/delay ähnlicher befehl | Von: G. Guest ( 16.01.2004 11:35)

		Private Sub Command1_Click()
  Call Sleep(txtZeit)
End Sub

Sub Sleep(Sekunden As Integer)
  Dim IstSekunden As Single
  IstSekunden = Timer
  Debug.Print Time, Timer
  While Timer < (IstSekunden + Sekunden)
    ' Ist währenddessen Mitternacht vorbei?
    If IstSekunden > Timer Then
      IstSekunden = IstSekunden - 86400
    End If
    DoEvents
  Wend
  Debug.Print Time, Timer
End Sub



	

Betreff Von Datum

Re: sleep/delay ähnlicher befehl

hey mercy mal, funktioniert einwandfrei!..<br>

G. Guest 17.01.2004 00:13

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!