189 8069 5689
引用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