webbrowser显示问题

Question

目的:按行读取文本文件,用webbrowser显示网页.
我想等一个网页下载完成后,再执行下一个显示,Dim i As Integer
    Dim inputdata As String
    Open App.Path & "\tiez.txt" For Input As #1    ' Open file for input.
    Do While Not EOF(1)   ' Check for end of file.
       Line Input #1, inputdata
       On Error Resume Next      
       WebBrowser1.Navigate inputdata
       DoEvents
       Sleep 5000
       WebBrowser1.Refresh
                 
     Loop
    Close #1
中间并不显示网页.只显示最后一个网页.

Answer 1

WebBrowser有一个NavigateComplete2事件可以或者网页是否下载完成。