Pause 1 sekund

Public Declare Sub Sleep Lib \"kernel32\" Alias \"Sleep\" (ByVal dwMilliseconds As Long)

Sleep 1000

Jeg er meget ny i VB, så jeg er ikke helt med...
Jeg skal have nogle frames til at skifte farve een efter een...

Er det noget i denne retning du mener??

Kode:
Option Explicit

Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)

Private Sub btnstart_Click()
Frame1.BackColor = &HFF&
Sleep 1000
Frame2.BackColor = &HFF&
Sleep 1000
Frame3.BackColor = &HFF&
Sleep 1000
Frame4.BackColor = &HFF&
Sleep 1000
Frame5.BackColor = &HFF&
lblgo.ForeColor = &O0&
End Sub

ja

Så får jeg følgende compile error:
constants, fixed-length strings, arrays, user-defined types and Declare statemants not allowed as Public members of object modules

Så det virker ikke helt:-(

/J

erklær den som private

Private Declare Sub Sleep Lib \"kernel32\" Alias \"Sleep\" (ByVal dwMilliseconds As Long)

Hmmm, I\'m closer...

Nu virker sleep, men den lægger alle 4 sleeps sammen, og venter 4 sek, inden den viser noget som helst... altså skifter de alle stadig farve på samme tid, nu venter den bare 4 sek, inden de skifter!?!?!?!?

Kald DoEvents efter hver FrameX.BackColor

\"Der var den!!\"
\"fedt:-)\"

Tak for hjælpen:-)

Du kan også selv lave en pause. ;)

\'Wait 0.5 \'Wait 1/2 Sec
\'Wait 1 \'Wait 1 Sec

Public Sub Wait(WaitSec)
Dim StartTime As Double
StartTime = Timer
  Do While Timer < StartTime + WaitSec
    If Timer > 86395 Or Timer = 0 Then Exit Do
    DoEvents
  Loop
End Sub

Private Sub Command1_Click()
  Me.BackColor = &H8080FF
  Wait 1 \'Wait 1 Sec
  Me.BackColor = &HFF&
  Wait 1 \'Wait 1 Sec
  Me.BackColor = &HC0&
  Wait 1 \'Wait 1 Sec
  Me.BackColor = &H80&
  Wait 1 \'Wait 1 Sec
  Me.BackColor = &H40&
  Wait 1 \'Wait 1 Sec
  Me.BackColor = Command1.BackColor
End Sub

sjh>> hmmm, ser spændende ud!!
Men jeg er ikke lige VB-haj, så nu spørger jeg måske dumt: Hvorfor skal timer være større end 86395?? Og hvorfor sætter du en DoEvents ind? - er det bare for at VB har noget at lave efter if-sætningen?

/J

Hvorfor bruge tid på at lave noget, som allerede er lavet i Windows?

Det var ikke fordi jeg vile lave det, men mere fordi jeg ikke forstod hans kode...
Jeg har lavet og brugt det du har foreslået:-)

/J

Det var også mere møntet på sjh

Prøv at set tiden til 23:59:45 og kør koden, så stopper koden ikke efter 30 sec. ;-)

Public Sub Wait(WaitSec)
Dim StartTime As Double
StartTime = Timer
  Do While Timer < StartTime + WaitSec
    DoEvents
  Loop
End Sub

Private Sub Form_Activate()
Me.Caption = Val(Timer)
  Wait 30 \'Wait 30 Sec
MsgBox \"Timer er Stoppet\"
End Sub


DoEvents er så du kan flytte vinduet mens Wait køre tiden bliver dov stoppet når du flytter vinduet.