heres the code guys..
VB Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click newsub(Me.AxWebBrowser1, Me.ListBox1) End Sub Private Sub newsub(ByVal browser As AxSHDocVw.AxWebBrowser, ByVal lstbox As ListBox) For i As Integer = 0 To (lstbox.Items.Count - 1) browser.Navigate(lstbox.Items.Item(i)) Next End Sub In another scenario,I tried this... Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click newsub(Me.AxWebBrowser1, Me.ListBox1) End Sub Private Sub newsub(ByVal browser As AxSHDocVw.AxWebBrowser, ByVal lstbox As ListBox) For i As Integer = 0 To (lstbox.Items.Count - 1) fixit: If setme = True Then setme = False browser.Navigate(lstbox.Items.Item(i)) Else MsgBox("doesnt work") End If Next End Sub Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete setme = True End Sub
Both dont work as expected...some logical error...so,help me please![]()




Reply With Quote