Ich suche nach einer Funktion, die nachdem ich WebBrowser1.Navigate "http://..." gemacht habe solange alles andere stoppt, bis die Site fertig geladen wurde. Gibt es so eine funktion?

Thx @nty

www.premiere-super.de.vu - Premiere Preisvergleich und Sonderangebote!

wie meinst du das ?
dass z.B. javascripte erst anfangen zu latschen, nachdem alles fertig geladen ist, oder wie ?

Welche Sprache denn zum Teufel?!

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

Ich denke mal Anty redet von VB...

sah mir nach nem Java/JavaScript aus..

Visual Basic. Und ich möchte, wenn die Site fertig geladen wurde etwas machen...

www.premiere-super.de.vu - Premiere Preisvergleich und Sonderangebote!

Hat keiner eine Idee? Es muß doch einen Befehl dazu geben!
Ich hab leider keine Hilfe...

@nty

www.premiere-super.de.vu - Premiere Preisvergleich und Sonderangebote!

ja ich glaub es gibt....weiss jetzt nicht auswendig...mal schaun

dass sollte alles sein was man braucht...
(functionen des WebBrowserControls)

wenn man die URL bestätigt:
-> DownloadBegin()

wenn die Seite fertig ist: (weiss nicht genau was der Unterschied ist...
nimm am besten beide ;)
-> DocumentComplete(ByVal pDisp As Object, Url As Variant)
-> NavigateComplete2(ByVal pDisp As Object, Url As Variant)

Zeigt an wie viel schon geöffnet wurde
-> ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

hm, thx, werde das mal ausprobieren.

[Edit]
Bin ein totaler Newbie: Was bedeutet ByVal pDisp as Object?
[/Edit]

www.premiere-super.de.vu - Premiere Preisvergleich und Sonderangebote!

ByVal (by Value) ist eine Wertübergabe bei der der OriginalDatentyp erhaltenbleibt ... egal ob er im Unterprogramm geändert wird

(das Gegenstück wäre ByRef (Referenz))

pDisp as Object heisst dass ein Objekt names pDisp generiert (übergeben) wird

....
es reicht aber die Prozedur so zu implementieren:

<Web> ist in diesem Fall dass WebBrowserControl

Quellcode:
Private Sub Web_NavigateComplete2(ByVal pDisp As Object, Url As Variant)
    'z.B.:  
    frmmain.Caption = Web.LocationName
    StatusBar1.Panels(1).Text = URL
    Urlbox.Text = URL
    ...
End Sub


Bei mir tritt immer bei den beiden Zeilen:
DocumentComplete(ByVal pDisp As Object, Url As Variant)
NavigateComplete2(ByVal pDisp As Object, Url As Variant)

Der Fehler auf:
Compile Error
Expected List seperator or )

www.premiere-super.de.vu - Premiere Preisvergleich und Sonderangebote!