这是对IE浏览器简单封装,主要用来显示一些简单的 HTIM 页面。

显示页面
网页
mCtrlHtml1.GotoUrl("http://www.baidu.com")
本地文件
mCtrlHtml1.GotoUrl("file:///c:/文件.html")
执行页面中的JS函数
mCtrlHtml1.CallScriptFunc(JS函数名,参数1,参数2,.... 可以没参数,也可以最多4个参数,传给JS函数
修改网页中的代码
没有提供任何方法可以设置全部网页,只能根据ID设置部分
Dim bb As String
bb = "<html>" & vbCrLf & _
" <head>" & vbCrLf & _
" <title>网页标题 </title>" & vbCrLf & _
" <body id='zzz'>" & vbCrLf & _
" 这是一个网页" & vbCrLf & _
" </body>" & vbCrLf & _
"</html>"
SaveFileStr App.Path & "1.htm", bb
mCtrlHtml1.GotoUrl "file:///" & App.Path & "1.htm"
mCtrlHtml1.SetTagContents "zzz","<a href='#2'>设置代码</a>"
评论一下?