vb 实现周期控制 急用

来源：百度知道 编辑：UC知道 时间：2024/06/16 07:32:12
用两滚动条分别设置一个运行时间 和停止时间 在TEXT标签上显示倒计时

建立控件TEXT1显示分TEXT2显示秒
Timer1控制时间，Command1控制倒计时开始，
HScroll1控制倒计时时间多少
HScroll1的MAX属性为600
Private Sub HScroll1_Change()
Text1.Text = Val(HScroll1.Value) / 60
Text2.Text = Val(HScroll1.Value) Mod 60
End Sub
Timer1的Enable属性为False,Interval为1000
Private Sub Timer1_Timer()
Text2.Text = Text2.Text - 1
If Text2.Text = 0 Then
Text1.Text = Text1.Text - 1
Text1.Text = 59
End If
If Text1.Text = 0 And Text2.Text = 0 Then
Timer1.Enabled = False
endif
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub