VB2012窗體上的秒錶

我試圖編寫一個格式爲hh：mm：ss的秒錶。我有一個計時器，當你點擊開始按鈕時開始，當你點擊停止按鈕時停止。我有一個標籤，當它啓動它有文本00:00:00 計時器和1000的間隔，以便它每秒更新標籤，但是當我嘗試添加00:00:00 + 00:00時： 01我得到一個錯誤，我試圖解析，但我悲慘地失敗了VB2012窗體上的秒錶

我對標籤的更新代碼：

Dim total As Date 
Dim segundo As Date 
Dim actual As Date 

actual = DateTime.Parse(Label22.Text) 
segundo = DateTime.Parse("00:00:01") 
total = actual + segundo 

Label22.Text = total.ToShortTimeString

然後按鈕有：

Timer2.Start()

和

Timer2.Stop()

感謝您的幫助，

的IDEIA是，當你按下開始後停止然後再啓動它會繼續從停止的地方

布魯諾

來源

2013-07-24 Newbie

你收到了什麼錯誤，哪一行沒有考慮你？（錯誤不只是隨機文本 - 它們的含義有助於解決問題。） –

編譯時出錯，編譯然後當我點擊開始時，我得到：Aconversãoda cadeia「24-07-201324-07- 2013 00:00:01「para o tipo'Date'nãoéválida。翻譯：鏈「24-07-201324-07-2013 00:00:01」到類型「日期」的轉換無效。但我不明白從哪裏來的鏈：S – Newbie

你會發現它更容易只是爲了使用AddSeconds(1)

Dim total As Date 
'Dim segundo As Date 
Dim actual As Date 

actual = DateTime.Parse("00:00:00") 
    'or actual = DateTime.Parse(Label22.Text) 

'Debug.Print(actual) 
'segundo = DateTime.Parse("00:00:01") 
total = actual.AddSeconds(1) 

Debug.Print(total.ToLongTimeString) 
    'or Label22.Text = total.ToLongTimeString

segundo不再需要和我使用ToLongTimeString展現SE conds。

AddSeconds :MSDN

來源

2013-07-24 22:59:06

感謝您的幫助，偉大的作品:) – Newbie

不客氣。祝你好運。 –

VB2012窗體上的秒錶

回答

相關問題