PowerPoint使用控件实现交互.doc

PowerPoint使用控件实现交互为了使PowerPoint功能得到更大扩展，制作出具有强大交互功能的课件。除了使用触发器实现交互外，还可以使用PowerPoint中的ActiveX控件并结合相应的VBA编程来实现。（注：在使用控件时，建议将“工具”菜单中“宏”的安全性设为“低”，否则一些控件的效果在powerpoint XP 及2003版本中无法正常播放）。PowerPoint中的VBA可以实现很多复杂的交互，问题在于很多老师面对VBA编程会感到无从下手，因此，本篇只介绍一些最基本的VBA语言和相关控件如何在教学中具体应用。(一)控件使用原理1控件箱介绍PowerPoint中的ActiveX控件集都集中在“控件工具箱”中。点击“视图”菜单“工具栏”，打开“控件工具箱”，约有12种控件，以图标按钮显示，见图5。图5如需要选用某种控件，先用鼠标点击，选中该控件，此时光标会变成“+”字形，然后将它拖动到PowerPoint页面中的预定位置，可以调整控件边框的大小。每一种控件都有专门的名称，见表1：控件类型控件名称复选框控件CheckBox文本框控件TextBox命令按钮控件CommandButton单选按钮控件OptionButton列表框控件ListBox组合框控件ComboBox切换按钮控件ToggleButton数值调节按钮控件SpinButton滚动条控件ScrollBar标签控件Label图像控件Image其他控件175个表12控件属性设置用鼠标右击控件对象，选择菜单中的“属性”命令，出现控件对象的属性对话框，可以设置控件的各种属性，经常要用到的有Font（字体）、AutoSize（控件对象大小自动调节）、Caption（控件对象的显示标题 ）等等，读者可根据需要进行设置。3编写VBA代码当双击某种控件时，在出现的代码编辑窗口中会出现以下的程序代码语句（VBA语言）：Private Sub （控件对象名称）_（事件/过程类型）()End Sub在程序代码语句中间的空行处，可以根据需要设置相应的程序（采用VBA语言），在事件/过程类型中，最常用的有Click（鼠标单击对象）事件/过程，其次在如填空之类的控件对象中使用LostFocus（填入文本，鼠标移出对象）事件/过程，还有如Keypress（键按下）等等事件/过程。在代码编辑窗口上部左侧的对象列表框下拉菜单中可选择控件对象，也可以在右侧的（事件/过程）列表框下拉菜单中选择事件/过程；见图6：图6代码编辑窗口(二)控件应用举例应用一：用VBA语句实现对Flash按钮的控制在PowerPoint课件中，插入Flash动画已经不是什么新鲜事了，Flash动画为课件增色不少，但想要在PowerPoint课件中随心所欲地控制Flash的播放、暂停、快进、快退等功能，就必须使用控件并结合VBA编程语句才可以做到，具体实现方法如下：1添加Flash控件单击“视图”菜单“工具栏”“控件工具箱”，选择“其他控件”，点击“Shockwave Flash Object”命令，这时鼠标呈“十”字形，用鼠标在幻灯片中拖出一个方框，插入Flash控件，调整好大小即可。见图7：图72设置控件属性选择当前控件，右击该Flash控件，选择“属性”命令，在“属性”面板中作如下设置：单击“自定义”参数项后面的按钮 ，弹出 “属性页”对话框，在“影片URL”框中输入Flash动画的相对地址和文件名，如图8所示：图83插入一组命令按钮 制作 (播放) 按钮在“控件工具箱”中选择“命令按钮”，在幻灯片中拖动，拖出一个命令按钮。调整大小，同样地设置该命令按钮的属性，在“属性”面板中作如下设置：“名称”中输入“play”，“Caption”中输入“播放”。双击该按钮，进入VBA编辑窗口，输入如下内容：Private Sub play_Click()ShockwaveFlash1.Playing = True End Sub 制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮按钮制作的方法同上，在“属性”面板中分别作如下设置： 暂停按钮的“名称 ”为“pause”，“Caption”为“暂停”； 前进按钮的“名称”为“forward”，“Caption”为“前进”； 后退按钮的“名称”为“back”，“Caption”为“后退”； 返回按钮的“名称”为“start”，“Caption”为“返回”； 结束按钮的“名称”为“finish”，“Caption”为“结束”。 分别为各个按钮添加VBA语句 暂停按钮Private Sub pause_Click()ShockwaveFlash1.Playing = False End Sub 前进按钮Private Sub forward_Click()ShockwaveFlash1.FrameNum= ShockwaveFlash1.FrameNum + 30ShockwaveFlash1.Playing = True End Sub 后退按钮Private Sub back_Click()ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 ShockwaveFlash1.Playing = True End Sub 返回按钮Private Sub start_Click()ShockwaveFlash1.FrameNum = 1ShockwaveFlash1.Playing = True End Sub 结束按钮Private Sub finish_Click()ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames End Sub说明：在(前进)、(后退)、(返回)按钮中，后面均加上一条播放命令ShockwaveFlash1.Playing = True，是因为在实际应用时，发现后面如果没有播放命令的话，Flash影片会停止播放，所以这句是万万不可少的，另外，在输入编程语句时别遗漏“ShockwaveFlash1.”最末的下脚点“”。至此，通过控件并结合VBA语言就可以控制Flash的播放了，读者可以由此推广到其他控件的控制应用。应用二：用VBA实现交互式课堂练习课堂教学中，一节课免不了要穿插一些课堂练习，课堂交互式练习有单选题、多选题、是非题和填空题等，可采用控件并设置相应VBA代码来实现。现以下述课堂交互练习为例来说明其制作方法。单选题：奠定今天我国版图基础的朝代是：A唐朝B元朝C秦朝D清朝正确答案是：A设计界面如图9：图9用PowerPoint2003的制作方法如下；1输入题目按照图1所示插入一个文本框输入题目：“奠定今天我国版图基础的朝代是：”，并设置其字体大小。2添加单选按钮并设置属性本例中单项选择题所用到的控件为“单选按钮”，添加方法是：选择“视图”菜单“工具栏”“控件工具箱”中的单选按钮，按图9所示，依次在练习题目下方所示的位置上，拖绘出四个单选按钮，调整好位置。先选中第一个按钮，单击鼠标右键，在出现的菜单框中选择“属性”，得到如图10所示的属性面板框。图10在属性框中选择“Caption”项，将其右边框中的内容改为“A.”，如要改变字体及字的大小，可以选择属性表中的“Font”（字体）属性，点击右边的 按钮，设置字体。依次添加其余3个单选按钮，进行相应的属性设置。3在单选按钮中写入对应的VBA代码：分别双击4个单选按钮，进入代码编辑窗口，根据答案的正确和错误，为各个按钮分别输入相应的VBA代码：见图11图11代码编辑窗口单选按钮A，正确。命令设置如下：Private Sub optionbutton1_Click()If optionbutton1.Value = True Then MsgBox 选择正确！恭喜你！, vbOKOnlyEnd Sub单选按钮B、C、D，错误。命令设置如下：Private Sub optionbutton2_Click()If optionbutton2.Value = True Then MsgBox 选择错误！请再想想！, vbOKOnlyEnd SubPrivate Sub optionbutton3_Click()If optionbutton3.Value = True Then MsgBox 选择错误！请再想想！, vbOKOnlyEnd SubPrivate Sub optionbutton4_Click()If optionbutton4.Value = True Then MsgBox 选择错误！请再想想！, vbOKOnlyEnd Sub本实例中用到了MsgBox函数，作用是显示一个消息框，如在本例中显示“选择正确！恭喜你！”或“选择错误！请再想想！”的信息，后面的vbOKOnly是MsgBox的一个参数，它用来显示消息框上的“确定”按钮。此外，还用到了“ifthen”这样的条件判断语句，作用是当该单选按钮被选中时（即条件为True时），显示消息框。上述的实例，只介绍了“单选按钮”这一控件，读者也可以尝试用其他一些控件，如：复选框控件（checkbox），文本框控件（textbox），命令按钮（commandbutton）控件等，在PowerPoint中进行多选题、是非题和填空题的交互。当然其他很多控件也是很有用的，这些需要教师通过实际操作去熟悉和掌握并将它们运用到教学实践中。通过以上两种方法的介绍，读者不难发现，运用PowerPoint中的Acti