如何在PPT中播放swf文件？

材料/工具：ppt20101、将flash文件与ppt文件放在同一个文件夹2、选择“开发工具”选项卡，然后在控件栏中选择“其他控件”，在弹出的对话框中，选择“Shockwave Flash Object”控件3、如果没有开发工具这个选项，点击“office选项”4、选择“PowerPoint选项”5、在“常用”菜单中，勾选“在功能区显示“开发工具”选项卡”6、按住鼠标左键不松手，在PPT编辑区画出一个“信封包”，这个信封包就是播放SWF文件的区域，然后在这个区域单击鼠标右键，选择“属性”7、在弹出的对话框中进行设置：在Movie栏目后填写要播放的SWF文件名8、保存PPT之后，flash文件就已经嵌入到PPT中了。

在PPT中播放swf文件的步骤：1、点OFFICE按钮——点PowerPoint选项；2、勾选【在功能区显示“开发工具”选项卡】，点确定；3、点开发工具，点其他控件；4、选择shockwave flash object，点确定；5、在编辑区鼠标拉出一个合适的控件大小，然后鼠标右键选择属性；6、点Movie项的右边，输入flash存储的绝对路径，例如：E:\Music\flash3740.swf；7、点幻灯片放映——从当前幻灯片开始；8、出现如下警告提示，点【我可以识别此内容，允许播放】，点继续。

运行Powerpoint程序，打开要插入动画的幻灯片。 2.单击菜单中的“视图”选项，在下拉菜单中选择“工具栏”的“控件工具箱” 再从下拉菜单中选择“其它控件”按钮。 3.在随后打开的控件选项界面中，选择“Shockwave FlashObject”选项，出现“十”字光标，再将该光标标移动到Powerpoint的编辑区域中，画出适合大小的矩形区域也就是播放动画的区域，就会出现一个有X的框。 4.双击这个框，出现vb界面。其中的属性窗口中有个“自定义”属性，点自定义旁边的三点，出现属性页。在WOVIE URL中输入Flash完整地址，按确定即可。要注意的是输入的路径中必须完整的填写后缀名。 本回答被网友采纳

是用作上课用的吧，也可能是你把它放在里面，swf文件当你远离了你自已的电脑，文件就不存在了，可能得话把你所做的PPT和那个源文件放在一起，然后再插入进来，把它们放在一起，试一下。应该不要什么控件吧

以PPT2010操作为例：1、首先打开PPT软件进入，如图所示，选择点击“开发工具”菜单选项下的“其它控件”。2、在弹出的其它控件窗口中找到Shockwave Flash Object，选中它后点击确定按钮。3、在幻灯片中拖动出一个区域，Shockwave Flash Object控件就被加载到幻灯片中，在Shockwave Flash Object控件右击，然后在右键菜单中选择“属性”。。4、最后，将会在右侧弹出一个属性面板，找到movie输入swf文件名+.swf，这样操作即可完成操作。

PPT中插入swf格式的文件的具体步骤如下：我们需要准备的材料分别是：电脑、PPT幻灯片。1、首先我们打开需要编辑的PPT幻灯片，点击打开视图中的“工具栏”，之后选择“空间工具箱”。2、然后我们在弹出来的窗口中点击打开右下角带有锤子图标的按键，选择打开“Shockwave Flash Object”，之后在PPT幻灯片页面中框选出想要的区域。3、然后我们右键单击框选出来的区域，选择打开“属性”，之后点击movie后面的输入框，输入swf文件名+.swf，点击EmbedMovie后面的输入框，输入true即可。 本回答被网友采纳

1将SWF文件与PPT文件放在一个文件包中2视图-工具栏-控件工具箱3在弹出的面板上找到最后一个按纽“其他控件”--在弹出的下列框中找到字母S开头的“shockwave flash object”点选4.在PPT中插入的地方画框，此处就是呈现FLASH的地方。5.双击形成的带X的方框，出现若干窗口，找到属性窗口。6.在窗口中找到“自定义”，点它，它右边一格会出现带省略号的按纽。7.点按纽，在弹出的窗口中第一格中填上插入SWF文件的名字，按确定后，关闭可见窗口，回到PPT，就成功了，点放映，就行了

看得出来，你已经基本掌握了嵌入flash的方法，只是有几个细节还没有理解。1.并不是所有电脑的flash控件工具栏里都能找到自定义，所以不应养成依赖它的习惯。2.为了简便实用的原因。在嵌入flash之前，先把你的ppt文件保存，而且把要嵌入的flash文件复制到保存ppt文件的文件夹里。这样下面就不必在考虑路径的问题，只需要知道flash文件的文件名就行了。这对初学者很重要。3.如下图，我们只要找到movie，把要潜入的flash文件名（如：01.swf）输入到它后面的空格里即可。需要注意的问题是一定要在英文输入法状态下。最保险的方法是把文件名复制过来进行粘贴。输完后直接关掉该工具栏就行了。4.按下shift+F5组合键，从当前页放映幻灯片文件，你就可以看到效果了。 swf的地址就是你的flash文件放置的地方加上该文件名。要从盘符开始，比如D:/web/01.swf就是说你要嵌入的flash文件01.swf放置在D盘的web文件里。 本回答被提问者采纳

如何在PPT中插入swf格式的文件？山与水的人生14148人看过2015-01-17更新在PPT中插入swf格式的文件,下面是具体演示过程。工具/原料PPT方法/步骤1/7 分步阅读将SWF文件与PPT文件放在一个文件包中。2/7点击视图-工具栏-控件工具箱。3/7在弹出的面板上找到最后一个按纽“其他控件”--在弹出的下列框中找到字母S开头的“shockwave flash object”点选。4/7在PPT中插入的地方画框，此处就是呈现FLASH的地方。5/7双击形成的带X的方框，出现若干窗口，找到属性窗口。6/7在窗口中找到“自定义”，点它，它右边一格会出现带省略号的按纽。7/7点按纽，在弹出的窗口中第一格中填上插入SWF文件的名字，按确定后，关闭可见窗口，回到PPT，就成功了，点放映，就行了。注意事项当然以上并非是唯一的方法，比如可以将swf文件格式转成其他格式，ppt插入即可

1、首先要将flash文件与目标ppt文件放在同一个文件夹，如图所示。2、然后进入PPT页面，点击“开发工具”菜单下的“其他控件”图标。3、然后在出现的页面，选择“Shockwave Flash Object”控件。4、然后在PPT编辑区画出一个“信封包”，这个信封包就是播放SWF文件的区域。5、然后用鼠标右击此区域，在右键菜单中点击“属性”选项。6、在弹出的对话框中，在Movie栏目后填写要播放的SWF文件名。注意一定要写文件后缀名，不要写路径，只写文件名，在EmbedMovie选项中选择true。7、完成以上设置后，即可在PPT中插入SWF文件，并可以点击和播放。

1.点击开发工具-其他控件，选择shockwave falsh object-确定2.这是鼠标变为十字，画出要播放的动画屏幕画面的范围3.在范围框上右击，选择属性4.在属性面板中的Movie处填入要添加的动画的路径和文件的名称，用\连接，EmbedMovie的属性设置为True5.保存后再打开，那么就可以实现动画嵌入PPT中了，该ppt在任何一台电脑上都可以播放此PPT.

一、PPT就不支持SWF格式！所以无法插入它！就更不要讲点击就能播放的问题了。二、点击就能播放的视频格式，只有WMV格式，其它格式是做不到的。如AVI、MPEG等，都不能点击就播放。用格式工厂转换成WMV格式，是唯一正确的选择！其它转换软件，存在黑边等问题。从360软件管家中下载格式工厂，安全可靠，不用注册 本回答被提问者采纳

可以从网络上找个在powerpoint中插入flash的插件，安装，然后你的ppt就可以用来插入并播放flash了。

在StatusBar上单击鼠标右键，选择“属性”，从弹出的窗口中选择“窗格”页面，用鼠标点击“插入窗格”5次，一、PPT就不支持SWF格式！所以无法插入它！就更不要讲点击就能播放的问题了。二、点击就能播放的视频格式，只有WMV格式，其它格式是做不到的。如AVI、MPEG等，都不能点击就播放。用格式工厂转换成WMV格式，是唯一正确的选择！其它转换软件，存在黑边等问题。从360软件管家中下载格式工厂，安全可靠，不用注册在索引1－5中分别设置“文本”属性为：“共

点“视图”---“工具栏”---“控件工具箱”，打开“控件工具箱”对话框。点“其它控件”，在打开的对话框中找到Shockwave Flash Object控件。点击Shockwave Flash Object控件，然后按住鼠标左键不松手，在PPT编辑区画出一个“信封包”，这个信封包就是播放SWF文件的区域。右键点击“信封包”，在弹出的菜单中点击“属性”，弹出控件属性对话框。在弹出的对话框中进行设置：在Movie栏目后填写要播放的SWF文件名，并要注意四点：一是一定要写文件后缀名；二是不要写路径，只写文件名；三是在EmbedMovie选项中选择true；四是播放的SWF文件一定要和PPT主文件放在同一文件夹中。做完上述工作后，点保存，成功了。先运行一下，SWF文件能运行，再删除SWF文件，点运行还能正常运行。注：如果出现提示，选择—我可以识别次内容，允许播放。再点继续。即可播放SWF文件了

为方便以后常用，建议拖到上面工具栏。 点击最后一个按钮“其它控件”，找到“ Shockw Flash Obje”并单击， 当鼠标变成+时在幻灯片空白处拖拉出播放区域 在拖出的播放区内右键单击，选择属性，在movie后输入要插入的swf文件的路径和文件名名，注意：一定要带扩展名swf，将embedmovie后选项改成true ，使swf文件保存到ppt档案中，否则将幻灯片拷到别处可能出错。 强烈建议将swf文件、ppt文件放同一个文件夹中，这样输入要插入的swf文件名时就无需带路径。 最后别忘了保存。an

可以用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()注释：打开onerrorgotoexitopencommondialog1.flags=cdlofnallowmultiselectorcdlofnfilemustexistorcdlofnexplorercommondialog1.filename=〃"commondialog1.showopen注释：显示“打开”对话框。注释：以vbnullchar作为子字符串的边界分隔字符串commondialog1返回的filename。filenames()=split(commondialog1.filename,vbnullchar)ifubound(filenames)=0then注释：用户只打开了一个文件。form2!shockwaveflash1.movie=filenames(0)totalfile=1playfilenum=0else注释：用户打开了多于一个文件。form2!shockwaveflash1.movie=filenames(0)＋〃\〃＋filenames(1)totalfile=ubound(filenames)playfilenum=1endifstatusbar1.panels(1).text=〃共打开了〃＋trim(str(totalfile))＋〃个文件〃cmdplay_clickexitopen:endsubprivatesubcmdplay_click()注释：开始播放iftotalfile<1thenexitsub注释：用户还没有打开文件。注释：显示form2开始播放动画。form2.caption=filenames(playfilenum)＋〃－flash动画播放器〃form2.showform2!shockwaveflash1.playing=trueiftotalfile=1thenplayfilenum=0注释：显示状态条的信息。statusbar1.panels(3).text=〃正在播放文件：〃＋filenames(playfilenum)＋〃...〃注释：显示滑动条的状态。slider1.max=form2!shockwaveflash1.totalframeslabel2.caption=str(slider1.max/2)＋〃帧〃label3.caption=str(slider1.max)＋〃帧〃endsubprivatesubcmdpause_click()注释：暂停播放form2!shockwaveflash1.stopendsubprivatesubcmdpre_click()注释：播放上一个文件iftotalfile<>1then注释：当用户打开多于一个文件时playfilenum=playfilenum－1ifplayfilenum<1thenplayfilenum=totalfileform2!shockwaveflash1.movie=filenames(0)＋〃\〃＋filenames(playfilenum)endif注释：显示播放状态的信息。statusbar1.panels(3).text=〃正在播放文件：〃＋filenames(playfilenum)＋〃...〃slider1.max=form2!shockwaveflash1.totalframesform2.caption=filenames(playfilenum)＋〃－flash动画播放器〃label2.caption=str(slider1.max/2)＋〃帧〃label3.caption=str(slider1.max)＋〃帧〃endsubprivatesubcmdnext_click()注释：播放下一个文件iftotalfile<>1then注释：用户打开多于一个文件时playfilenum=playfilenum＋1ifplayfilenum>totalfilethenplayfilenum=1form2!shockwaveflash1.movie=filenames(0)＋〃\〃＋filenames(playfilenum)endif注释：显示播放状态的信息。statusbar1.panels(3).text=〃正在播放文件：〃＋filenames(playfilenum)＋〃...〃slider1.max=form2!shockwaveflash1.totalframesform2.caption=filenames(playfilenum)＋〃－flash动画播放器〃label2.caption=str(slider1.max/2)＋〃帧〃label3.caption=str(slider1.max)＋〃帧〃endsubprivatesubcmdpreframe_click()注释：跳到动画的上一帧form2!shockwaveflash1.backendsubprivatesubcmdnextframe_click()注释：跳到动画的下一帧form2!shockwaveflash1.forwardendsubprivatesubcmdexit_click()注释：退出程序endendsubprivatesubslider1_scroll()注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。form2!shockwaveflash1.framenum=slider1.valueendsubprivatesubmnudisplay0_click()注释：将画面大小设置为在控件内保持动画原来比例全部显示form2!shockwaveflash1.scalemode=0mnudisplay0.checked=truemnudisplay1.checked=falsemnudisplay2.checked=falseendsubprivatesubmnudisplay1_click()注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化form2!shockwaveflash1.scalemode=1mnudisplay0.checked=falsemnudisplay1.checked=truemnudisplay2.checked=falseendsubprivatesubmnudisplay2_click()注释：将画面大小设置为不理会动画原来比例缩放至控件大小form2!shockwaveflash1.scalemode=2mnudisplay0.checked=falsemnudisplay1.checked=falsemnudisplay2.checked=trueendsubprivatesubmnuloopplay_click()注释：将播放方式设置为循环或不循环。mnuloopplay.checked=notmnuloopplay.checkedform2!shockwaveflash1.loop=notform2!shockwaveflash1.loopendsubprivatesubmnuquality0_click()注释：将画面质量设置为低分辨率form2!shockwaveflash1.quality=0mnuquality0.checked=truemnuquality1.checked=falseendsubprivatesubmnuquality1_click()注释：将画面质量设置为高分辨率form2!shockwaveflash1.quality=1mnuquality0.checked=falsemnuquality1.checked=trueendsubprivatesubmnuzoomin_click()注释：放大画面。form2!shockwaveflash1.zoom(50)endsubprivatesubmnuzoomout_click()注释：缩小画面。form2!shockwaveflash1.zoom(200)endsubprivatesubform_unload(cancelasinteger)end注释：结束程序endsub 第二步：在form2的代码窗口中添加以下代码：privatesubform_resize()注释：将shockwaveflash1控件的大小设置为form2的大小。shockwaveflash1.top=form2.scaletopshockwaveflash1.left=form2.scaleleftshockwaveflash1.width=form2.scalewidthshockwaveflash1.height=form2.scaleheightendsubprivatesubtimer1_timer()注释：在状态栏和滑动条上显示当前播放的帧。form1!statusbar1.panels(5).text=str(shockwaveflash1.framenum)form1!slider1.value=shockwaveflash1.framenumendsub第三步：调试、运行程序运行。当播放flash动画时，在播放窗口中单击鼠标右键时，将会弹出菜单。在该菜单，我们可以完成控制flash动画播放的大部份工作。若想取消该功能，只要将shockwaveflash控件的menu属性设置为false即可。

可以用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 CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer CommonDialog1.FileName=〃" CommonDialog1.ShowOpen注释：显示“打开”对话框。 注释：以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。 FileNames()=Split(CommonDialog1.FileName,vbNullChar) IfUBound(FileNames)=0Then注释：用户只打开了一个文件。 Form2!ShockwaveFlash1.Movie=FileNames(0) TotalFile=1 PlayFileNum=0 Else注释：用户打开了多于一个文件。 Form2!ShockwaveFlash1.Movie=FileNames(0)＋〃\〃＋FileNames(1) TotalFile=UBound(FileNames) PlayFileNum=1 EndIf StatusBar1.Panels(1).Text=〃共打开了〃＋Trim(Str(TotalFile))＋〃个文件〃 cmdPlay_Click ExitOpen: EndSub PrivateSubcmdPlay_Click()注释：开始播放 IfTotalFile<1ThenExitSub注释：用户还没有打开文件。 注释：显示Form2开始播放动画。 Form2.Caption=FileNames(PlayFileNum)＋〃－Flash动画播放器〃 Form2.Show Form2!ShockwaveFlash1.Playing=True IfTotalFile=1ThenPlayFileNum=0 注释：显示状态条的信息。 StatusBar1.Panels(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃 注释：显示滑动条的状态。 Slider1.Max=Form2!ShockwaveFlash1.TotalFrames Label2.Caption=Str(Slider1.Max/2)＋〃帧〃 Label3.Caption=Str(Slider1.Max)＋〃帧〃 EndSub PrivateSubcmdPause_Click()注释：暂停播放 Form2!ShockwaveFlash1.Stop EndSub PrivateSubcmdPre_Click()注释：播放上一个文件 IfTotalFile<>1Then注释：当用户打开多于一个文件时 PlayFileNum=PlayFileNum－1 IfPlayFileNum<1ThenPlayFileNum=TotalFile Form2!ShockwaveFlash1.Movie=FileNames(0)＋〃\〃＋FileNames(PlayFileNum) EndIf 注释：显示播放状态的信息。 StatusBar1.Panels(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃 Slider1.Max=Form2!ShockwaveFlash1.TotalFrames Form2.Caption=FileNames(PlayFileNum)＋〃－Flash动画播放器〃 Label2.Caption=Str(Slider1.Max/2)＋〃帧〃 Label3.Caption=Str(Slider1.Max)＋〃帧〃 EndSub PrivateSubcmdNext_Click()注释：播放下一个文件 IfTotalFile<>1Then注释：用户打开多于一个文件时 PlayFileNum=PlayFileNum＋1 IfPlayFileNum>TotalFileThenPlayFileNum=1 Form2!ShockwaveFlash1.Movie=FileNames(0)＋〃\〃＋FileNames(PlayFileNum) EndIf 注释：显示播放状态的信息。 StatusBar1.Panels(3).Text=〃正在播放文件：〃＋FileNames(PlayFileNum)＋〃...〃 Slider1.Max=Form2!ShockwaveFlash1.TotalFrames Form2.Caption=FileNames(PlayFileNum)＋〃－Flash动画播放器〃 Label2.Caption=Str(Slider1.Max/2)＋〃帧〃 Label3.Caption=Str(Slider1.Max)＋〃帧〃 EndSub PrivateSubcmdPreFrame_Click()注释：跳到动画的上一帧 Form2!ShockwaveFlash1.Back EndSub PrivateSubcmdNextFrame_Click()注释：跳到动画的下一帧 Form2!ShockwaveFlash1.Forward EndSub PrivateSubcmdExit_Click()注释：退出程序 End EndSub PrivateSubSlider1_Scroll() 注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。 Form2!ShockwaveFlash1.FrameNum=Slider1.Value EndSub PrivateSubmnuDisplay0_Click() 注释：将画面大小设置为在控件内保持动画原来比例全部显示 Form2!ShockwaveFlash1.ScaleMode=0 mnuDisplay0.Checked=True mnuDisplay1.Checked=False mnuDisplay2.Checked=False EndSub PrivateSubmnuDisplay1_Click() 注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化 Form2!ShockwaveFlash1.ScaleMode=1 mnuDisplay0.Checked=False mnuDisplay1.Checked=True mnuDisplay2.Checked=False EndSub PrivateSubmnuDisplay2_Click() 注释：将画面大小设置为不理会动画原来比例缩放至控件大小 Form2!ShockwaveFlash1.ScaleMode=2 mnuDisplay0.Checked=False mnuDisplay1.Checked=False mnuDisplay2.Checked=True EndSub PrivateSubmnuLoopPlay_Click() 注释：将播放方式设置为循环或不循环。 mnuLoopPlay.Checked=NotmnuLoopPlay.Checked Form2!ShockwaveFlash1.Loop=NotForm2!ShockwaveFlash1.Loop EndSub PrivateSubmnuQuality0_Click() 注释：将画面质量设置为低分辨率 Form2!ShockwaveFlash1.Quality=0 mnuQuality0.Checked=True mnuQuality1.Checked=False EndSub PrivateSubmnuQuality1_Click() 注释：将画面质量设置为高分辨率 Form2!ShockwaveFlash1.Quality=1 mnuQuality0.Checked=False mnuQuality1.Checked=True EndSub PrivateSubmnuZoomIn_Click() 注释：放大画面。 Form2!ShockwaveFlash1.Zoom(50) EndSub PrivateSubmnuZoomOut_Click() 注释：缩小画面。 Form2!ShockwaveFlash1.Zoom(200) EndSub PrivateSubForm_Unload(CancelAsInteger) End注释：结束程序 EndSub 第二步：在Form2的代码窗口中添加以下代码： PrivateSubForm_Resize() 注释：将ShockwaveFlash1控件的大小设置为Form2的大小。 ShockwaveFlash1.Top=Form2.ScaleTop ShockwaveFlash1.Left=Form2.ScaleLeft ShockwaveFlash1.Width=Form2.ScaleWidth ShockwaveFlash1.Height=Form2.ScaleHeight EndSub PrivateSubTimer1_Timer() 注释：在状态栏和滑动条上显示当前播放的帧。 Form1!StatusBar1.Panels(5).Text=Str(ShockwaveFlash1.FrameNum) Form1!Slider1.Value=ShockwaveFlash1.FrameNum EndSub 第三步：调试、运行程序，运行界面如图2所示。 当播放Flash动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwaveflash控件的Menu属性设置为False即可。资料引用:http://www.knowsky.com/337260.html 本回答被提问者采纳