使用控件实现交互

《使用控件实现交互》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、PowerPoint使用控件实现交互为了使PowerPoint功能得到更大扩展，制作出具有强大交互功能的课件。除了使用触发器实现交互外，还可以使用PowerPoint中的ActiveX控件并结合相应的VBA编程来实现。（注：在使用控件时，建议将“工具”菜单中“宏”的安全性设为“低”，否则一些控件的效果在powerpointXP及2003版本中无法正常播放）。PowerPoint中的VBA可以实现很多复杂的交互，问题在于很多老师面对VBA编程会感到无从下手，因此，本篇只介绍一些最基本的VBA语言和相关控件如何在教学中具体

2、应用。(一)    控件使用原理1．控件箱介绍PowerPoint中的ActiveX控件集都集中在“控件工具箱”中。点击“视图”菜单→“工具栏”，打开“控件工具箱”，约有12种控件，以图标按钮显示，见图5。图5如需要选用某种控件，先用鼠标点击，选中该控件，此时光标会变成“+”字形，然后将它拖动到PowerPoint页面中的预定位置，可以调整控件边框的大小。每一种控件都有专门的名称，见表1：控件类型    控件名称复选框控件    CheckBox文本框控件    TextBox命令按钮控件    CommandButt

3、on单选按钮控件    OptionButton列表框控件    ListBox组合框控件    ComboBox切换按钮控件    ToggleButton数值调节按钮控件    SpinButton滚动条控件    ScrollBar标签控件    Label图像控件    Image其他控件    175个表12．控件属性设置用鼠标右击控件对象，选择菜单中的“属性”命令，出现控件对象的属性对话框，可以设置控件的各种属性，经常要用到的有Font（字体）、AutoSize（控件对象大小自动调节）、Caption（控件

4、对象的显示标题）等等，读者可根据需要进行设置。3．编写VBA代码当双击某种控件时，在出现的代码编辑窗口中会出现以下的程序代码语句（VBA语言）：PrivateSub（控件对象名称）_（事件/过程类型）()……EndSub在程序代码语句中间的空行处，可以根据需要设置相应的程序（采用VBA语言），在事件/过程类型中，最常用的有Click（鼠标单击对象）事件/过程，其次在如填空之类的控件对象中使用LostFocus（填入文本，鼠标移出对象）事件/过程，还有如Keypress（键按下）等等事件/过程。在代码编辑窗口上部左侧的对

5、象列表框下拉菜单中可选择控件对象，也可以在右侧的（事件/过程）列表框下拉菜单中选择事件/过程；见图6：图6  代码编辑窗口(二)    控件应用举例应用一：用VBA语句实现对Flash按钮的控制在PowerPoint课件中，插入Flash动画已经不是什么新鲜事了，Flash动画为课件增色不少，但想要在PowerPoint课件中随心所欲地控制Flash的播放、暂停、快进、快退等功能，就必须使用控件并结合VBA编程语句才可以做到，具体实现方法如下：1．添加Flash控件单击“视图”菜单→“工具栏”→“控件工具箱”，选择“其

6、他控件”，点击“ShockwaveFlashObject”命令，这时鼠标呈“十”字形，用鼠标在幻灯片中拖出一个方框，插入Flash控件，调整好大小即可。见图7：                                                    图72．设置控件属性选择当前控件，右击该Flash控件，选择“属性”命令，在“属性”面板中作如下设置：单击“自定义”参数项后面的按钮，弹出“属性页”对话框，在“影片URL”框中输入Flash动画的相对地址和文件名，如图8所示：图83．插入一组命令按钮⑴制作(播

7、放)按钮在“控件工具箱”中选择“命令按钮”，在幻灯片中拖动，拖出一个命令按钮。调整大小，同样地设置该命令按钮的属性，在“属性”面板中作如下设置：“名称”中输入“play”，“Caption”中输入“播放”。双击该按钮，进入VBA编辑窗口，输入如下内容：PrivateSubplay_Click()ShockwaveFlash1.Playing=TrueEndSub⑵制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮按钮制作的方法同上，在“属性”面板中分别作如下设置：①暂停按钮的“名称”为“pause”，“Capti

8、on”为“暂停”；②前进按钮的“名称”为“forward”，“Caption”为“前进”；③后退按钮的“名称”为“back”，“Caption”为“后退”；④返回按钮的“名称”为“start”，“Caption”为“返回”；⑤结束按钮的“名称”为“finish”，“Caption”为“结束”。⑶分别为各个按钮添加VBA语句①暂停按