Question

VB6.0中怎样用按钮控制timer控件的启动、停止和重新开始？

刚刚学VB，有一个题目，虽然timer的属性什么的都很少，但是这个就是不会。
要求把VB计时的内容显示在label控件中，计时是从0开始的。
如果知道的帮一下忙，谢谢！！

Answer 1

VB6.0可通过对Timer控件的Enabled 属性、Interval 属性在运行进行设置使Timer控件启动、停止和重新开始。

Timer 控件

通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

Enabled 属性，返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。

通过把 Enabled 设置为 False 来使 Timer 控件成为无效，将取消由控件的 Interval 属性所建立的倒计数。

Interval 属性，返回或设置对 Timer 控件的计时事件各调用间的毫秒数。

当Interval 属性为0时，Timer 控件无效。

Option Explicit

Private Sub Command1_Click()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

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

Private Sub Command3_Click()
    Timer1.Interval = 0
End Sub

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

Private Sub Timer1_Timer()
    Label1 = Time
End Sub

Answer 2

创建3个按钮，用默认名字命名
创建一个label控件，名称为label1
创建一个timer控件，名称为timer1

复制下列代码运行即可

Private a As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

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

Private Sub Command3_Click()
a = 0
End Sub

Private Sub Form_Load()
Command1.Caption = "启动"
Command2.Caption = "停止"
Command3.Caption = "重新开始"
Label1.Caption = ""
Timer1.Enabled = 0
Timer1.Interval = 1000 '设定周期为1秒
End Sub

Private Sub Timer1_Timer()
a = a + 1
Label1.Caption = a
End Sub