如何让vb6真正地显示当前的系统时间？

2025-02-19 20:08:15

推荐回答（5个）

回答1：

只要直接取Time$就可以了。

例如：

Label1.Caption = Time$

如要动态显示系统时间，可以使用以下代码：

Private Sub Form_Load()

Label1.FontSize = 30

Label1.ForeColor = vbBlue

Timer1.Interval = 1000

Label1.Caption = Time$

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time$

End Sub

回答2：

新建一个工程，画上两个Label控件和一个Timer控件，并将Timer控件的InterVal属性设置为1。输入如下代码：
Option Explicit
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Sub Timer1_Timer()
Dim s As String
Dim s1 As String
Dim sys As SYSTEMTIME
GetLocalTime sys
s = CStr(sys.wYear) + "," + CStr(sys.wMonth) + "," + CStr(sys.wDay)
Label1.Caption = s
s1 = CStr(sys.wHour) + ":" + CStr(sys.wMinute) + ":" + CStr(sys.wSecond) + ":" + CStr(sys.wMilliseconds)
Label2.Caption = s1
End Sub

运行程序，看看是不是你想要的效果。

回答3：

now不是变量，是函数，这个函数返回值就是系统当前时间，与任务栏右下角的时钟完全一致。

回答4：

难道你用Timer控件不断刷新now获得的与Windows的任务栏里不一致？

回答5：

do
doevents
label1.caption=now
loop

最新问答

我给领导发短信汇报工作，短信中说不劳驾领导回复了，领导却回复了。为什么啊？

我占全线，和一辆无牌无照的摩托车相撞，摩托车上的另一个客人受重伤，而摩托车主当场逃跑，我有责任吗，

黑龙江省国土资源厅的事业单位考试，需要考地质学和博物馆学，有没有复习资料啊？急急急

为什么我的魔兽世界DK没有炉石？炉石要怎么才能得到？

腿骨折里面有钉子能上飞机吗?能过安检吗？