.net随笔-vb.net 系统计时器

TickCount属性提供对计算机的系统计时器的访问，从计算机的系统计时器获取毫秒计数。
该计时器在计算机处于活动状态时运行。定时器的分辨率不小于500毫秒。
您可以使用此属性使您的应用程序的行为依赖于它运行的时间长度，或者您可以使用它来标记事件，这两者都独立于计算机的时钟。
谨慎
当TickCount属性的值达到最大整数值(MaxValue)时，它会跳转到最小整数值(MinValue)，一个负数，并继续递增。
如果计算机连续运行，TickCount在大约24.9天内从0增加到最大值。
TickCount属性仅在操作系统运行时递增;当电脑进入待机或休眠等特定的节能模式时，它会暂停。TickCount属性与计算机的时钟设置无关。

Public Class Form1
Dim startTicks As Integer
Dim endTicks As Integer

Private Function getTimes(startTick, endTick)
Dim uStart As UInteger = CUInt(CLng(startTick) - Integer.MinValue)
Dim uEnd As UInteger = CUInt(CLng(endTick) - Integer.MinValue)
Return uEnd - uStart
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
startTicks = My.Computer.Clock.TickCount
Button2.Enabled = True
Button1.Enabled = False
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
endTicks = My.Computer.Clock.TickCount
Dim msTotalTime = getTimes(startTicks, endTicks)
Dim msTime = CInt(msTotalTime Mod 1000) '毫秒
Dim sTime = CInt((msTotalTime / 1000) Mod 60) '秒
Dim mTime = CInt(sTime / (1000 * 60)) '分
Label1.Text = CStr(mTime) & ":" & CStr(sTime) & ":" & CStr(msTime)
Button2.Enabled = False
Button1.Enabled = True
End Sub
End Class