• 回复: [VB]这个电子时钟怎么这么迟钝？

  • # 11

    wangyiliu Fri, 22 May 2009 17:25:39 +0000

    Private Sub Form_Load()
    Timer1.Interval = 1000
    Text1.Text = Format(Time, "hh:mm:ss")
    End Sub
    Private Sub Timer1_Timer()
    Text1.Text = Format(Time, "hh:mm:ss")
    End Sub

  • # 12

    wangyiliu Fri, 22 May 2009 17:27:18 +0000

    Private Sub Form_Load()
    Timer1.Interval = 1000
    Text1.Text = Format(Time, "hh:mm:ss")
    End Sub
    Private Sub Timer1_Timer()
    Text1.Text = Format(Time, "hh:mm:ss")
    End Sub
    一秒钟刷一次时间 这个时间是系统现在的时间 跟TIMER的精度没什么关系