delay i VB

et eksempel

Private Sub Command1_Click()
Dim tid As Date

Start:
MsgBox "Hej, nu sover jeg i 3 sekunder"
tid = Now() + TimeSerial(0, 0, 3)
Do Until Now = tid
DoEvents
Loop
GoTo Start
End Sub

Jeg kigger på om det løste problemet her iaften, isåfald skal du nok få pointene iaften (:

Der kommer en fejl, den siger bare "Ændringen fra strengen "03-03-2010 21:53:1800:00:03" til typen 'Date' er ikke gyldig."

Private Sub form_front()
start:
        Dim tid As Date
        Me.Activate()

        tid = Now() + TimeSerial(0, 0, 3)
        Do Until Now() >= tid

        Loop
        GoTo start
    End Sub

Private Sub form_front()
  Dim tid As Date' sæt det i rigtig rækkefølge, den skal være før start.
start:
   
        Me.Activate()

        tid = Now() + TimeSerial(0, 0, 3)
        Do Until Now() >= tid
      DoEvents' laver så programmet ikke fryser, den skal med
        Loop
        GoTo start
    End Sub

Stadigt samme problem desværre.

må jeg se den sleepkode hvor du siger den fryser? og med fryser mener du at den fryser fuldstændig i 3 sekunder eller permanent?

Private Sub form_front()
    Dim tid As Date

    start:
          Me.Activate()
   
      tid = Now() + TimeSerial(0, 0, 3)
      Do Until Now() >= tid
   
      Loop
      GoTo start
    End Sub

Den siger at programmet ikke svarer og fryser fuldstændigt, lidt efter gør den så det den skal, men applikationen er stadigt ikke tilgængelig idet den stadigt fryser.

prøv at bruge windows API's sleep
f.eks.

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub testSleep()
MsgBox "start"
Sleep 3000
MsgBox "3 sekunder efter klikket ok"
End Sub

Har jeg prøvet, det får den til at fryse FULDSTÆNDIGT

Skal ikke bruges mere, gik bort fra projektet da det var noget jeg lavede på efterskole, hvilket er ligegyldigt nu