VB.net Sekunden runterzählen

[~tine~]

hallo

ich habe ein kleines Programm geschrieben, dass mir die Anzahl der Tage und Sekunden zwischen dem aktuellen Datum und einem zukünftigen Datum ausgeben soll. soweit klappt auch alles.

Allerdings schaffe ich es nicht, das Programm dazu zu bringen, die Anzahl der Sekunden auch im Sekundentakt runterzuzählen

ich habs mit einer While-Schleife versucht, aber dann hängt das Programm irgendwie und wird nicht ausgeführt (Fehlermeldungen gibt es allerdings keine).

Vielleicht kann mir ja jemand einen Tipp geben, wo mein Fehler liegt :confused:

Hier mal der betreffende Quellcode:

Private Sub MainFormLoad(sender As System.Object, e As System.EventArgs)

Dim actuell As Date 

Dim Urlaub As Date

Dim CountS As Long

Dim CountD As Integer


actuell = System.DateTime.Today    'aktuelles Datum

Urlaub = CDate("06.08.2005")          


CountD = Urlaub.Subtract(actuell).Days    'Tage bis zum zukünftigen Datum

CountS = CountD*24*60*60                   'Sekunden


Me.lblCountDays.Text = CountD


Do While CountS > 0 

Me.lblCountSec.Text = CountS       'Sekunden runterzählen?

CountS -=1


Loop 


Sub End

Vielen Dank schon mal!

~tine~

[Warfox]

hmmmm vllt nen timer verwenden...nur so ne idee von vielen....

[-roTekuGeL-]

hmmmm vllt nen timer verwenden...nur so ne idee von vielen....

timer is wohl das beste

und wenn man das mit ner schleife machen will sollten da n paar do events rein... aber ka obs die bei VB.NET gibt, bei VB6 gibts die zumindest

[bigredeyes]

nimm den timer aus deiner werkzeugliste [toolbox].

hast du die msdn? rest steht da, sonst nochmal fragen.

bigredeyes

[~tine~]

vielen dank für die antworten! mit dem timer hats ohne probleme funktioniert. :marine

gruß, ~tine~