如何用VB程序写一个PPT演示文档软件？
发布网友
发布时间：2022-04-21 19:16
共2个回答
热心网友
时间：2024-02-23 11:38
这个。。。您是vb初学者吧，要不然哪敢提这么个狮子大开口的问题？
像PowerPoint那样的软件您以为很好造么？要不凭啥微软能垄断呢。即使是实现基本功能也至少需要数十万字的代码！况且出于知识产权考虑，没人会发给你这么多代码的！您将悬赏分设为0，就更不可能了。您最好从基本的东西学起，一点点编吧。
我也只能给你点基本思路，具体功能要思考个十天半月的，大型的编程还得画出流程图：
全屏播放：将窗体的BorderStyle属性设为0，WindowState属性设为2
在窗体的单击事件中（Form_Click），添加关于播放下一个幻灯片的代码
设置字体要用到CommonDialog控件的ShowFont方法
在窗体上预先画好足够多的Label控件（一般设成255个，用数组），用户每添加一个文本框之类的，就使一个Label的Visible设为True。图片可以用Picture或Image控件，选择图片用CommonDialog控件的ShowOpen方法
在Label_Click中，加上代码Form_Click
保存文件用CommonDialog控件的ShowSave方法，具体保存成什么格式你自己定，但无法保存成ppt格式，因为微软的演示文稿的格式是加了密的。
我也只能说这么多了，其他的你自己做吧，祝顺利
热心网友
时间：2024-02-23 11:38
示例代码如下：
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 ‘退出。
