向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"
其中方法3是采用了调用execcommand并且传递控制命令的方法,通过这种方法还可以插入图片等页面元素,详情可以参考msdn的execcommand命令。
