ppt中插入的swf文件如何从指定处开始播放？（第3页）

第二步：在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即可。