关于VB计时器关于此题运行如上：运行时，单击“启动”，从0开始计时，同时“停止”按钮可用，其他不可用；单击“停止”即使停止；“重启”“继续”按钮可用，“启动”“停止”按钮

Question

关于VB计时器
关于此题运行如上：运行时，单击“启动”，从0开始计时，同时“停止”按钮可用，其他不可用；单击“停止”即使停止；“重启”“继续”按钮可用，“启动”“停止”按钮不可用；单击“继续”，秒表继续计时，同时“停止”可用，其它不可用；单机“重设”秒表停止计时且变为0,此时“启动”可用，其它不可用。。秒表无上限，只记秒。。

Answer 1

看不到你的图，所以只能自己做，如下：在窗体上画5个Command控件、一个Timer1控件和一个Label控件，其中Command1表示启动，Command2表示停止,Command3表示重启,Command4表示继续，Command5表示重设。Label控件用于显示秒。Option ExplicitPrivate Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
End SubPrivate Sub Command4_Click()
Timer1.Enabled = True
Command2.Enabled = True
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End SubPrivate Sub Command5_Click()
Label1.Caption = 0
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End SubPrivate Sub Form_Load()
Label1.Caption = ""
Label1.FontSize = 25
Timer1.Interval = 1000
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
End Sub