Ukazatel průběhu
Pokud rádi používáte ukazatel průbehu pro zobrazení stavu určité akce, máte štěstí – komponenta WebBrowser má událost, navrženou speciálně pro tuto příležitost.
Nejprve musíte do projektu přidat komponentu Progress Bar, která je součástí balíku komponent 'Microsoft Windows Common Controls 6.0. Pak natáhněte ProgressBar na formulář.
Zde je ukázka kódu, který využívá událost ProgressChange pro zobrazení jednoduchého ukazatele průběhu:
Private Sub WebBrowser1_ProgressChange(ByVal
_
Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
ProgressBar1.Refresh
End Sub
Po zapsání tohoto kódu zkuste navštívit nějakou stránku a můžete sledovat proces natahování stránky visuálně.