向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代码