Question

VB中time控件和进度条的代码

这些是代码，大神能不能给简单注释一下，明天要答辩，不会啊~~
Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 10
ProgressBar1.Value = 0
Timer1.Interval = 250
Timer1.Enabled = False
ProgressBar1.Visible = False

End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
ProgressBar1.Visible = True

End Sub

Private Sub timer1_timer()
If ProgressBar1.Value < ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
ProgressBar1.Visible = False
End If
If ProgressBar1.Value = ProgressBar1.Max Then
Form2.Show
End If
End Sub

Answer 1

Private Sub Form_Load() ‘窗体加载时执行此段代码
ProgressBar1.Min = 0‘进度条最小值为0
ProgressBar1.Max = 10 '进 度条最大值为10
ProgressBar1.Value = 0 ‘定义进度条的当前值 为0
Timer1.Interval = 250 ’定义每250毫秒执行一次timer事件
Timer1.Enabled = False ‘定义时钟不响应
ProgressBar1.Visible = False ’进度条不可见
End Sub

Private Sub Command1_Click() '按钮单击是执行此段代码
Timer1.Enabled = True 计时器打开
ProgressBar1.Visible = True 进度条可见
End Sub

Private Sub timer1_timer() '计时器打开时 每250毫秒执行一次此段代码
If ProgressBar1.Value < ProgressBar1.Max Then '判断 如果进度条的当前值 <10 则
ProgressBar1.Value = ProgressBar1.Value + 1 '进度条的当前值=当前值+1
Else 否则
ProgressBar1.Visible = False '进度条不可见
End If 判断结束
If ProgressBar1.Value = ProgressBar1.Max Then ' 判断 如果进度条的值=10 则
Form2.Show ' 窗体form2打开
End If ' 判断结束
End Sub

分太少了点！

Answer 2

Private Sub Form_Load()
ProgressBar1.Min = 0 ‘设置值
ProgressBar1.Max = 10 ‘设置值
ProgressBar1.Value = 0 ‘设置值
Timer1.Interval = 250 ’timer1运行时间间隔
Timer1.Enabled = False‘Timer1关闭
ProgressBar1.Visible = False ‘ProgressBar1不显示
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True ’运行Timer1
ProgressBar1.Visible = True '显示ProgressBar1
End Sub
Private Sub timer1_timer()
If ProgressBar1.Value < ProgressBar1.Max Then ‘当 ProgressBar1.Value值小于 ProgressBar1.Max时
ProgressBar1.Value = ProgressBar1.Value + 1 ’ProgressBar1.Value+1累加
Else ‘反之
ProgressBar1.Visible = False ’ProgressBar1不显示
End If ’IF语句结束
If ProgressBar1.Value = ProgressBar1.Max Then ‘两个值相等时
Form2.Show ‘form2显示
End If ’IF语句结束
End Sub