0

hh:mm:ss の形式でストップウォッチをプログラムしようとしています。開始ボタンをクリックすると開始し、停止ボタンをクリックすると停止するタイマーがあります。開始時にタイマーのテキスト00:00:00と1000の間隔があり、ラベルを毎秒更新するラベルがありますが、00:00:00 + 00:00:01 iを追加しようとするとエラーが発生しました。解析を試みましたが、惨めに失敗しました

ラベルを更新するための私のコード:

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、秒を表示するために使用しています。

AddSeconds :MSDN

于 2013-07-24T22:59:06.513 に答える