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

  • # 6

    bookgangtie Mon, 02 Feb 2009 12:45:40 +0000

    板凳、板床正解，如果不加timer所显示的时间就是load、command1和2触发时的时间。
    timer时间间隔设为一秒就好了

  • # 7

    dzx911 Mon, 02 Feb 2009 16:41:43 +0000

    楼上的都是全才.....
    这个都懂.......

  • # 8

    bookgangtie Mon, 02 Feb 2009 18:41:56 +0000

    Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Timer1.Interval = 1000
    Label1.Text = Format$(Now, "yyyy年dd月mm日hh时mm分ss秒")
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Label1.Text = Format$(Now, "yyyy年dd月mm日hh时mm分ss秒")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Label1.ForeColor = Color.Red
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Label1.ForeColor = Color.Blue
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
    End Sub
    End Class
    哎，终于搞出来了，.net的语法变了许多，而且生成的文件比较大一点

  • # 9

    topbluecat Tue, 03 Feb 2009 03:32:11 +0000

    n年以前用过VB......貌似Timer的效率是很低的.....

  • # 10

    Ntoskrnl Tue, 03 Feb 2009 15:42:16 +0000

    嗯,timer精度比较低,大概是10ms
    需要高精度计时的话用这个api:QueryPerformanceCounter,它的精度大概是10μs