实例说明
在本实例中,我们将制作一个能够获得自开机以来Windows运行的时间。程序运行结果如图87-1所示。
图87-1 运行结果
技术要点
l GetTickCount函数
l 换算时间
实现过程
■ 新建项目
打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"GetRunTime",然后选择保存路径。单击"确认"。
■ 添加控件和设置属性
向窗体上添加两个Button控件,将窗体和控件的Text属性改为和界面一致。
■ 添加代码
Private Declare Function GetTickCount Lib "kernel32" () As Integer
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim resRunTime As Long
Dim temp As Double
Dim tempHour,tempMinute,tempSecond As Integer
'获取自windows启动以来经历的时间长度(毫秒)
resRunTime = GetTickCount
'计算秒
temp = resRunTime / 1000
'计算小时
tempHour = temp / 3600
'计算分
tempMinute = (temp / 3600 - tempHour) * 60
'计算秒
tempSecond = ((temp / 3600 - tempHour) * 60 - tempMinute) * 60
MsgBox("Windows运行时间:" & tempHour & ":" & tempMinute & ":" & tempSecond)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
本实例通过调用GetTickCount()函数来得到系统运行的时间,但是使用该函数返回的是毫秒,因此需要经过转化后才能为我们所使用。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。