vb怎么添加代码，使窗体运行时，label显示系统当前日期及时间
发布时间:2016-10-13 21:31
财富值39
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
1个回答
- 周磊律师
- 21
显示当前系统的启动时间
在窗体中添加Label和Timer控件；
在代码编辑器中添加如下代码：
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
Label1.Caption = ""
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim seconds As Long
Dim minute As Long
Dim hour As Long
hour = GetTickCount 1000 60 60
minute = (GetTickCount - hour * 60 * 60 * 1000) 1000 60
seconds = (GetTickCount - hour * 60 * 60 * 1000 - minute * 60 * 1000) 1000
Label1.Caption = "当前系统已启动：" & hour & "小时" & minute & "分" & seconds & "秒"
End Sub
界面的设计：
显示当前系统启动的时间（vb6.0）
运行结果：
显示当前系统启动的时间（vb6.0）
在窗体中添加Label和Timer控件；
在代码编辑器中添加如下代码：
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
Label1.Caption = ""
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim seconds As Long
Dim minute As Long
Dim hour As Long
hour = GetTickCount 1000 60 60
minute = (GetTickCount - hour * 60 * 60 * 1000) 1000 60
seconds = (GetTickCount - hour * 60 * 60 * 1000 - minute * 60 * 1000) 1000
Label1.Caption = "当前系统已启动：" & hour & "小时" & minute & "分" & seconds & "秒"
End Sub
界面的设计：
显示当前系统启动的时间（vb6.0）
运行结果：
显示当前系统启动的时间（vb6.0）
发布于 2016-10-13 22:04
查看更多
相关问题
3回答
3回答
1回答
5回答
0回答
4回答
2回答
0回答
