VisualFreeBasic控件_mCtrlHtml IE浏览器

2026-1-21 / 0 评论 / 52 阅读

这是对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>"

评论一下?

OωO
取消