[VB]这个电子时钟怎么这么迟钝？ [复制链接]

这是一个变色电子时钟，按键调整颜色。
但是时钟只有在调整颜色的瞬间变化。请高手看下，究竟怎么回事。
代码如下：
Private Sub form1_load()
Label1.Caption = Time
End Sub
Private Sub Command1_Click()
Label1.ForeColor = vbRed
Label1.Caption = Time
End Sub
Private Sub Command2_Click()
Label1.ForeColor = vbBlue
Label1.Caption = Time
End Sub
Private Sub command3_click()
End
End Sub

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的精度没什么关系

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精度比较低,大概是10ms
需要高精度计时的话用这个api:QueryPerformanceCounter,它的精度大概是10μs

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

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的语法变了许多，而且生成的文件比较大一点

楼上的都是全才.....

这个都懂.......

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

当然可以自己走起来。。- -

[i=s] 本帖最后由 Carneades 于 2009-2-1 17:07 编辑

这个可以自己走起来？我今晚试试看。
谢谢楼上诸位！