Ur der tæller realtime?

Brug Win32 funktionen Sleep(milliseconds).
Den "pauser" din applikation med x antal millisekunder (1/1000s).
Dvs. du skal lave en Sleep(1000);

Den burde vel være i Visual Basic?

1101110100010110000101000001

Husk, det tager 42 muskler at se sur ud, det tager kun 6 at slå idioten ned...

[Redigeret d. 01/12-04 22:23:42 af Nicolai Lyster Fersner]

Det virkede ikke, den siger "Sub or function not defined"

Ville koden ikke bare hedde:


Do until 1 = 2
txtTest.caption = time
Sleep(1000)
Loop

Sleep er en api funktion så du skal i genral først

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

så brude den kode, virker, men jeg vil evt. også placer et DoEvents
så programmet ikke bare hænger, folk skal vel også have mulighed for at komme ud igen?


Do until 1 = 2
txtTest.caption = time
Sleep(1000)
DoEvents
Loop


-Thomas
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Det virkede ikke, den siger "Sub or function not defined"

Ville koden ikke bare hedde:


Do until 1 = 2
txtTest.caption = time
Sleep(1000)
Loop

Hmm, det virker ikke. Den lagger bare, og nårh jeg afslutter VB skriver den bare den aktuelle tid. Man kan ikke se den tælle!

Hmm, det virker ikke. Den lagger bare, og nårh jeg afslutter VB skriver den bare den aktuelle tid. Man kan ikke se den tælle!

Denne kode virker

Form1.Show
Do Until 1 = 2
DoEvents
txtTest.Caption = Time
Sleep (1000)
Loop

-Thomas
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Kan det have noget at gøre med at det er i et DHTML dokument?
Den virkede heller ikke.....

[Redigeret d. 02/12-04 20:58:08 af Mads Larsen]

Det virker fint nok i et normalt VB script!, men åbenbart ikke i et DHTML dokument gennem VB6... :-( hvad gør jeg så?

Det virkede ikke, den siger "Sub or function not defined"

Ville koden ikke bare hedde:


Do until 1 = 2
txtTest.caption = time
Sleep(1000)
Loop

Sleep er en api funktion så du skal i genral først

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

så brude den kode, virker, men jeg vil evt. også placer et DoEvents
så programmet ikke bare hænger, folk skal vel også have mulighed for at komme ud igen?


Do until 1 = 2
txtTest.caption = time
Sleep(1000)
DoEvents
Loop


-Thomas
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Hej
Jeg prøvede forleden dag at lave et prog som popper et form vindue og det er meningen af kodden stoppes indtil at man har gjort noget på formen. Prøvede med Do Loop men det resulterde i at jeg måtte lukke VB med joblisten.
Kan jeg bruge sleep(X)?
PS. Det skal være en slags MSG som proget kan ændre.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Kom ved et stor uheld til at klikke to gange. Slet bare dette....
UPS!
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

[Redigeret d. 03/12-04 18:52:29 af Jonas Termannsen]