vb 实现周期控制 急用

来源:百度知道 编辑:UC知道 时间:2024/06/16 01:50:24
用两滚动条分别设置一个运行时间 和停止时间 在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