Kom ihåg mig?

Timer VB

Ämnesverktyg Visningsalternativ
Oläst 2007-05-19, 00:24 #1
WaZoR.ses avatar
WaZoR.se WaZoR.se är inte uppkopplad
Nykomling
 
Reg.datum: Jul 2006
Inlägg: 42
WaZoR.se WaZoR.se är inte uppkopplad
Nykomling
WaZoR.ses avatar
 
Reg.datum: Jul 2006
Inlägg: 42
Har undrat det här länge nu.... VB script <_<
Är det någon som vet hur man gör för att en sub() eller en backgrundworker ska vänta i ca 10sek innan den gör något igen...?! Ska helst vara så enkelt som möjligt.
WaZoR.se är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-05-19, 00:59 #2
WaZoR.ses avatar
WaZoR.se WaZoR.se är inte uppkopplad
Nykomling
 
Reg.datum: Jul 2006
Inlägg: 42
WaZoR.se WaZoR.se är inte uppkopplad
Nykomling
WaZoR.ses avatar
 
Reg.datum: Jul 2006
Inlägg: 42
Jag kom på det....

Kod:
    Timer.Interval = 100
    Timer.Start()


  Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
    If Timer.Interval > 1 Then
      Timer.Interval = Timer.Interval - 1
    Else
      Timer.Stop()
    End If
    status.Text = Timer.Interval
  End Sub
kanske inte den enklaste men det funkade :P
WaZoR.se är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-05-20, 13:57 #3
dAEks avatar
dAEk dAEk är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Dec 2006
Inlägg: 678
dAEk dAEk är inte uppkopplad
Mycket flitig postare
dAEks avatar
 
Reg.datum: Dec 2006
Inlägg: 678
VBScript har ingen motsvarighet till Thread.sleep() vad jag kan minnas. Istället får man mecka ihop en egen komponent som sköter den biten.

Rubriken säger VB, i inlägget står det VB Script, koden ovan ser ut som VB.NET. Humor.
dAEk är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-05-20, 14:31 #4
Jan Eriksson Jan Eriksson är inte uppkopplad
Har WN som tidsfördriv
 
Reg.datum: May 2004
Inlägg: 1 352
Jan Eriksson Jan Eriksson är inte uppkopplad
Har WN som tidsfördriv
 
Reg.datum: May 2004
Inlägg: 1 352
För VBScript i WSH (5 sekunder fördröjning)

Wscript.Sleep 5000


För VBScript i en ASP-sida (5 sekunder fördröjning)

<%
Set oShell = CreateObject("wscript.shell")
ResponseDummy = oShell.Popup ("",5,"")
%>
Jan Eriksson är inte uppkopplad   Svara med citatSvara med citat
Svara


Aktiva användare som för närvarande tittar på det här ämnet: 1 (0 medlemmar och 1 gäster)
 
Ämnesverktyg
Visningsalternativ

Regler för att posta
Du får inte posta nya ämnen
Du får inte posta svar
Du får inte posta bifogade filer
Du får inte redigera dina inlägg

BB-kod är
Smilies är
[IMG]-kod är
HTML-kod är av

Forumhopp


Alla tider är GMT +2. Klockan är nu 23:54.

Programvara från: vBulletin® Version 3.8.2
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Svensk översättning av: Anders Pettersson
 
Copyright © 2017