onaj deo koda if i = 10 i if i = 20 necu tako vec cu po i da vucem iz baze string za navigaciju.
Ali ono sto ne mogu da napravim da mi uopste i za ove dve strane radi.
Poenta je da dok se to desava da se moze kretati kroz formu i koristiti tu stranu u webbrowser-u.
Kako na najbolji nacin to da izvedem?
Puno hvala!
Code:
Dim thread1 As System.Threading.Thread
Sub looping()
If Me.InvokeRequired Then
Me.Invoke(New MethodInvoker(AddressOf looping))
Else
Do While i <> 10000
i = i + 1
Label1.Text = i
If i = 10 Then
WebBrowser1.Navigate("www.google.com")
End If
If i = 20 Then
WebBrowser1.Navigate("www.facebook.com")
End If
Me.Refresh()
Threading.Thread.Sleep(1000)
Loop
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
thread1 = New System.Threading.Thread(AddressOf looping)
thread1.Start()
End Sub
End Class
Dim thread1 As System.Threading.Thread
Sub looping()
If Me.InvokeRequired Then
Me.Invoke(New MethodInvoker(AddressOf looping))
Else
Do While i <> 10000
i = i + 1
Label1.Text = i
If i = 10 Then
WebBrowser1.Navigate("www.google.com")
End If
If i = 20 Then
WebBrowser1.Navigate("www.facebook.com")
End If
Me.Refresh()
Threading.Thread.Sleep(1000)
Loop
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
thread1 = New System.Threading.Thread(AddressOf looping)
thread1.Start()
End Sub
End Class