Question

我无法弄清楚如何在VB中停止后显示定时器的值。

我试过像MsgBox(Val(Timer2))这样的东西但显然并不那么简单。

Answer 1

也许秒表课适合你：

    Dim sw As New Stopwatch
    sw.Start()
    'do something, for example:
    Threading.Thread.Sleep(1000)
    sw.Stop()
    MessageBox.Show(sw.ElapsedMilliseconds)

Answer 2

我想你想要的是这个，

Dim StartTime = DateTime.Now()

'Do race stuff



Dim EndTime = DateTime.Now()

Dim ElapsedSeconds = EndTime.Subtract(StartTime).TotalSeconds

Answer 3

计时器不这样做。但是你可以使用各种日期/时间函数来做同样的事情。

Dim startTime As DateTime
Dim elapsed As DateTime
' ...
Timer2.Start()
startTime = Now

' after race finishes, then:
elapsed = Now - startTime

这会为您提供TimeSpan个对象。

或

Dim startTime As Integer = Environment.TickCount
' ...
Dim elapsed As Integer = Environment.TickCount - startTime

这为您提供了以毫秒为单位的总时间。

显示定时器的值 - VB

3 个答案: