Vent 1 sek...

[Zethyr]

Bare leker meg med et script i Visual Basic, som jeg fant på nett. For å utvide det trenger jeg å vi te hvordan vente i 1 sek via Visual Basic??

[b-urn]

Bare leker meg med et script i Visual Basic, som jeg fant på nett. For å utvide det trenger jeg å vi te hvordan vente i 1 sek via Visual Basic??

 

Enkelt spørsmål.. komplisert svar.

Vel kanskje ikke så veldig komplisert..

 

Du kan bruke api-funksjonen Sleep()

 

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





Sleep 1000 '<--- venter i 1 sek

 

Merk! Denne kommandoen fryser den aktive tråden din.

En løsning på dette problemet kan være:

 

'//Løkke som venter tilsammen 1sek

For intCounter = 1 To 10

   Sleep 100

   DoEvents

Next

 

Alternativt kan du lage en timer basert på klokkeslett. Dvs loope i en do-while-løkke inntil et gitt antall ms/sek har passert.

[Nemis]

Bare sleng på en timer kontroll og sett interval til 1000.

 

Den kjører Timer1_Timer() prosedyren sin nå hvert sekund.

 

Eks, endrer caption på en label til "hepp" etter ett sekund og stopper der:

Option Explicit



Dim intSec As Integer



Private Sub Form_Load()

   intSec = 0

End Sub



Private Sub Timer1_Timer()

   intSec = intSec + 1

   If intSec > 1 Then

       Timer1.Enabled = False

   Else

       Label1.Caption = "hepp"

   End If

End Sub

 

Muligens tungvint, men pøsj, det funker...