2024年2月9日发(作者：祈香露)

1 请问在一个PPT文件里面插入背景音乐时，如何在阅读幻灯片时，背景音乐不受影响，可以连续的播放？

步骤一：选择“幻灯片放映”---选择“自定义动画”---双击或右击要播放的歌曲---在“效果选项”中可自定义音乐“开始播放”和“停止播放”的方式---将“停止播放”选择为“在XX张幻灯片后”，不要选择为“单击时”，一般选择为你的幻灯片的最后一页的页码。

步骤二：右击声音图标“小喇叭”---选择“编辑声音对像”---在“循环播放，直到停止”选项前打勾---确定。

2请问如何在全屏阅读幻灯片时连续播放插入的背景音乐

在插入的音乐文件图标（通常是一个小嗽叭）上单击右键，选择“编辑声音对象”会弹出一个设置对话框，里面应该有一个计时，在下面的选项中找到连续播放，直到幻灯片结束！确定就OK了。

3如何在幻灯片播放时插入背景音乐？

二、在PPT中插入音频、视频

（一）插入背景音乐

大家都知道在PowerPoint中可以向幻灯片中插入CD音乐、WAV、MID和MP3文件以及录音旁白。但是用这些方法插入背景音乐时会出现一个光碟或喇叭小图标，虽然可以在播放时隐藏它，但是在编辑状态下往往是一个碍眼的东西。而且除了录音方式外，其他方式不把音乐内容真正插入PowerPoint中，如复制或打包时遗漏音乐文件，在别的电脑上就放不出声音了。那么怎么解决这个问题呢？

选中第一页幻灯片，在“幻灯片放映”菜单下选择“幻灯片切换”，对话框中的“效果”和“换页方式”按照你的要求设置，在“声音”一栏内选“其他声音”，然后添加声音文件。这里添加的只能是WAV文件，所以如果是其他格式需要事先转化成WAV格式。然后在“循环播放，到下一声音开始时”选项前打钩。再点击“应用”，就完工了。用这种方法制作只有文字、图片和背景音乐的普通幻灯片没有多余的小喇叭图标，没有多余的音乐文件，简捷方便。

需要强调的是：这种方法只支持wav格式的文件，并且会导致演示文档本身的体积飙升：当然了，这种方法实际上是把音乐文件直接打包进演示文档之中了。

（二）插入可控制的音乐

选取视图〉工具栏〉控件工具箱，界面上会出现一个浮动工具箱，点击右下角的“其它控件”标志

选择控件“Windows Media Player”，然后用“+”字形在PowerPoint页面上画出一个矩形，即嵌入一个Media Player播放器。在拖画的区域内按鼠标右键→在弹出的快捷菜单中选“属性”，出现控件属性窗口。 控件属性窗口中，在URL（在不同的版本下，有可能为filename）里面输入音视频文件名（包括扩展名）的地址，比如G:（建议使用相对路径），或点击“自定义”栏后的小按钮出现下图所示，输入或选取要播放的文件。

需要注意的是：通过这种方式插入音频文件的话，请先保存一下ppt文档，并且把音频文件拷贝到ppt文档的同目录下，这样就可以使用相对路径了（即：不包含路径的文件名）

另一种方法是：选择“插入〉对象〉新建〉windows media player”。

说明：根据操作系统的不同，media player版本也有所不同（win98下版本是7，win2000下版本是8，winXP下是9，若安装了winXP SP2 补丁，则版本可能为），在不同的演示环境下，控件的属性窗口内容可能会有不同。另外有一个未被通告的BUG：在属性窗口中的修改，如果不点保存直接关闭文档的话，所作的修改将不被保留。

（三）插入可控制的视频

方法同上，但是需要注意的是视频文件需要区分是不是windows系列的，比如wma、avi、mpg格式的一般都能够正常播出，但是rm、rmvb格式的，需要安装一个“Realone解码器For Windows Media Player”，另外还有一种非常少见的mov格式，也需要安装插件。

4 有没有自制软件能让PSP 看PDF或者PPT文件啊

BOOKR可以看PDF

PPT的可以在电脑里转换成JPG的

5 因为现在有两个PPT文件想用PSP显示出来所以就想让各位帮帮忙。还有就是想知道如果想放音乐直接放在PSP的记忆卡里就行了是吗？？

PPT文件现在暂时无法用PSP浏览,因为并未有高手做出软件,毕竟PSP不是PDA

如果想PSP播放音乐,应把音乐文件放在PSP/MUSIC/目录下,格式应该为MP3或WMA

6请问有没有让PSP或PMP播放器阅读ppt幻灯片或Adobe的PDF文件的方法啊?

使用PSP或PMP播放器(即Portable Media Player,掌上多媒体播放器)的高手请进！小弟为武汉市中国地质大学学生，因为最近从给我们上课的几位老师处拷贝了一些课件（幻灯片），同时小弟又从网上下了一些PDF格式的电子文档（有关小弟所学专业的）。我不想一整天坐在电脑旁看这些学习资料，因为在寝室里还有其他室友用电脑上网，玩游戏的，对本人学习有一定影响。我就想把这些幻灯片和PDF文件，放到我的PMP播放器（可玩从网上下载的游戏）里，到教室上自习的时候，顺便把PMP机子带上，随时打开以阅读保存在机子里面的幻灯片或PDF文件。

在这里，想请教各位高手2个问题：

1.如何让一个PSP或PMP播放器直接阅读ppt幻灯片或Adobe的PDF文件啊？

这里的直接阅读是指，从网上下载一些ppt幻灯片或Adobe的PDF文件，不经任何格式转换（比如转为TXT格式），直接放到PSP或PMP播放器里。然后，就是打开PSP或PMP播放器，在机子上直接阅读这些下载的幻灯片或PDF文件。

请问，这个能做到吗？有没有什么办法可以做到呢？

注意哦，不要经过任何格式转化。就放在播放器上直接阅读。

第二个问题，小弟有一想法，就是从网上下载一个阅读幻灯片的软件和一个阅读PDF文件的软件，都放到我的PMP播放器里专门放游戏的那个文件夹里面，并在该文件夹里就地安装这两个软件；接着，把从网上下的和从老师那边考来的课件资料放进刚才所说的那个文件夹内。不知道这一想法能否实现，想请教一下各位。

1.现在PPT没有这样的软件支持，不过PDF已经可以了，BOOKR就可以，下新版的，支持中文的PDF„„（PSP专用软件）

2.不可能，你下的那软件的平台是PC，放到PMP里平台都变了怎么可能支持，就好比你在WINDOWS里运行MAC的程序一样，不可能运行的！

将ppt转化成PDF的软件好像没有这个功能。

请问大家有没有什么好办法？

可以这么操作：

1.首先将pdf另存为图片

2.新建一个ppt文件，把刚才的图片一张张拖放到ppt里，调整大小，即可

如何把PDF格式的文件转换成当幻灯片看的PPT格式文件? 1.是PDF转换为PPT;

2.如果需要什么软件的话请个个链接地址!

pdf不能直接转换为ppt。

pdf是一种文本文件，它是由adobe公司开发的；而ppt是多媒体文件，它所表现的内容要比pdf文件丰富。

不过，pdf要比ppt文件早上十年左右就已经有了，而ppt是微软office系列中的。因为，两者不可能直接转换。

不过有一个间接的方法，你可以下载

Adobe Acrobat 7.0 Professional

或者6.0，5.0版本的也行，把pdf文件转换为office word所支持的rtf格式，然后再通过office把rtf格式另存为ppt格式。无论你怎么做，pdf最终转换为ppt格式后，质量、效果会很不好。

adobe acrobat 8.0 中文标准版

我用ShockWave Flash Object插入了一段Flash动画，有用的只是最后一部分，但每次重新打开后ppt后Flash都会从头开始放，怎么才能自己设置从什么时候开始播放啊？

可以用VBA代码来限制开始播放的帧数，怎么编写VBA代码下面有一段在网上引用的教程：

1、窗体、界面设计。

新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个StatusBar控件。其中：

将Form1的“Caption”属性设置为：Flash动画播放器。这是控制窗口。

将CommonDialog1的CancelError设置为True，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为1，MaxFileSize设置为10240。

将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性设置为10，TickFrequengcy属性设置为20，TextPosition设置为“1－SldBelowRight”。

将Label(1－3)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。

6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。

在StatusBar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，在索引1－5中分别设置“文本”属性为：“共打开了0个文件”、“状

态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的比例）。

进入菜单编辑器（按快捷键Ctrl＋E）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。

选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。

最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。

2、程序代码

第一步：在Form1的代码窗口中添加以下代码：

DimFileNames()AsString注释：用于保存打开的文件名称。

DimPlayFileNumAsInteger注释：用于计算正在播放的文件序号。

DimTotalFileAsInteger注释：用于统计打开的文件总数。

PrivateSubcmdOpen_Click()注释：打开

OnErrorGoToExitOpen

=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer

me=〃"

en注释：显示“打开”对话框。

注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。

FileNames()=Split(me,vbNullChar)

IfUBound(FileNames)=0Then注释：用户只打开了一个文件。

Form2!=FileNames(0)

TotalFile=1

PlayFileNum=0

Else注释：用户打开了多于一个文件。

Form2!=FileNames(0)＋〃〃＋FileNames(1)

TotalFile=UBound(FileNames)

PlayFileNum=1

EndIf

(1).Text=〃共打开了〃＋Trim(Str(TotalFile))＋〃个文件〃

cmdPlay_Click

ExitOpen:

EndSub

PrivateSubcmdPlay_Click()注释：开始播放

IfTotalFile<1ThenExitSub注释：用户还没有打开文件。

注释：显示Form2开始播放动画。

n=FileNames(PlayFileNum)＋〃－Flash动画播放器〃

Form2!g=True

IfTotalFile=1ThenPlayFileNum=0

注释：显示状态条的信息。

(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃

注释：显示滑动条的状态。

=Form2!rames

n=Str(/2)＋〃帧〃

n=Str()＋〃帧〃

EndSub

PrivateSubcmdPause_Click()注释：暂停播放

Form2!

EndSub

PrivateSubcmdPre_Click()注释：播放上一个文件

IfTotalFile<>1Then注释：当用户打开多于一个文件时

PlayFileNum=PlayFileNum－1

IfPlayFileNum<1ThenPlayFileNum=TotalFile

Form2!=FileNames(0)＋〃〃＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃

=Form2!rames

n=FileNames(PlayFileNum)＋〃－Flash动画播放器〃

n=Str(/2)＋〃帧〃

n=Str()＋〃帧〃

EndSub

PrivateSubcmdNext_Click()注释：播放下一个文件

IfTotalFile<>1Then注释：用户打开多于一个文件时

PlayFileNum=PlayFileNum＋1

IfPlayFileNum>TotalFileThenPlayFileNum=1

Form2!=FileNames(0)＋〃〃＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃

=Form2!rames

n=FileNames(PlayFileNum)＋〃－Flash动画播放器〃

n=Str(/2)＋〃帧〃

n=Str()＋〃帧〃

EndSub

PrivateSubcmdPreFrame_Click()注释：跳到动画的上一帧

Form2!

EndSub

PrivateSubcmdNextFrame_Click()注释：跳到动画的下一帧

Form2!d

EndSub

PrivateSubcmdExit_Click()注释：退出程序

End

EndSub

PrivateSubSlider1_Scroll()

注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。

Form2!um=

EndSub

PrivateSubmnuDisplay0_Click()

注释：将画面大小设置为在控件内保持动画原来比例全部显示

Form2!ode=0

d=True

d=False

d=False

EndSub

PrivateSubmnuDisplay1_Click()

注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化

Form2!ode=1

d=False

d=True

d=False

EndSub

PrivateSubmnuDisplay2_Click()

注释：将画面大小设置为不理会动画原来比例缩放至控件大小

Form2!ode=2

d=False

d=False

d=True

EndSub

PrivateSubmnuLoopPlay_Click()

注释：将播放方式设置为循环或不循环。

d=d

Form2!=NotForm2!

EndSub

PrivateSubmnuQuality0_Click()

注释：将画面质量设置为低分辨率

Form2!y=0

d=True

d=False

EndSub

PrivateSubmnuQuality1_Click()

注释：将画面质量设置为高分辨率

Form2!y=1

d=False

d=True

EndSub

PrivateSubmnuZoomIn_Click()

注释：放大画面。

Form2!(50)

EndSub

PrivateSubmnuZoomOut_Click()

注释：缩小画面。

Form2!(200)

EndSub

PrivateSubForm_Unload(CancelAsInteger)

End注释：结束程序

EndSub

第二步：在Form2的代码窗口中添加以下代码：

PrivateSubForm_Resize()

注释：将ShockwaveFlash1控件的大小设置为Form2的大小。

=op

=eft

=idth

=eight

EndSub

PrivateSubTimer1_Timer()

注释：在状态栏和滑动条上显示当前播放的帧。

Form1!(5).Text=Str(um)

Form1!=um

EndSub

第三步：调试、运行程序，运行界面如图2所示。

当播放Flash动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwaveflash控件的Menu属性设置为False即可。

资料引用:/

用VB编写FLASH动画播放器

资料引用:/

Flash4是MacroMedia公司出品的矢量动画创作专业软件，利用该软件制作的矢量动画具有文件体积小、带音效和兼容性好等特点。那么，你想不想在自己编写的程序中加入Flash动画，为自己的程序添加一道亮丽的色彩呢？

一、编程原理

本程序利用了Flash4本身自带播放Flash动画的控件。你可以通过以下途径获得该控件：1、安装Flash4；2、安装Windows98自带的Flash插件，方法：依次单击“开始”菜单－“设置”－“控制面板”－“添加/删除程序”－“Windows安装程序”－“多媒体”－“详细资料”－选中“MacromediaShockwaveFlash”前的复选框确定即可。以上方法都会将该控件安装到Windows目录下的SystemMacromedFlash子目录下。

二、示例程序

下面就是一个用控件编写的Flash动画播放器。本程序可一次打开多个Flash

动画文件，并可在播放过程中选择播放打开的文件、随时改变播放质量、画面大小等状态；在播放过程中可以随时对播放的当前帧数进行调整或者手动进行逐帧播放，在状态栏里有当前播放状态的相关说明。在实现以上功能时，几乎用全了控件的主要属性、方法。

编程过程如下：

1、窗体、界面设计。

新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个StatusBar控件。其中：

将Form1的“Caption”属性设置为：Flash动画播放器。这是控制窗口。

将CommonDialog1的CancelError设置为True，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为1，MaxFileSize设置为10240。

将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性设置为10，TickFrequengcy属性设置为20，TextPosition设置为“1－SldBelowRight”。

将Label(1－3)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。

6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPRe、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。

在StatusBar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，在索引1－5中分别设置“文本”属性为：“共打开了0个文件”、“状态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的比例）。

进入菜单编辑器（按快捷键Ctrl＋E）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。

选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。

最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。

2、程序代码

第一步：在Form1的代码窗口中添加以下代码：

DimFileNames()AsString注释：用于保存打开的文件名称。

DimPlayFileNumAsInteger注释：用于计算正在播放的文件序号。

DimTotalFileAsInteger注释：用于统计打开的文件总数。

PrivateSubcmdOpen_Click()注释：打开

OnErrorGoToExitOpen

=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer

me=″"

en注释：显示“打开”对话框。

注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。

FileNames()=Split(me,vbNullChar)

IfUBound(FileNames)=0Then注释：用户只打开了一个文件。

Form2!=FileNames(0)

TotalFile=1

PlayFileNum=0

Else注释：用户打开了多于一个文件。

Form2!=FileNames(0)＋″″＋FileNames(1)

TotalFile=UBound(FileNames)

PlayFileNum=1

EndIf

(1).Text=″共打开了″＋Trim(Str(TotalFile))＋″个文件″

cmdPlay_Click

ExitOpen:

EndSub

PrivateSubcmdPlay_Click()注释：开始播放

IfTotalFile<1ThenExitSub注释：用户还没有打开文件。

注释：显示Form2开始播放动画。

n=FileNames(PlayFileNum)＋″－Flash动画播放器″

Form2!g=True

IfTotalFile=1ThenPlayFileNum=0

注释：显示状态条的信息。

(3).Text=″正在播放文件：″＋FileNames(PlayFileNum)＋″...″

注释：显示滑动条的状态。

=Form2!rames

n=Str(/2)＋″帧″

n=Str()＋″帧″

EndSub

PrivateSubcmdPause_Click()注释：暂停播放

Form2!

EndSub

PrivateSubcmdPre_Click()注释：播放上一个文件

IfTotalFile<>1Then注释：当用户打开多于一个文件时

PlayFileNum=PlayFileNum－1

IfPlayFileNum<1ThenPlayFileNum=TotalFile

Form2!=FileNames(0)＋″″＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=″正在播放文件：″＋FileNames(PlayFileNum)＋″...″

=Form2!rames

n=FileNames(PlayFileNum)＋″－Flash动画播放器″

n=Str(/2)＋″帧″

n=Str()＋″帧″

EndSub

PrivateSubcmdNext_Click()注释：播放下一个文件

IfTotalFile<>1Then注释：用户打开多于一个文件时

PlayFileNum=PlayFileNum＋1

IfPlayFileNum>TotalFileThenPlayFileNum=1

Form2!=FileNames(0)＋″″＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=″正在播放文件：″＋FileNames(PlayFileNum)＋″...″

=Form2!rames

n=FileNames(PlayFileNum)＋″－Flash动画播放器″

n=Str(/2)＋″帧″

n=Str()＋″帧″

EndSub

PrivateSubcmdPreFrame_Click()注释：跳到动画的上一帧

Form2!

EndSub

PrivateSubcmdNextFrame_Click()注释：跳到动画的下一帧

Form2!d

EndSub

PrivateSubcmdExit_Click()注释：退出程序

End

EndSub

PrivateSubSlider1_Scroll()

注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。

Form2!um=

EndSub

PrivateSubmnuDisplay0_Click()

注释：将画面大小设置为在控件内保持动画原来比例全部显示

Form2!ode=0

d=True

d=False

d=False

EndSub

PrivateSubmnuDisplay1_Click()

注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化

Form2!ode=1

d=False

d=True

d=False

EndSub

PrivateSubmnuDisplay2_Click()

注释：将画面大小设置为不理会动画原来比例缩放至控件大小

Form2!ode=2

d=False

d=False

d=True

EndSub

PrivateSubmnuLoopPlay_Click()

注释：将播放方式设置为循环或不循环。

d=d

Form2!=NotForm2!

EndSub

PrivateSubmnuQuality0_Click()

注释：将画面质量设置为低分辨率

Form2!y=0

d=True

d=False

EndSub

PrivateSubmnuQuality1_Click()

注释：将画面质量设置为高分辨率

Form2!y=1

d=False

d=True

EndSub

PrivateSubmnuZoomIn_Click()

注释：放大画面。

Form2!(50)

EndSub

PrivateSubmnuZoomOut_Click()

注释：缩小画面。

Form2!(200)

EndSub

PrivateSubForm_Unload(CancelAsInteger)

End注释：结束程序

EndSub

第二步：在Form2的代码窗口中添加以下代码：

PrivateSubForm_Resize()

注释：将ShockwaveFlash1控件的大小设置为Form2的大小。

=op

=eft

=idth

=eight

EndSub

PrivateSubTimer1_Timer()

注释：在状态栏和滑动条上显示当前播放的帧。

Form1!(5).Text=Str(um)

Form1!=um

EndSub

第三步：调试、运行程序，运行界面如图2所示。

当播放Flash动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwaveflash控件的Menu属性设置为False即可。

以上程序在Windows98，VB6.0下运行通过。->

资料引用:/

资料引用:/

资料引用:/

2024年2月9日发(作者：祈香露)

1 请问在一个PPT文件里面插入背景音乐时，如何在阅读幻灯片时，背景音乐不受影响，可以连续的播放？

步骤一：选择“幻灯片放映”---选择“自定义动画”---双击或右击要播放的歌曲---在“效果选项”中可自定义音乐“开始播放”和“停止播放”的方式---将“停止播放”选择为“在XX张幻灯片后”，不要选择为“单击时”，一般选择为你的幻灯片的最后一页的页码。

步骤二：右击声音图标“小喇叭”---选择“编辑声音对像”---在“循环播放，直到停止”选项前打勾---确定。

2请问如何在全屏阅读幻灯片时连续播放插入的背景音乐

在插入的音乐文件图标（通常是一个小嗽叭）上单击右键，选择“编辑声音对象”会弹出一个设置对话框，里面应该有一个计时，在下面的选项中找到连续播放，直到幻灯片结束！确定就OK了。

3如何在幻灯片播放时插入背景音乐？

二、在PPT中插入音频、视频

（一）插入背景音乐

大家都知道在PowerPoint中可以向幻灯片中插入CD音乐、WAV、MID和MP3文件以及录音旁白。但是用这些方法插入背景音乐时会出现一个光碟或喇叭小图标，虽然可以在播放时隐藏它，但是在编辑状态下往往是一个碍眼的东西。而且除了录音方式外，其他方式不把音乐内容真正插入PowerPoint中，如复制或打包时遗漏音乐文件，在别的电脑上就放不出声音了。那么怎么解决这个问题呢？

选中第一页幻灯片，在“幻灯片放映”菜单下选择“幻灯片切换”，对话框中的“效果”和“换页方式”按照你的要求设置，在“声音”一栏内选“其他声音”，然后添加声音文件。这里添加的只能是WAV文件，所以如果是其他格式需要事先转化成WAV格式。然后在“循环播放，到下一声音开始时”选项前打钩。再点击“应用”，就完工了。用这种方法制作只有文字、图片和背景音乐的普通幻灯片没有多余的小喇叭图标，没有多余的音乐文件，简捷方便。

需要强调的是：这种方法只支持wav格式的文件，并且会导致演示文档本身的体积飙升：当然了，这种方法实际上是把音乐文件直接打包进演示文档之中了。

（二）插入可控制的音乐

选取视图〉工具栏〉控件工具箱，界面上会出现一个浮动工具箱，点击右下角的“其它控件”标志

选择控件“Windows Media Player”，然后用“+”字形在PowerPoint页面上画出一个矩形，即嵌入一个Media Player播放器。在拖画的区域内按鼠标右键→在弹出的快捷菜单中选“属性”，出现控件属性窗口。 控件属性窗口中，在URL（在不同的版本下，有可能为filename）里面输入音视频文件名（包括扩展名）的地址，比如G:（建议使用相对路径），或点击“自定义”栏后的小按钮出现下图所示，输入或选取要播放的文件。

需要注意的是：通过这种方式插入音频文件的话，请先保存一下ppt文档，并且把音频文件拷贝到ppt文档的同目录下，这样就可以使用相对路径了（即：不包含路径的文件名）

另一种方法是：选择“插入〉对象〉新建〉windows media player”。

说明：根据操作系统的不同，media player版本也有所不同（win98下版本是7，win2000下版本是8，winXP下是9，若安装了winXP SP2 补丁，则版本可能为），在不同的演示环境下，控件的属性窗口内容可能会有不同。另外有一个未被通告的BUG：在属性窗口中的修改，如果不点保存直接关闭文档的话，所作的修改将不被保留。

（三）插入可控制的视频

方法同上，但是需要注意的是视频文件需要区分是不是windows系列的，比如wma、avi、mpg格式的一般都能够正常播出，但是rm、rmvb格式的，需要安装一个“Realone解码器For Windows Media Player”，另外还有一种非常少见的mov格式，也需要安装插件。

4 有没有自制软件能让PSP 看PDF或者PPT文件啊

BOOKR可以看PDF

PPT的可以在电脑里转换成JPG的

5 因为现在有两个PPT文件想用PSP显示出来所以就想让各位帮帮忙。还有就是想知道如果想放音乐直接放在PSP的记忆卡里就行了是吗？？

PPT文件现在暂时无法用PSP浏览,因为并未有高手做出软件,毕竟PSP不是PDA

如果想PSP播放音乐,应把音乐文件放在PSP/MUSIC/目录下,格式应该为MP3或WMA

6请问有没有让PSP或PMP播放器阅读ppt幻灯片或Adobe的PDF文件的方法啊?

使用PSP或PMP播放器(即Portable Media Player,掌上多媒体播放器)的高手请进！小弟为武汉市中国地质大学学生，因为最近从给我们上课的几位老师处拷贝了一些课件（幻灯片），同时小弟又从网上下了一些PDF格式的电子文档（有关小弟所学专业的）。我不想一整天坐在电脑旁看这些学习资料，因为在寝室里还有其他室友用电脑上网，玩游戏的，对本人学习有一定影响。我就想把这些幻灯片和PDF文件，放到我的PMP播放器（可玩从网上下载的游戏）里，到教室上自习的时候，顺便把PMP机子带上，随时打开以阅读保存在机子里面的幻灯片或PDF文件。

在这里，想请教各位高手2个问题：

1.如何让一个PSP或PMP播放器直接阅读ppt幻灯片或Adobe的PDF文件啊？

这里的直接阅读是指，从网上下载一些ppt幻灯片或Adobe的PDF文件，不经任何格式转换（比如转为TXT格式），直接放到PSP或PMP播放器里。然后，就是打开PSP或PMP播放器，在机子上直接阅读这些下载的幻灯片或PDF文件。

请问，这个能做到吗？有没有什么办法可以做到呢？

注意哦，不要经过任何格式转化。就放在播放器上直接阅读。

第二个问题，小弟有一想法，就是从网上下载一个阅读幻灯片的软件和一个阅读PDF文件的软件，都放到我的PMP播放器里专门放游戏的那个文件夹里面，并在该文件夹里就地安装这两个软件；接着，把从网上下的和从老师那边考来的课件资料放进刚才所说的那个文件夹内。不知道这一想法能否实现，想请教一下各位。

1.现在PPT没有这样的软件支持，不过PDF已经可以了，BOOKR就可以，下新版的，支持中文的PDF„„（PSP专用软件）

2.不可能，你下的那软件的平台是PC，放到PMP里平台都变了怎么可能支持，就好比你在WINDOWS里运行MAC的程序一样，不可能运行的！

将ppt转化成PDF的软件好像没有这个功能。

请问大家有没有什么好办法？

可以这么操作：

1.首先将pdf另存为图片

2.新建一个ppt文件，把刚才的图片一张张拖放到ppt里，调整大小，即可

如何把PDF格式的文件转换成当幻灯片看的PPT格式文件? 1.是PDF转换为PPT;

2.如果需要什么软件的话请个个链接地址!

pdf不能直接转换为ppt。

pdf是一种文本文件，它是由adobe公司开发的；而ppt是多媒体文件，它所表现的内容要比pdf文件丰富。

不过，pdf要比ppt文件早上十年左右就已经有了，而ppt是微软office系列中的。因为，两者不可能直接转换。

不过有一个间接的方法，你可以下载

Adobe Acrobat 7.0 Professional

或者6.0，5.0版本的也行，把pdf文件转换为office word所支持的rtf格式，然后再通过office把rtf格式另存为ppt格式。无论你怎么做，pdf最终转换为ppt格式后，质量、效果会很不好。

adobe acrobat 8.0 中文标准版

我用ShockWave Flash Object插入了一段Flash动画，有用的只是最后一部分，但每次重新打开后ppt后Flash都会从头开始放，怎么才能自己设置从什么时候开始播放啊？

可以用VBA代码来限制开始播放的帧数，怎么编写VBA代码下面有一段在网上引用的教程：

1、窗体、界面设计。

新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个StatusBar控件。其中：

将Form1的“Caption”属性设置为：Flash动画播放器。这是控制窗口。

将CommonDialog1的CancelError设置为True，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为1，MaxFileSize设置为10240。

将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性设置为10，TickFrequengcy属性设置为20，TextPosition设置为“1－SldBelowRight”。

将Label(1－3)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。

6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。

在StatusBar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，在索引1－5中分别设置“文本”属性为：“共打开了0个文件”、“状

态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的比例）。

进入菜单编辑器（按快捷键Ctrl＋E）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。

选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。

最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。

2、程序代码

第一步：在Form1的代码窗口中添加以下代码：

DimFileNames()AsString注释：用于保存打开的文件名称。

DimPlayFileNumAsInteger注释：用于计算正在播放的文件序号。

DimTotalFileAsInteger注释：用于统计打开的文件总数。

PrivateSubcmdOpen_Click()注释：打开

OnErrorGoToExitOpen

=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer

me=〃"

en注释：显示“打开”对话框。

注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。

FileNames()=Split(me,vbNullChar)

IfUBound(FileNames)=0Then注释：用户只打开了一个文件。

Form2!=FileNames(0)

TotalFile=1

PlayFileNum=0

Else注释：用户打开了多于一个文件。

Form2!=FileNames(0)＋〃〃＋FileNames(1)

TotalFile=UBound(FileNames)

PlayFileNum=1

EndIf

(1).Text=〃共打开了〃＋Trim(Str(TotalFile))＋〃个文件〃

cmdPlay_Click

ExitOpen:

EndSub

PrivateSubcmdPlay_Click()注释：开始播放

IfTotalFile<1ThenExitSub注释：用户还没有打开文件。

注释：显示Form2开始播放动画。

n=FileNames(PlayFileNum)＋〃－Flash动画播放器〃

Form2!g=True

IfTotalFile=1ThenPlayFileNum=0

注释：显示状态条的信息。

(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃

注释：显示滑动条的状态。

=Form2!rames

n=Str(/2)＋〃帧〃

n=Str()＋〃帧〃

EndSub

PrivateSubcmdPause_Click()注释：暂停播放

Form2!

EndSub

PrivateSubcmdPre_Click()注释：播放上一个文件

IfTotalFile<>1Then注释：当用户打开多于一个文件时

PlayFileNum=PlayFileNum－1

IfPlayFileNum<1ThenPlayFileNum=TotalFile

Form2!=FileNames(0)＋〃〃＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃

=Form2!rames

n=FileNames(PlayFileNum)＋〃－Flash动画播放器〃

n=Str(/2)＋〃帧〃

n=Str()＋〃帧〃

EndSub

PrivateSubcmdNext_Click()注释：播放下一个文件

IfTotalFile<>1Then注释：用户打开多于一个文件时

PlayFileNum=PlayFileNum＋1

IfPlayFileNum>TotalFileThenPlayFileNum=1

Form2!=FileNames(0)＋〃〃＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃

=Form2!rames

n=FileNames(PlayFileNum)＋〃－Flash动画播放器〃

n=Str(/2)＋〃帧〃

n=Str()＋〃帧〃

EndSub

PrivateSubcmdPreFrame_Click()注释：跳到动画的上一帧

Form2!

EndSub

PrivateSubcmdNextFrame_Click()注释：跳到动画的下一帧

Form2!d

EndSub

PrivateSubcmdExit_Click()注释：退出程序

End

EndSub

PrivateSubSlider1_Scroll()

注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。

Form2!um=

EndSub

PrivateSubmnuDisplay0_Click()

注释：将画面大小设置为在控件内保持动画原来比例全部显示

Form2!ode=0

d=True

d=False

d=False

EndSub

PrivateSubmnuDisplay1_Click()

注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化

Form2!ode=1

d=False

d=True

d=False

EndSub

PrivateSubmnuDisplay2_Click()

注释：将画面大小设置为不理会动画原来比例缩放至控件大小

Form2!ode=2

d=False

d=False

d=True

EndSub

PrivateSubmnuLoopPlay_Click()

注释：将播放方式设置为循环或不循环。

d=d

Form2!=NotForm2!

EndSub

PrivateSubmnuQuality0_Click()

注释：将画面质量设置为低分辨率

Form2!y=0

d=True

d=False

EndSub

PrivateSubmnuQuality1_Click()

注释：将画面质量设置为高分辨率

Form2!y=1

d=False

d=True

EndSub

PrivateSubmnuZoomIn_Click()

注释：放大画面。

Form2!(50)

EndSub

PrivateSubmnuZoomOut_Click()

注释：缩小画面。

Form2!(200)

EndSub

PrivateSubForm_Unload(CancelAsInteger)

End注释：结束程序

EndSub

第二步：在Form2的代码窗口中添加以下代码：

PrivateSubForm_Resize()

注释：将ShockwaveFlash1控件的大小设置为Form2的大小。

=op

=eft

=idth

=eight

EndSub

PrivateSubTimer1_Timer()

注释：在状态栏和滑动条上显示当前播放的帧。

Form1!(5).Text=Str(um)

Form1!=um

EndSub

第三步：调试、运行程序，运行界面如图2所示。

当播放Flash动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwaveflash控件的Menu属性设置为False即可。

资料引用:/

用VB编写FLASH动画播放器

资料引用:/

Flash4是MacroMedia公司出品的矢量动画创作专业软件，利用该软件制作的矢量动画具有文件体积小、带音效和兼容性好等特点。那么，你想不想在自己编写的程序中加入Flash动画，为自己的程序添加一道亮丽的色彩呢？

一、编程原理

本程序利用了Flash4本身自带播放Flash动画的控件。你可以通过以下途径获得该控件：1、安装Flash4；2、安装Windows98自带的Flash插件，方法：依次单击“开始”菜单－“设置”－“控制面板”－“添加/删除程序”－“Windows安装程序”－“多媒体”－“详细资料”－选中“MacromediaShockwaveFlash”前的复选框确定即可。以上方法都会将该控件安装到Windows目录下的SystemMacromedFlash子目录下。

二、示例程序

下面就是一个用控件编写的Flash动画播放器。本程序可一次打开多个Flash

动画文件，并可在播放过程中选择播放打开的文件、随时改变播放质量、画面大小等状态；在播放过程中可以随时对播放的当前帧数进行调整或者手动进行逐帧播放，在状态栏里有当前播放状态的相关说明。在实现以上功能时，几乎用全了控件的主要属性、方法。

编程过程如下：

1、窗体、界面设计。

新建工程，选择“工程”菜单下的“部件”命令，在“部件”窗口的“控件”列表中将“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的复选框选中，然后确定。再在窗体中分别加入1个CommonDialog控件、1个Slider控件、3个Label控件、6个CommandButton控件和1个StatusBar控件。其中：

将Form1的“Caption”属性设置为：Flash动画播放器。这是控制窗口。

将CommonDialog1的CancelError设置为True，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为1，MaxFileSize设置为10240。

将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性设置为10，TickFrequengcy属性设置为20，TextPosition设置为“1－SldBelowRight”。

将Label(1－3)分别放在Slider1下的左端、中间和右端。其中，Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。

6个CommandButton的“名称”属性分别为：cmdOpen、cmdPlay、cmdPause、cmdPRe、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”属性分别为：打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。

在StatusBar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，在索引1－5中分别设置“文本”属性为：“共打开了0个文件”、“状态：”、“等待”、“帧数：”、“0”，再适当设置每一项的“最小宽度”的属性（可参考图1中的比例）。

进入菜单编辑器（按快捷键Ctrl＋E）。设置第一个菜单标题为“显示控制”，名称为：mnuDisplay；在“显示控制”下设立子菜单标题分别为“全部显示”、“随窗口大小变化”、“缩放至窗口大小”，名称分别为：mnuDisplay0、mnuDisplay1、mnuDisplay2。设置第二个菜单标题为“质量控制”，名称为：mnuQuality；在“质量控制”下设立子菜单标题分别为“低分辨率”、“高分辨率”，名称分别为：mnuQuality0、mnuQuality1。设置第三个菜单标题为“播放控制”，名称为：mnuPlayControl；在“播放控制”下设立子菜单标题分别为“循环播放”、“放大画面”、“缩小画面”，名称分别为：mnuLoopPlay、mnuZoomIn、mnuZoomOut。

选择“工程”菜单下的“添加窗体”命令，新增一个窗体Form2作为播放窗口。在Form2上加入1个ShockwaveFlash控件和1个Timer控件。将Timer1控件的“Interval”属性设置为“20”。

最后，对各窗体、控件的大小、位置进行适当的调整，其大小、位置可参考图1。

2、程序代码

第一步：在Form1的代码窗口中添加以下代码：

DimFileNames()AsString注释：用于保存打开的文件名称。

DimPlayFileNumAsInteger注释：用于计算正在播放的文件序号。

DimTotalFileAsInteger注释：用于统计打开的文件总数。

PrivateSubcmdOpen_Click()注释：打开

OnErrorGoToExitOpen

=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer

me=″"

en注释：显示“打开”对话框。

注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。

FileNames()=Split(me,vbNullChar)

IfUBound(FileNames)=0Then注释：用户只打开了一个文件。

Form2!=FileNames(0)

TotalFile=1

PlayFileNum=0

Else注释：用户打开了多于一个文件。

Form2!=FileNames(0)＋″″＋FileNames(1)

TotalFile=UBound(FileNames)

PlayFileNum=1

EndIf

(1).Text=″共打开了″＋Trim(Str(TotalFile))＋″个文件″

cmdPlay_Click

ExitOpen:

EndSub

PrivateSubcmdPlay_Click()注释：开始播放

IfTotalFile<1ThenExitSub注释：用户还没有打开文件。

注释：显示Form2开始播放动画。

n=FileNames(PlayFileNum)＋″－Flash动画播放器″

Form2!g=True

IfTotalFile=1ThenPlayFileNum=0

注释：显示状态条的信息。

(3).Text=″正在播放文件：″＋FileNames(PlayFileNum)＋″...″

注释：显示滑动条的状态。

=Form2!rames

n=Str(/2)＋″帧″

n=Str()＋″帧″

EndSub

PrivateSubcmdPause_Click()注释：暂停播放

Form2!

EndSub

PrivateSubcmdPre_Click()注释：播放上一个文件

IfTotalFile<>1Then注释：当用户打开多于一个文件时

PlayFileNum=PlayFileNum－1

IfPlayFileNum<1ThenPlayFileNum=TotalFile

Form2!=FileNames(0)＋″″＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=″正在播放文件：″＋FileNames(PlayFileNum)＋″...″

=Form2!rames

n=FileNames(PlayFileNum)＋″－Flash动画播放器″

n=Str(/2)＋″帧″

n=Str()＋″帧″

EndSub

PrivateSubcmdNext_Click()注释：播放下一个文件

IfTotalFile<>1Then注释：用户打开多于一个文件时

PlayFileNum=PlayFileNum＋1

IfPlayFileNum>TotalFileThenPlayFileNum=1

Form2!=FileNames(0)＋″″＋FileNames(PlayFileNum)

EndIf

注释：显示播放状态的信息。

(3).Text=″正在播放文件：″＋FileNames(PlayFileNum)＋″...″

=Form2!rames

n=FileNames(PlayFileNum)＋″－Flash动画播放器″

n=Str(/2)＋″帧″

n=Str()＋″帧″

EndSub

PrivateSubcmdPreFrame_Click()注释：跳到动画的上一帧

Form2!

EndSub

PrivateSubcmdNextFrame_Click()注释：跳到动画的下一帧

Form2!d

EndSub

PrivateSubcmdExit_Click()注释：退出程序

End

EndSub

PrivateSubSlider1_Scroll()

注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。

Form2!um=

EndSub

PrivateSubmnuDisplay0_Click()

注释：将画面大小设置为在控件内保持动画原来比例全部显示

Form2!ode=0

d=True

d=False

d=False

EndSub

PrivateSubmnuDisplay1_Click()

注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化

Form2!ode=1

d=False

d=True

d=False

EndSub

PrivateSubmnuDisplay2_Click()

注释：将画面大小设置为不理会动画原来比例缩放至控件大小

Form2!ode=2

d=False

d=False

d=True

EndSub

PrivateSubmnuLoopPlay_Click()

注释：将播放方式设置为循环或不循环。

d=d

Form2!=NotForm2!

EndSub

PrivateSubmnuQuality0_Click()

注释：将画面质量设置为低分辨率

Form2!y=0

d=True

d=False

EndSub

PrivateSubmnuQuality1_Click()

注释：将画面质量设置为高分辨率

Form2!y=1

d=False

d=True

EndSub

PrivateSubmnuZoomIn_Click()

注释：放大画面。

Form2!(50)

EndSub

PrivateSubmnuZoomOut_Click()

注释：缩小画面。

Form2!(200)

EndSub

PrivateSubForm_Unload(CancelAsInteger)

End注释：结束程序

EndSub

第二步：在Form2的代码窗口中添加以下代码：

PrivateSubForm_Resize()

注释：将ShockwaveFlash1控件的大小设置为Form2的大小。

=op

=eft

=idth

=eight

EndSub

PrivateSubTimer1_Timer()

注释：在状态栏和滑动条上显示当前播放的帧。

Form1!(5).Text=Str(um)

Form1!=um

EndSub

第三步：调试、运行程序，运行界面如图2所示。

当播放Flash动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwaveflash控件的Menu属性设置为False即可。

以上程序在Windows98，VB6.0下运行通过。->

资料引用:/

资料引用:/

资料引用:/