Hur väntar jag på att en webbrowser kontroll laddat färdigt etfter det att man kört .Navigate? Hej ! Tack för ditt svar!"Vänta" på webbrowser kontrollen tills den laddat
Det funns ju händelsen WebBrowser_DocumentComplete och sen fanns det en method .Busy jag kan tänka mig att man kan utnyttja, men jag kan inte få till något bra, nån som vet?
typ :
<code>
WebBrowser.Navigate "http://localhost/mindsida/"
'Vänta här, viktigt att den väntar ända tills den är färdigladdad! När den är klar skriv ut url
Debug.Print "Completely Loaded URL:" & WebBrowser.LocationURL
</code>Sv:
Kanske detta kan ge dig någora idéer:
Private Sub tbToolBar_ButtonClick(ByVal Button As Button)
On Error Resume Next
tmrTimer.Enabled = True
Select Case Button.Key
Case "Back"
brwWebBrowser.GoBack
Case "Forward"
brwWebBrowser.GoForward
Case "Refresh"
brwWebBrowser.Refresh
Case "Home"
brwWebBrowser.GoHome
Case "Search"
brwWebBrowser.GoSearch
Case "Stop"
tmrTimer.Enabled = False
brwWebBrowser.Stop
sbStatusBar.Panels(1).Text = brwWebBrowser.LocationName
End Select
End Sub
Private Sub tmrTimer_Timer()
If brwWebBrowser.Busy = False Then
tmrTimer.Enabled = False
'Sidan laddad.... Här kan man t.ex. skriva kod för saker som
'som skall göras när sidan är fullständigt laddad...
sbStatusBar.Panels(1).Text = brwWebBrowser.LocationName
Else
sbStatusBar.Panels(1).Text = "Working..."
End If
End Sub
MVH
Peter SSv:
Men det är ungefär så min lösning ser ut just nu...
grejen är den att jag ill mer ha en funktion typ LoadPage(URL)
som returnerar true eller false...använder man då en timer så "väntar" inte programmet på funktionen utan går vidare till nästa instruktion. Nån aning om hur man skall stöppa programmet under tiden man väntar? Använder man Sleep så stannar webbrowsern också märkte jag....*suck*