[wps演示中Flash动画的播放控制.docVIP

wps演示中Flash动画的播放控制 下府经济开发区学校 蒋海东 在wps演示中插入Flash动画可以通过控件来实现，不过，如果插入的Flash动画本身不包括控制按钮，而用户又想控制动画暂停或继续播放，该如何实现呢？ 启动wps演示2010，依次单击在“插入”-“Flash（F）…”命令，在弹出的“插入Flash动画”对话框中，选择需要的文件，单击“打开”命令按钮，回到操作页面。右击Flash动画对象，修改（名称）属性为Swf。 图 1 依次单击“插入”--“图片”--“来自文件”，打开“插入图片”对话框，选中需要的图片，单击“打开”按钮完成图片插入。此时图片右侧出现“图片”工具栏，单击其中第7个“裁剪”按钮，对图片进行适当裁剪适应窗口。选中插入的Flash动画对象，将鼠标移到周围控制点上，左键拖动，调整大小和位置适当裁剪适应播放窗口。 图 2 在“控件工具箱”单击“命令按钮”，在“shockwave flash object”控件下左键按住拖出一个命令按钮，然后按住组合键CTRL向右拖出五个同样的命令按钮。 右击第一个按钮，从弹出菜单中单击“属性”，打开“属性”对话框，修改“Caption”属性为“播放”，同理依次选中其余按钮，分别把“Caption”属性修改为“暂停”、“最前”、“最后”、快进”、“快退”，关闭“属性”对话框。 图 3 按组合键ALT+F11，进入代码编辑窗口，单击“对象”右侧的下拉按钮，选择“CommandButton1”项，默认是Click事件， 图 4 在代码对话框的Private Sub CommandButton1_Click()和End Sub之间输入如下代码： Swf.Playing = True 图 5 单击“对象”右侧的下拉按钮，选择“CommandButton2”项，在两句代码之间输入如下代码： Swf.Playing = False 单击“对象”右侧的下拉按钮，选择“CommandButton3”项，在两句代码之间输入如下代码： Swf.FrameNum = 1 Swf.Playing = True 单击“对象”右侧的下拉按钮，选择“CommandButton4”项，在两句代码之间输入如下代码： Swf.FrameNum = Swf.TotalFrames Swf.Playing = False 单击“对象”右侧的下拉按钮，选择“CommandButton5”项，在两句代码之间输入如下代码： Swf.FrameNum = Swf.FrameNum+50 Swf.Playing = True 单击“对象”右侧的下拉按钮，选择“CommandButton6”项，在两句代码之间输入如下代码： Swf.FrameNum = Swf.FrameNum -50 Swf.Playing = True 按键盘功能键F5，观看放映，满意后保存。 注意： 要设置宏安全性中安全级为低或中，代码才会起作用。 重新打开wpp时，出现“安全警告”提示窗口，点击“启用宏”命令按钮，才能实现初始化代码的目标。 2 蒋海东 下府经济开发区学校