H5视频播放器嵌入DIAView中

效果动画演示

 

 实现步骤

 第一步：创建窗口，并拖拽 扩展控件==>Web浏览器

第二步：设置Web浏览器控件属性 “显示工具栏”，“显示状态栏”勾选去掉

第三步： 窗口按钮或窗口事件

a) 窗口==>事件==>打开时

Dim proPath
proPath= Sys.ProjectDir
proFilePath="file:///"&proPath&"\video\index.html"
Web浏览器0.Url=proFilePath
文本框0.Text=proFilePath

b) 按钮“加载默认视频”==>事件==>左键按下

Dim proPath
proPath= Sys.ProjectDir
proFilePath="file:///"&proPath&"\video\index.html"
Web浏览器0.Url=proFilePath
文本框0.Text=proFilePath

第四步：添加新的视频操作

a) 放视频到对应的项目根目录中的“video/vedios”

b) 修改H5页面“index.html”