角柱剪力计算是否需要弯矩放大1.1剪力再放大1.1

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

田草CAD工具箱——快速创建和分解块、组