安吉县教育局电话:大家教我怎么在VB中使用进度条,最好是给我举个例子!

来源:百度文库 编辑:神马品牌网 时间:2024/04/30 01:02:26
比如说“Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 50
ProgressBar1.Value = 0
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()

If ProgressBar1.Value >= 100 Then Form1.Hide: Form2.Hide: Form3.Hide: Form4.Show
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub

怎么弄啊?我搞了好长时间就是弄不了啊,大家教我啊!!

我服了YOU,ProgressBar1.Max = 50 这里最大值是50

你这里弄个ProgressBar1.Value >= 100,怎么可能啊.