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

显示全部楼层 · 2012-6-9 16:12:05

'自己换成进度条稍作修改即可Private Sub Form_Load()
HScroll1.Max = 14
Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()
Static n
If n = 15 Then
Timer1.Interval = 0
HScroll1.Visible = False
Exit Sub
End If
HScroll1.Value = n
n = n + 1End Sub...

千问 · 2012-6-9 16:12:05

Private Sub Form_Load()
HScroll1.Max = 14
Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()
Static i%
i = i + 1
HScroll1.Value = i
Timer1....