Question

我正在尝试用hh：mm：ss格式编写秒表。我有一个计时器，当你点击开始按钮时启动，当你点击停止按钮时停止。我有一个标签，当它启动时它有文本00:00:00 计时器有和1000的间隔，所以它每秒更新标签，但当我尝试添加00:00:00 + 00:00:01我得到一个错误，我试图解析但我失败了悲惨

我更新标签的代码：

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()

感谢您的帮助，

意思是当你按下开始然后停止然后再次启动它将从停止的地方继续

布鲁诺

Answer 1

您会发现使用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来显示秒数。

AddSeconds :MSDN

VB 2012窗体中的秒表

1 个答案: