Question

在VB 中，怎么在含有timer的进度条事件结束后自动进入下一个界面

Answer 1

一个button控件,一个timer控件,初始值:Enabled=False,Interval=1000
一个ProgressBar1控件,初始值:Min=0 Max=10
程序如下:
Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i <= 5 Then
ProgressBar1.Value = ProgressBar1.Value + 2
Else: Timer1.Enabled = False
MsgBox "运行完毕"
End If
End Sub