How to loop through items in a listbox ? 1

[DavidTigerch]

Hi all i got a list of urls in a listbox i want to loop trough the listbox and for each listbox item i do inet1.openURL. But i do not know how i can loop trought items in listbox. I be happy if some one show me how.Thanks

Private Sub Command1_Click(Index As Integer)

Select Case Index
    Case 0:
        If txtURL.Text <> "" Then
        
      
            RichTextBox1.Text = Inet1.OpenURL(txtURL.Text, icString)
                   End If
    
    Case 1:
        End
End Select
End Sub

 

[MattSTech]

dim i as integer
for i = 0 to list1.listcount
'Do your stuff
next

 

[MattSTech]

Oh my..., I see you have been busy on the forums today. I suggest you do a search on this forum as johnwm suggests before making any more threads on the looping subject.

matt

 

[Andrzejek]

MattSTech, should it be:

Dim i as integer
for i = 0 to list1.listcount [b]- 1[/b]
    'Do your stuff
next

???

---- Andy

 

[DavidTigerch]

andrezejek thanks for u reply . Could u tell me how to used the pull item inside this inet.openURL fuction?


RichTextBox1.Text = Inet1.OpenURL(?????????)

 

[Golom]

Dim i as integer
For i = 0 to list1.Listcount - 1
    RichTextBox1.Text = Inet1.OpenURL(List1.List(i))
Next

although that will replace the contents of the rich text box with every call to OpenURL.

[small]No! No! You're not thinking ... you're only being logical.
- Neils Bohr[/small]

 

[MattSTech]

Andrzejek. Yes
off by one error caught me in a rush. Always seems the case.

thanks

Matt

 

[Andrzejek]

Tnanks for the complement, star goes to Golom anyway

--- Andy