ProgressBar

[QWERTY]

Thanks!!

------------------
Visual Basic Programmer (at least I want to be one)
------------------
PolComSoft
You will hear a lot about it.

[QWERTY]

Can anybody give me an example on how to use ProgressBar (especially while saving and opening files) because I can't find anything about it in VB help.

Thanks

------------------
Visual Basic Programmer (at least I want to be one)
------------------
PolComSoft
You will hear a lot about it.

[Compwiz]

Create the following:

Timer1 - Interval to 1, Enabled to False
Command1
ProgressBar1

and use the following code:

Dim sData As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
sData = 0
With ProgressBar1
    .Min = 0
    .Max = 100
    .Scrolling = ccScrollingSmooth
    .Value = sData
End With
End Sub
Private Sub Timer1_Timer()
    If sData < 100 Then
        sData = sData + 1
    Else
        sData = 0
    End If
    ProgressBar1.Value = sData
End Sub

Click On Command1 and Bingo!

------------------
Tom Young, 14 Year Old
[email protected]
ICQ: 15743470
AIM: TomY10
PERL, JavaScript and VB Programmer