VB6.0做个正计时器。怎么复位按钮清零后再开始不是从0开始了？
VB6.0做个正计时器。怎么复位按钮清零后再开始不是从0开始了？而是从复位停止的那个时间重新开始？怎么从0重新开始？OptionExplicitDimt1AsDate'定...
VB6.0做个正计时器。怎么复位按钮清零后再开始不是从0开始了？而是从复位停止的那个时间重新开始？怎么从0重新开始？Option ExplicitDim t1 As Date '定义正计时的时间Private Sub Command1_Click() '开始按钮Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() '暂停按钮Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click() '继续按钮Timer1.Enabled = TrueEnd SubPrivate Sub Command4_Click() '复位按钮Timer1.Enabled = FalseLabel1.Caption = "00:00:00"Text1.Text = Format(t1, "HH:MM:SS") '点击复位按钮后，把此时的计时时间给Text1End SubPrivate Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 1000t1 = "00:00:00" '赋初值End SubPrivate Sub Timer1_Timer()t1 = t1 + "00:00:01" '自加1Label1.Caption = Format(t1, "HH:MM:SS") '显示正计时End Sub
比如点击复位按钮使Text1得到00:00:07, 再点击开始按钮，希望它从00:00:00开始，可是它却从07开始了，怎么办？难道正计时不能复位从0开始吗？谢谢大神了！ 展开
比如点击复位按钮使Text1得到00:00:07, 再点击开始按钮，希望它从00:00:00开始，可是它却从07开始了，怎么办？难道正计时不能复位从0开始吗？谢谢大神了！ 展开
展开全部
这段代码问题好多……
Private Sub Command1_Click() '开始按钮
t1 = "00:00:00"
Timer1.Enabled = True
End Sub
改成这样就可以达到你的要求了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
天正软件
2024-08-02 广告
天正软件可以解决以下问题：1. 提供设计标准化：天正软件专注于勘察设计领域，为用户提供标准化、信息化、智能化的解决方案，以提高设计效率、优化设计流程、降低成本。2. 提高绘图效率：天正软件提供了一系列专业绘图工具，能够帮助设计师快速绘制图纸...
点击进入详情页
本回答由天正软件提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
