Question

VB中怎样使label的caption随时更新？定义了一个x随着timer变化，我想caption每时每刻显示x。谢谢大神

Answer 1

这样一个小程序你肯定见过了（这是我第一次接触到VB所遇到的程序）

Option Explicit
Private Sub Form_Load()
    With Timer1
        .Interval = 500: .Enabled = True
    End With
    With Label1
        .AutoSize = True: .FontSize = 24
        .Top = 0: .Left = 0
    End With
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub

Answer 2

private sub time1_timer()

label1.caption=""

endif
timer1的interval设置时间间隔

追问

end if 是什么意思？

追答

写错了end sub