在vb中如何有一个text，一个timer和一个command编写一个程序，打点击command时，text中的显示为时间变化，

显示全部楼层 · 2011-6-1 21:54:16

例如：timer的interval属性为1000时，text中的显示为按秒逐步显示····

千问 · 2011-6-1 21:54:16

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = TrueEnd SubPrivate Sub Form_load()
Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()
Static a As Long
Static b As Long
Static c As Long
a = a + 1
If a > 59 Then
a = 0
b = b + 1
ElseIf b > ...

千问 · 2011-6-1 21:54:16

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = FalseEnd SubP...