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

Question

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

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    WebBrowser1.Move -20000, -20000, 0, 0
    WebBrowser1.Navigate "www.csdn.net"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Move 30, 400, ScaleWidth - 60, ScaleHeight - Command1.Top * 2 - Command1.Height
End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    Label1.Caption = Text
End Sub

Answer 2

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

Answer 3

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