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

1贵州省贵阳市花溪二中初中信息技术在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播放状态下播放时，“最后”按钮中命令的执行起来就快多了。