vb 播放 ppt

引用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

‘退出。

VB.NET怎样播放视频

首先要确定播放的视频格式是什么格式，如果是windows media player支持的格式，直接使用该控件就行了，如果是单个视频的话，比如命名为myPlayer,则：

myPlayer.url="视频文件完整路径"

vb.net内嵌的视频怎么用media player控件播放啊？

“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“COM组件”标签，在列表中找到并勾选“Windows Media Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱选项卡中，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出来的控件就是AxWindowsMediaPlayer

网站栏目：vb.net里播放ppt net vb
分享地址：http://myzitong.com/article/hgpcgi.html