VB高手进!!!!!!!!

Question

让时间跟系统时间一致的代码咋写

Answer 1

比如说在text1中显示时间
在form中拖一个timer

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1.Text = Format(Time, "hh.mm.ss")
End Sub

Answer 2

private sub timer1_timer()
timer1.interval=1000
print time()
end sub

这样就在窗体上显示当前时间了

Answer 3

Option Explicit
Private Sub Timer1_Timer()
Timer1.Interval = 500
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
End If
End Sub