如何用vb播放幻灯片
来源:互联网 发布:linux apache php7 编辑:程序博客网 时间:2024/04/30 05:03
如何让幻灯片在vb的框架里播放
'Microsoft PowerPoint 9.0(Office 2000的,如果是97则是8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延时API声明
Private Sub Form_Load()
Dim ppt As New PowerPoint.Application
Dim pres As Presentation
ppt.Visible = True
Set pres = ppt.Presentations.Open(App.Path & "/Test.ppt") '填入你的文件名
With pres.SlideShowSettings
.Run
While pres.SlideShowWindow.View.State <> ppSlideShowDone
ppt.SlideShowWindows(1).View.Next
Sleep 1000 '填入延迟的时间调整快慢(毫秒)
Wend
End With
pres.Close
ppt.Quit
Set pres = Nothing
Set ppt = Nothing
End Sub
- 如何用vb播放幻灯片
- 如何用VB编写FLASH动画播放器
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用VB建立数据库
- 如何用VB建立快捷方式
- 如何用VB建立快捷方式
- 如何用applet播放mp3
- 如何用PowerVideoMaker把幻灯片PPT转换成视频
- 如何用vb.net下载web页
- 如何用VB编写OPC客户端程序
- 如何用VB开发游戏外挂
- 如何用VB编写NT服务程序
- 如何用vb语句连接SQL数据库
- 如何用vb将值写入注册表
- 如何用VB开发游戏外挂
- 委托
- 找到你了
- 响应改变Slider
- 通过SO_BINDTODEVICE实现interface绑定
- 组合项目管理,请您出谋划策
- 如何用vb播放幻灯片
- MFC CString 用法小结4
- 受益终生的十大经典管理学定律(
- [转]java解析xml之一 Dom4j
- 医疗保险和党政档案 引起的那些事
- textbox 控件应用
- 从今天开始,我的第一篇文章,走入程序之路
- 又当爹又当妈的产品经理
- 自动化测试----QTP