ActiveX不仅仅可以跟Excel进行数据交互,同时还可以向模型中添加多媒体效果。如:播放视频,浏览网页。

添加视频

  1. 将视频拖入仿真界面中,确保Embed file为选中状态。
  2. 导入AxtiveX模块。
  3. 根据需要播放的视频窗口修改AxtiveX的图标大小,默认状态下视频界面过小。
  4. 创建两个方法负责打开视频和关闭视频,方法具体程序在下方。
  5. 运行对应方法即可播放视频。

播放视频

//获取所有已注册的COM端口的类名
var description:table := activeX.overview

//查找”Windows Media Player”应用
description.setcursor(2,1)
if description.find({2,1}..{2,*},”Windows Media Player”)

//读取”Windows Media Player”的COM端口类名
var classname:string := description[1, description.cursorY]

else

promptmessage(“未找到Windows Media Player应用”)
return

end

//激活ActiveX
activeX.className:=classname
activeX.active :=true
activeX.URL :=FileLink.filename

停止播放

if activeX.active

activeX.active:=false

end

打开网页

  1. 导入AxtiveX模块。
  2. 根据需要打开网页的窗口大小修改AxtiveX的图标大小,默认状态下视频界面过小。
  3. 创建两个方法负责打开网页和关闭网页,方法具体程序在下方。
  4. 运行对应方法即可打开网页。

打开网页

//获取所有已注册的COM端口的类名
var description:table := activeX.overview

//查找”Windows Media Player”应用
description.setcursor(2,1)
if description.find({2,1}..{2,*},”Microsoft Web Browser”)

//读取”Windows Media Player”的COM端口类名
var classname:string := description[1, description.cursorY]

else

promptmessage(“未找到Microsoft Web Browser应用”)
return

end

//激活ActiveX
activeX.className:=classname
activeX.active :=true
ActiveX.navigate(“www.plantsim.top”)

关闭网页

if activeX.active

activeX.active:=false

end

发表评论