怎么才能让webbrowser1中的网页的原代码自动在text1.text中显示呀?

来源：百度知道 编辑：UC知道 时间：2024/05/22 10:08:59
怎么才能让webbrowser1中的网页的原代码自动在text1.text中显示呀?
(问题补充)
在combo1中的网址在webbrowser1打开时,
我能把combo1中的网址的网页原代码在text1.text中显示.
当点击webbrowser1网页中的超连接时,webbrowser1打开的新网页的网址以
Combo1.Text = WebBrowser1.LocationURL的方法在combo1中显示网址,
这时我就不能把combo1中网址的网页原代码在text1显示了
因为这时的combo1中的网址是webbrowser1以
Combo1.Text = WebBrowser1.LocationURL方法显示的
那怎么才能让webbrowser1以
Combo1.Text = WebBrowser1.LocationURL方法向combo1中输出网址时
同时把该网页的原代码在text1中显示?

同时是不可能的，因为要加载网页需要时间，只有等加载完，才能得到源代码，可以用如下方式实现：

Private Sub Combo1_Change()
Timer1.Enabled = true
End Sub

Private Sub Timer1_Timer()
Dim doc, objhtml As Object
Dim i As Integer
Dim strhtml As String

If Not WebBrowser1.Busy Then
Set doc = WebBrowser1.Document
i = 0
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
Timer1.Enabled = False
End If
End Sub

同意楼上，完全同步是不可能的
但不需要用Timer，WebBrowser有更适合的事件

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1 = WebBrowser1.Document.documentElement.outerhtml
End Sub

学习.