[RESOLVED] code help

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

Post your code.

Put on your form:

- CommandButton
- Timer
- Label and
- WebBrowser

... and try this:

VB Code:

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

the timer sub can be done as:

VB Code:

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

Quote:

---

Originally Posted by bushmobile

the timer sub can be done as...

---

Why not... :afrog:

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

No prob! :wave: