贵州省贵阳市花溪二中初中信息技术在PPT中实现Flash播放控制教案 新人教版.doc

贵州省贵阳市花溪二中初中信息技术在PPT中实现Flash播放控制教案新人教版问题：在powerpoint中通过添加“shockwaveflashobject”控件可以播放swf格式文件(flash制作的动画文件)[1]能大大增强了powerpoint的表现力。但如果想在播放过程中想“暂停”、“后退”、“快进”等需要右击控件用弹出菜单来实现比较麻烦能不能自已制作一些控制swf文件的播放按钮呢？答：可以。方法如下：(1)在“控件工具箱”单击“命令按钮”然后在“shockwaveflashobject”控件下画出添加六个命令按钮。(2)右击其中一个按钮从弹出菜单单击“属性”打开属性对话框依次把这些按钮的“Caption”属性分别改为“播放”、“暂停”、“最前”、“向前”、“向后”、“最后”。(3)双击“播放”按钮在代码对话框的PrivateSubCommandButton1_Click()和EndSub之间输入以下代码：ShockwaveFlash1.Playing=true(4)双击“暂停”按钮输入代码：ShockwaveFlash1.Playing=False(5)双击“最前”按钮输入代码：ShockwaveFlash1.FrameNum=1(6)双击“向前”按钮输入代码：ShockwaveFlash1.FrameNum=ShockwaveFlash1.FrameNum–50(7)双击“向后”按钮输入代码：ShockwaveFlash1.FrameNum=ShockwaveFlash1.FrameNum+50(8)双击“最后”按钮输入代码：DimaAsIntegerFora=1To1000ShockwaveFlash1.FrameNum=ShockwaveFlash1.FrameNum+1Ifa>ShockwaveFlash1.FrameNumThenShockwaveFlash1.Playing=FalseElseShockwaveFlash1.Playing=TrueNext做好这些按钮后在powerpoint的播放状态下控制swf文件的播放就方便多了。不足的是按下“最后”按钮时执行起来要较长的时间原因“最后”按钮执行了一个循环语句是当无法获知swf文件的总桢数时只好如此。当执行完这个命令后退出powerpoint播放状态打开“shockwaveflashobject”控件的“属性”对话框(单击“shockwaveflashobject”控件按F4键)查看“Frame”右边的数字(如图3)就是swf文件的总桢数本例是670这时把“最后”按钮原来输入的代码删除换为代码：ShockwaveFlash1.FrameNum=670再到powerpoint播放状态下播放时“最后”按钮中命令的执行起来就快多了。