Question

求指教有关VB问题

设计计时秒表窗口，一个文本框，两个命令按钮（开始，停止），时间显示在文本框内。

Answer 1

一个text1，两个按钮。代码如下，AA是公共变量。

Dim aa As Date
Private Sub Command1_Click()
aa = Timer
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.Text = Format(Timer - aa, "0.00")
End Sub