向WebBrowser控件插入HTML代码

是要获得鼠标所在的标记？

对象．对象型方法 （"elementFromPoint"，x，y）

这个方法可以获得鼠标所在位置的标记对象。

----------

还是要在鼠标处插入标记？

对象．对象型方法 （"createElement"，eTag）

创建之后在把返回的对象指定X，Y就行了

这样只能算是插入标记，不能算是HTML代码

----------

最笨的，

document.body.innerHTML+=document.body.innerHTML+"<a href=www.baidu.com>baidu</a>";

把原来的HTML代码在加上新代码重写进去。

下面方法是可以插入,就是要设置位置才能做到任意位置插入HTML代码!

QUOTE:

向Webbrowser中写入HTML内容的几种方法

首先在Form_Load中加入

WebBrowser1.Navigate "about:blank"

确保Webbrowser1可用

方法1：

Dim s As String
Dim stream As IStream

s = ""
s = s + ""
s = s + ""
s = s + "

hello world

"
s = s + ""
s = s + "
WebBrowser1.Document.Write s

方法2：

Dim o

Set o = WebBrowser1.Document.selection.createrange
Debug.Print o
If (Not o Is Nothing) Then
o.pasteHTML "哈哈"
Set o = Nothing
End If

方法3：

'插入文本框
Dim o

Set o = WebBrowser1.Document.selection.createrange

o.execCommand "InsertTextArea", False, "xxx"

我用的是方法2 可以当插入HTML代码