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即可。 27. 在PPT中插入的swf文件如何去掉播放时弹出的病毒警告
可以用插入Flash控件的方式来插入Flash，这样插入的FLASH是可以像影片一样播放的
28. ppt2007中插入swf文件保存后无法播放
你再次打开的时候注意一下，会跳出一个提示，关于是否启用宏，选择“是”，就可以播放了。 ppt出于自我保护
29. 如何在PPT中插入swf格式的文件？ 1将SWF文件与PPT文件放在一个文件包中 2视图-工具栏-控件工具箱
3在弹出的面板上找到最后一个按纽“其他控件”--在弹出的下列框中找到字母S开头的“shockwave flash object”点选
4.在PPT中插入的地方画框，此处就是呈现FLASH的地方。 5.双击形成的带X的方框，出现若干窗口，找到属性窗口。
6.在窗口中找到“自定义”，点它，它右边一格会出现带省略号的按纽。 7.点按纽，在弹出的窗口中第一格中填上插入SWF文件的名字，按确定后，关闭可见窗口，回到PPT，就成功了，点放映，就行了。 30. 如何在幻灯片中（PPT）文件中插入flash动画？
在ppt“控件工具箱”菜单里点击最后那个图标“其他控件”在弹出的下拉列表里选择“shockwave flash object”后鼠标变成一个十字架，这样就摁左键画出一个范围，这个范围是你要出入flash的播放窗口哦。
画完后右键点击此框，在弹出的菜单里点击“属性”，然后在弹出的窗口里“movie”那一栏填入你要插入的flash的文件名就ok啦。
注意：插入的flash动画需要swf格式的，最好文件名不要用中文的。另外，在插入之前先把ppt和flash放在同一个文件夹里。
相关推荐：
loading