Question

VB的Webbrowser如何用document.Write在指定的位置里插入html代码

1.htm内容
<table id="tb1">
这里插代码
</tabel>

Answer 1

如果你一定要用document.Write，可通过下面代码实现：
Dim S As String, Msg As String, Html As String

With WebBrowser1.Document
Msg = .body.innerHTML
S = "<table id=" & Chr(34) & "tb1" & Chr(34) & ">"
Html = "插入的代码"
i = InStr(1, Msg, S, vbTextCompare) '查找
If i > 0 Then
Msg = Left(Msg, i + Len(S) - 1) & Html & Mid(Msg, i + Len(S)) '插入
.Clear
.Open
.Write Msg '重写
.Close
WebBrowser1.Refresh '刷新
End If
End With

Answer 2

Private Sub Command1_Click()
Set newrow = WB.Document.getElementById("tb1").insertrow
Set newcol = newrow.insertCell
newcol.innertext = "现在时间是：" & Time()
End Sub
Private Sub Form_Load()
WB.Navigate App.Path & "\1.htm"
End Sub