Question

VB中，如何让一个Label控件在运行时随时显示出当时的时间

要随系统时间改变而改变

Answer 1

'Timer的interval值1000
Private Sub Timer1_Timer()
Label1.Caption = Time$
'Label1.Caption = Time 没有$的带上午下午,有则不带
End Sub

Answer 2

Private Sub Form_Load()
Label1 = Time
End Sub

如果你想让他变成时钟 需要加个timer控件 interval 需要1000

Answer 3

Label1.Caption = Time$