想做一个很简单的vb程序请大家帮忙(进度条)

Question

很简单的界面,上面一个进度条,进度条也很简单,循环方式(类似于ie7安装的那个) 不需要显示进度,一直循环就可以了,20秒后结束关闭整个窗口,请问哪位大哥能帮下啊 !

Answer 1

添加一个进度条控件，名称为：progressbar1,max=200
一种时钟控件，名为：timer1,interval = 100,
然后贴上以下代码就行，已经调试过了。Option Explicit
Dim i As IntegerPrivate Sub Timer1_Timer()
    i = i + 1
    If i <= 200 Then
        ProgressBar1.Value = i
        
    Else
        Unload Me
    End If
    
End Sub

Answer 2

再给你一个代码吗？这个可以循环，不过要两个timer控件了。
Option Explicit
Dim i As Integer
Dim j As IntegerPrivate Sub Timer1_Timer()
    i = i + 1
    ProgressBar1.Value = i
    If i = 100 Then
        i = 0
    End If
    
End SubPrivate Sub Timer2_Timer()
    j = j + 1
    If j = 20 Then
        Timer1.Enabled = False
        Unload Me
    End If
    
End Sub

Answer 3

在你的含有进度条的界面上放置两个Timer控件，其中一个的Interval属性设置为20000（20秒），两个Timer控件的属性除了Interval之外全部采用默认设置。Private Sub Timer1_Timer()''''循环显示进度条If PBar1.Value < PBar1.Max Then    PBar1.Value = PBar1.Value + 1Else    PBar1.Value = PBar1.MinEnd IfEnd SubPrivate Sub Timer2_Timer()'''''20秒后关闭界面的Timer控件 interval＝20000Unload Form1End Sub你在根据你的要求稍微改一下。

Answer 4

又改了下，其中timer1 的interval可以设成10,越小循环得越快。
timer2的interval设成20000，就是20秒
----------------------------
Option Explicit
Dim i As IntegerPrivate Sub Timer1_Timer()
    i = i + 1
    ProgressBar1.Value = i
    If i = 100 Then
        i = 0
    End If
    
End SubPrivate Sub Timer2_Timer()
    'timer2一触发事件，就退出程序，这时正好是20秒
    Unload Me
    
End Sub