vb高手来指导哈

来源：百度知道 编辑：UC知道 时间：2024/05/28 07:31:53
我做了2个命令按钮 点command1那么上放的进度条就会开始增长,并且label1(label1用来显示百分数)也开始增长 ,现在我想点command2如何是的正在增长的进度停下来开始倒退一样的速度 并且百分数也开始减少
请高手指点具体的解决办法 谢谢

Option Explicit
Dim t As Single

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

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

Private Sub Form_Load()
Timer1.Interval = 1000
Timer2.Interval = 1000
End Sub

Private Sub Timer1_Timer()
t = t + 1
If t * 100 / 30 <= 100 Then
ProgressBar1.Value = t * 100 / 30
'写控制语句
Label1.Caption = Int((t * 100 / 30) * 10 + 0.501) / 10 & "%"
Else
'写停止语句
Label1.Caption = "安装完毕"
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
t = t - 1
If t >= 0 Then
ProgressBar1.Value = t * 100 / 30
'写控制语句
Label1.Caption = Int((t * 100 / 30) * 10 + 0.501) / 10 & "%"
Else
'写停止语句
Timer2.Enabled = False
End If
End Sub