[RESOLVED] code help

[nabbster]

hi
i would like to make a simple download indicator thought of basing it on a label tried the label with an increasing nuber string works fine but i would like something like this

Download in progress........

with an increasing number of dots or maybe like 10 dots then returning to 1 dot and runing again. any ideas with the code i cant see a way of +1 working as it seems not to recognise it.

thanks

[lintz]

Post your code.

[gavio]

Put on your form:

- CommandButton
- Timer
- Label and
- WebBrowser

... and try this:

Option Explicit
 
Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.VBForums.com"
        Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
    With Timer1
        .Enabled = False
        .Interval = 50
    End With
End Sub
 
Private Sub Timer1_Timer()
    Static dots As Integer
        dots = dots + 1
            If dots <= 10 Then
                Label1.Caption = "Downloading " & String(dots, ".")
            Else
                dots = 0
            End If
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Timer1.Enabled = False
        Label1.Caption = "Download complete"
End Sub

[bushmobile]

the timer sub can be done as:

Private Sub Timer1_Timer()
    Static dots As Integer
    dots = (dots Mod 10) + 1
    Label1.Caption = "Downloading" & String$(dots, ".")
End Sub

[gavio]

the timer sub can be done as...

Why not...

[nabbster]

lol only just came back to post my code and allready its sorted thanks gavio and the other posts too

[gavio]

No prob!