怎样让WebBrowser下载完成后再显示整个页面？

[lag27]

怎样让WebBrowser.Navigate URL完成后再显示整个页面？我不希望它一部分一部分地显示出来。

[griefforyou]

Option Explicit

Private Sub Command1_Click()
WebBrowser1.Move -20000, -20000, 0, 0
WebBrowser1.Navigate "www.csdn.net"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Move 30, 400, ScaleWidth - 60, ScaleHeight - Command1.Top * 2 - Command1.Height
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label1.Caption = Text
End Sub

[griefforyou]

完成时会触发WebBrowser1_DocumentComplete事件，开始时你把把移到屏幕外面，完成后再移回来!

[lag27]

难道WebBrowser就没有方法属性来控制下载时页面的显示吗？

[griefforyou]

我没发现有

[lang_csdn]

如何判断一个页面能否打开呢？