Question

在vb中，在form1中有一个进度条和timer，用timer控制进度条，14秒时间结束，进度条消失。代码怎么写呢？

Answer 1

'自己换成进度条稍作修改即可
Private Sub Form_Load()
HScroll1.Max = 14
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static n
If n = 15 Then
Timer1.Interval = 0
HScroll1.Visible = False
Exit Sub
End If
HScroll1.Value = n
n = n + 1
End Sub

Answer 2

Private Sub Form_Load()
HScroll1.Max = 14
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static i%
i = i + 1
HScroll1.Value = i
Timer1.Enabled = i < 14
HScroll1.Visible = i < 14
End Sub