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

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

蓝图

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值