0

我正在尝试使用 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()

感谢您的帮助，

想法是，当您按开始然后停止然后再次启动时，它将从停止的地方继续

布鲁诺

4

1 回答 1

0

你会发现它更容易使用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用来显示秒数。

添加秒数：MSDN

于 2013-07-24T22:59:06.513 回答