向WebBrowser控件插入HTML代码

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