减小字体
增大字体- ·上一篇文章：如何关闭／重新启动计算机?
- ·下一篇文章：“回调”(CallBacks)的实现
利用Api函数计算Windows从启动后所运行的总时间
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
喜欢这些内容嘛，请告诉你身边的朋友，易下载中心－QQ资源－itnetcn.com一起享受这份乐趣，本站内容来源互联网
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
利用Api函数计算Windows从启动后所运行的总时间
利用Api函数计算Windows从启动后所运行的总时间
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Timer1_Timer()
Dim hour As Integer
Dim minute As Integer
Dim second As Integer
hour = GetTickCount 1000 60 60
Label1.Caption = Str(hour) + "小时"
minute = (GetTickCount - hour * 60 * 60 * 1000) 1000 60
Label2.Caption = Str(minute) + "分钟"
second = (GetTickCount - Val(Label1.Caption) * 60 * 60 * 1000 - Val(Label2.Caption) * 60 * 1000) 1000
Label3.Caption = Str(second) + "秒钟"
End Sub
-
