Hej!

Jag har kämpat med detta(säkert simpla problem) nu i ett antal timmar.
Problemet är detta:

Hur ska jag göra för att få varje adress i vektorn adresser() färdigladdad innan loopen går till nästa adress?
Tacksam för svar!

For q = 1 To 20
WebBrowser1.Navigate Adresser(q)
Next q

Hej
For q = 1 To 20
WebBrowser1.Navigate Adresser(q)
DoEvents
Next 'q

testa även
i =1
Do Until i > 20
WebBrowser1.Navigate Adresser(q)
DoEvents
i = i + 1
Loop
mvh
Sven

Tack för tipset Sven, men den adress som laddas är den sista(nr 20) i vektorn.. Den hoppar alltså fortfarande över de andra.

Någon som har nåt annat tips?

Do Until i > 20
WebBrowser1.Navigate Adresser(q)
do until webbrowser1.busy = false
DoEvents
loop
i = i + 1
Loop

Hej
En chansning som jag inte har täckning för

Private Declare Sub Sleep Lib "kernel32" _
Alias "Sleep" (ByVal dwMilliseconds As Long)
i =1
Do Until i > 20
WebBrowser1.Navigate Adresser(q)
DoEvents
Sleep(10&)
i = i + 1
Loop

Tack, men samma fel igen.

Ytterligare förslag?

Hej
Men JensaK :s förslag borde väl funka ?

DS

Nej tyvärr.. Inte det heller. Bara den sista adressen laddas även där.

Igen
Ny Chansning utan täckning.

Private Declare Function WaitMessage Lib "user32" _
Alias "WaitMessage" () As Long
Dim ret As Long,i As Long
i =1
Do Until i > 20
WebBrowser1.Navigate Adresser(q)
ret = WaitMessage
DoEvents
i = i + 1
Loop

Bra försök, men tyvärr gick det inte hem.. :(

Igen
Du har väl observerat att Vi använder i och du q ?

DS

Hehe, jadå..:)

Så här ?

Sample Code =====================================

Option Explicit
Private docDone As Boolean

Private Sub Form_Activate()
For q = 1 To 3
docDone = False
While docDone = False: DoEvents: Wend
WebBrowser1.Navigate adresser(q)
Next 'q
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
docDone = True
End Sub

Sample Code =====================================

/peterh

Tack för förslaget men jag lyckas inte få det att fungera.

Det funkar hos mig förutom första sidan, den visas inte i webbrowsern.

/peterh

Skumt. Jag kopierar din kod och kör den. Inget händer förutom att webbrowsern är vit(dvs tom).

Har jag gjort nåt fel?

Hoppas du har en array med giltiga webadresser ???

/peterh

Givetvis har jag det. Jag har också nu en lösning på problemet som funkar felfritt:

Private Sub Waiting()
Do Until WebBrowser2.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub

For q = 1 To 20
WebBrowser2.Navigate Adresser(q)
Call Waiting
Next q

Tack för alla förslag!:)

Hej
>Givetvis har jag det. Jag har också nu en lösning på problemet som funkar felfritt:

Tack för "FeedBack" ,Nu lägger Vi det i lådan "Lösta Problem".

mvh
Sven