webbrowser.document.write的问题

[Hotus]

webbrowser.document.write 写入HTML后，URL变成了 about:blank
怎么处理才能让他保持当前URL呢？谢谢

[Hotus]

没人来啊

[dbcontrols]

问江南春
http://hi.csdn.net/lyserver

[Quote=引用 1 楼 hotus 的回复:]
没人来啊
[/Quote]

[Hotus]

比如
webbrowser1先随便打开个URL
webbrowser1.document.write "sfsdfsdaf" 随便写入点什么内容，webbrowser1的URL就变成about:blank 了

[jhone99]

你的代码贴出来

[橘子皮...]

你说的根本不是webbrowser1的URL,而是webbrowser1.document.location

每次调用.write前有个隐性的.open操作,打开一个新的文档，这个文档是以about:blank为初始地址的

[Hotus]

不能直接写入当前页面吗？

[Tiger_Zhao]

Option Explicit

Private Sub Form_Load()
    WebBrowser1.Navigate2 "http://www.google.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Debug.Print "WebBrowser1_DocumentComplete(, " & URL & ")"
    
    If URL <> "about:blank" Then
        WebBrowser1.Document.body.insertAdjacentHTML "beforeEnd", "<hr>Modified by <b>Tiger_Zhao</b> " & Now() & "<br>"
        WebBrowser1.Document.body.insertAdjacentHTML "beforeEnd", "分都给我 <img src='https://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/13.gif'>"
    End If
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Debug.Print "WebBrowser1_NavigateComplete2(, " & URL & ")"
End Sub

[无·法]

[Quote=引用 7 楼 hotus 的回复:]

不能直接写入当前页面吗？
[/Quote]貌似不行的，调用js的write应该可以。

WebBrowser1.Document.parentWindow.execScript "document.write('sfsdfsdaf');"

[king06]

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.getElementById("lga").innerHTML = WebBrowser1.Document.getElementById("lga").innerHTML & "蹭分来了 <img src='https://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/003/monkey/7.gif'>"
End Sub

[king06]

Option Explicit

Private Sub Form_Load()
    WebBrowser1.Navigate2 "http://www.google.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.getElementById("lga").innerHTML = WebBrowser1.Document.getElementById("lga").innerHTML & "谷歌哦 <img src='https://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/003/monkey/7.gif'>"
End Sub

[Hotus]

[Quote=引用 11 楼 king06 的回复:]
VB code
Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.google.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
……
[/Quote]

这种我知道，看来是实现不了了

[无·法]

[Quote=引用 12 楼 hotus 的回复:]

引用 11 楼 king06 的回复:
VB code
Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.google.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL……
[/Quote]js的也不行？