01 Private Sub CommandButton1_Click()
02 ShockwaveFlash1.Play'动画开始播放
03 ShockwaveFlash1.Loop=True'允许动画循环播放
04 End Sub
注意
控件是一种模块化的对象,在编写程序时,如果需要添加某个功能,可以直接通过使用具有这种功能的控件来实现,而无需为这种功能另外编写程序。控件的属性是控件自身具有的特征,可以在“属性”面板中进行设置,也可以通过编程来进行设置。对控件的编程是基于事件的编程,所谓的事件是控件对某个操作的反应,如,这里为按钮添加Click事件代码后,当单击控件时,控件的Click事件被触发,其事件代码将被执行。
7、切换到PowerPoint 2013程序窗口,在幻灯片中右击“暂停”按钮,选择快捷菜单中的“查看代码”命令,在打开的代码窗口中输入程序代码,如图10所示。这段程序代码的作用是实现单击该按钮时动画播放将暂停,再单击将使动画播放停止。详细的事件代码如图10所示。
01 Private Sub CommandButton2_Click()
02 ShockwaveFlash1.Stop'动画停止播放
03 End Sub
注意
这里,Play和Stop都是Flash控件的方法。控件的方法实际上是控件的内部函数,VBA程序调用这些控件方法,能够完成不同的动作,实现需要的操作,并对控件的状态进行修改。在程序中使用控件的方法十分简单,在输入控件后键入“.”,Visual Basic编辑器会给出控件方法和属性的代码提示,用户可以直接在列表中选择并应用到程序中。
8、在代码窗口中为“快进”按钮添加Click事件代码,如图11所示。该段代码的作用是实现在单击该按钮时,动画播放跳转到当前帧前面10帧的位置,然后继续播放。详细的事件代码如图11所示。
01 Private Sub CommandButton3_Click()
02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'动画前进10帧
03 ShockwaveFlash1.Play'继续播放动画
04 End Sub
9、在代码窗口中为“快退”按钮添加Click事件代码,如图12所示。该段代码的作用是实现在单击该按钮时,动画播放跳转到当前帧后面10帧的位置,然后继续播放。详细的事件代码如图12所示。
01 Private Sub CommandButton4_Click()
02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'动画后退10帧
03 ShockwaveFlash1.Play'继续动画播放
04 End Sub
10、至此,本实例制作完成,将演示文稿保存为启动宏的文件格式(扩展名为*.pptm)。再放映演示文稿时,单击幻灯片中的按钮能够对Flash动画的播放进行控制,如图13所示。