以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  嵌入IE时遇到activex  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190014)

--  作者:lur320
--  发布时间:2024/1/11 8:37:00
--  嵌入IE时遇到activex
 如下代码,想嵌入echart ,但是会打开单独的ie浏览器并且报错。
提示acticeX被禁用。如何实现在窗体内?

Dim ie As Object = CreateObject("InternetExplorer.Application")
vars("ie") = ie
ie.menubar=0 \'不显示IE对象菜单栏
ie.AddressBar=0 \'不显示IE对象地址栏
ie.ToolBar=0 \'不显示IE对象工具栏
ie.StatusBar=0 \'不显示IE对象状态栏

ie.Width=e.Form.Controls("panel1").width \'设置IE对象宽度
ie.Height=e.Form.Controls("panel1").height \'设置IE对象高度
ie.left = 0
ie.Top = 0
ie.Resizable=1 \'设置IE对象大小是否可以被改动
ie.Navigate("C:\\Users\\104143\\Downloads\\LTreport\\prlt.html")
\'ie.Navigate("www.baidu.com")
Application.DoEvents
Do While ie.Busy
    Application.DoEvents
Loop

System.Threading.Thread.Sleep(1000)
ie.visible=1 \'设置是否可见

\'上面是模拟一个打开的程序
vars("标题") = "百度一下"
Dim CallBack As New EnumWindowsProc(AddressOf EnumWindowsProcCallBack)
EnumWindows(CallBack, 0)
EnumWindows(CallBack, 0)

--  作者:有点蓝
--  发布时间:2024/1/11 8:44:00
--  
请使用内置的浏览器控件:http://www.foxtable.com/webhelp/topics/1480.htm