十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
引用powerpoint
成都创新互联公司专注于企业成都全网营销推广、网站重做改版、宁国网站定制设计、自适应品牌网站建设、H5高端网站建设、商城网站开发、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为宁国等各大城市提供网站开发制作服务。
“Microsoft
Powerpoint
11.0
Object
Library”
前提是系统里安装了powerpoint2003
示例代码如下
Dim
op
As
PowerPoint.Presentation
Dim
moPptApp
As
PowerPoint.Application
Dim
moPptPresentation
As
Object
Dim
mnPptAppWidth
As
Single
'
Dim
mnPptAppheight
As
Single
'
Set
moPptApp
=
CreateObject("PowerPoint.Application")
Set
moPptPresentation
=
moPptApp.Presentations.Open(App.Path
"\test.ppt",
,
,
False)
‘打开应用程序目录下的test.ppt文件
With
moPptPresentation.SlideShowSettings
.Run.Width
=
mnPptAppWidth
'设置宽度
.Run.Height
=
mnPptAppheight
'设置高度
.Run.Presentation.DisplayComments
=
False
.Run.Presentation.Saved
=
True
'.Run
End
With
mopptapp.quit
‘退出。
首先要确定播放的视频格式是什么格式,如果是windows media player支持的格式,直接使用该控件就行了,如果是单个视频的话,比如命名为myPlayer,则:
myPlayer.url="视频文件完整路径"
“工具箱”中单击右键,选择“选择项”菜单,打开“选择工具箱项”窗口,选择“COM组件”标签,在列表中找到并勾选“Windows Media Player”组件,单击“确定”按钮。将该组件添加到指定的工具箱选项卡中,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出来的控件就是AxWindowsMediaPlayer