《使用PowerPoint控件制作交互式课件》由会员分享，可在线阅读，更多相关《使用PowerPoint控件制作交互式课件（25页珍藏版）》请在金锄头文库上搜索。
1、使用PowerPoint控件制作交互式课件,北京奥运会的吉祥物是,交互式课件示例,单选题示例：,多选题示例：,填空题示例：,判断题示例：数据结构就是研究数据库结构的课程。,控件概述之基本使用,二、控件的生成：鼠标点选某控件，在编辑区拖曳即可,一、控件工具箱的启动： 【视图 | 工具栏 | 控件工具箱】,选项按钮：主要用于单项选择题复选框 ：主要用于多项选择题文本框 ：主要用于填空题命令按钮： 主要用于制作命令按钮标签 ：主要用于文字编辑,控件概述之属性和事件,控件具备描述自身信息的属性：如控件的名称、具有的值、大小等控件具备响应外界消息的事件：如当鼠标单击控件时，控件的值会发生变化,制作具有交
2、互功能的课件就是基于控件的属性和事件，只要掌握常见控件的重要属性和事件，再了解一些编写程序的基本技巧，就可轻松完成交互式课件的制作。,请务必掌握以下技巧：鼠标右键单击某控件，选择【属性】可以编辑该控件的属性鼠标右键单击某控件，选择【查看代码】可以编辑该控件的事件代码,选项按钮的属性和事件,名称：默认是OptionButton1 是该控件的标志，可改名,Caption：默认是OptionButton1 可以在此编辑题目,Value：默认是False,Font：控件文本的字体、字型和字号,注意：选项按钮有两种状态即两种Value值，默认是False即未选中状态，当鼠标单击选项按钮时，表示选中该按钮
3、，控件状态会发生变化，如OptionButton2所示，而其Value属性也由默认的False转变为True，这个性质千万要记住。,选项按钮在程序中的表示,在程序中表示选项按钮的方法：OptionButton1在程序中表示选项按钮属性的方法：OptionButton1.Value,OptionButton1的Value为false，表示为：OptionButton1.Value=FalseOptionButton2的Value为true，表示为：OptionButton2.Value=True,命令按钮的属性和事件,名称：默认是CommandButton1 是该控件的标志，可改名,Captio
4、n：默认是CommandButton1 可以在此编辑按钮标题,Font：控件文本的字体、字型和字号,命令按钮最常用的事件响应是：Click在程序中的表示方法是：CommandButton1_Click,命令按钮和消息框,现在有一个命令按钮，我们希望鼠标单击命令按钮时，屏幕上会弹出一个提示框，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：,Private Sub CommandButton1_Click()MsgBox (测试成功！)End Sub,命令按钮和选项按钮一,现在有一个命令按钮，还有一个选项按钮，我们希
5、望鼠标单击命令按钮时，选项按钮的标题即Caption由OptionButton1变为“中国苏州”，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：,Private Sub CommandButton1_Click()OptionButton1.Caption = 中国苏州End Sub,注意：程序中的”要用半角标点符号,思考：怎样通过程序将OptionButton1的Caption改回OptionButton1?,命令按钮和选项按钮二,现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击命令按钮时，程序能进行以下
6、判断：如果OptionButton1的Value为True则显示“答对了”的消息框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：,Private Sub CommandButton1_Click()If OptionButton1.Value = True ThenMsgBox (答对了“)ElseMsgBox (答错了，重新选择！“)End IfEnd Sub,提示：程序执行时，请回忆选项按钮的Value状态是通过什么事件变化的？,命令按钮和选项按钮的初步小结,消息框的程序代码：MsgBox(“”),进入控件属性的方法：鼠标右键单击某控件
7、，选择【属性】,进入控件事件代码的方法：鼠标右键单击某控件，选择【查看代码】,选项按钮的Value值的表示方法： OptionButton1.Value=False,程序中用于判断的语句：IfThenElseEndif,命令按钮Click事件的表示方法：CommandButton1_Click,利用命令按钮和选项按钮制作单项选择题,1、利用【插入|文本框】制作题目,2、利用选项按钮制作答案，同时完成控件的属性设置、控件的对齐等,3、利用命令按钮制作判断答案正确与否的程序部分,现在可以利用学过的技巧制作交互式的单项选择题了：,复选框的属性和事件,名称：默认是CheckBox1 是该控件的标志，可
8、改名,Caption：默认是CheckBox1 可以在此编辑题目,Value：默认是False,Font： 控件文本的字体、字型和字号,注意：复选框具有两种状态即两种Value值，默认是False即未选中状态，当鼠标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如CheckBox2所示，而其Value属性也由默认的False转变为True，这个性质非常重要。,复选框在程序中的表示,在程序中表示复选框的方法：CheckBox1在程序中表示复选框属性的方法：CheckBox1.Value,CheckBox1的Value为false，表示为：CheckBox1.Value=FalseCheck
9、Box2的Value为true，表示为：CheckBox2.Value=True,命令按钮和复选框,现在有一个命令按钮，还有三个复选框，我们希望鼠标单击命令按钮时，程序能进行以下判断：如果CheckBox1和CheckBox3的Value都为True而且CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答错了,重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：,Private Sub CommandButton1_Click()If CheckBox1.Value = True And CheckBox3.Value = True AN
10、D CheckBox2.Value = False ThenMsgBox (答对了)ElseMsgBox (答错了，重新选择！)End IfEnd Sub,注意：这个程序有点小问题，即在重新选择时，原先的选择状态还保留着。,命令按钮和复选框之改良,如果程序在弹出“答错了，重新选择！”的对话框后，能将复选框的Value值恢复到False，则问题就可以解决了。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可：,Private Sub CommandButton1_Click()If CheckBox1.Value = True And CheckBox3.Value = True AND
11、CheckBox2.Value = False ThenMsgBox (答对了)ElseMsgBox (答错了，重新选择！)CheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value = FalseEnd IfEnd Sub,复选框的初步小结,程序中判断多个复选框的Value同时为真的方法：If CheckBox1.Value=True and CheckBox2.Value=True then.Else.Endif,在弹出出错消息框后，程序自动恢复多个复选框的Value值为False：If thenElse.CheckBox1.
12、Value=FalseCheckBox2.Value=FalseEndif,复选框的Value值表示方法：CheckBox1.Value=True,利用命令按钮和复选框制作多项选择题,1、利用【插入|文本框】制作题目,2、利用复选框制作答案，同时完成控件的属性设置、控件的对齐等,3、利用命令按钮制作判断答案正确与否的程序部分,现在可以利用学过的技巧制作交互式的多项选择题了：,请利用命令按钮和复选框，将以下素材制作一道多项选择题：埃尼奥莫里康内(ENNIO MORRICONE)创作过的电影音乐有：Cinema Paradiso、Once Upon A Time-The RevolutionLeg
13、end Of 1900 、OnceUponATimeintheWest,文本框的属性和事件,Value： 文本框接收到的输入数据,名称：默认是TextBox1 是该控件的标志，可改名,Font： 文本的字体、字型和字号,TextAlign： 文本的对齐方式,在程序中表示文本框的方法： TextBox1 在程序中表示文本框属性的方法： TextBox1.ValueTextBox1的Value值为“苏州”，则表示为：TextBox1.Value=“苏州”,命令按钮和文本框,现在有一个命令按钮，还有一个文本框，我们希望在文本框内输入文字，然后当鼠标单击命令按钮时，程序能进行以下判断：如果输入的文字内
14、容是“苏州”，则显示“答对了”的消息框，否则，显示“答错了,重新填写!”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：,Private Sub CommandButton1_Click()If TextBox1.Value = 苏州 ThenMsgBox (答对了)ElseMsgBox (答错了，重新填写！)End IfEnd Sub,思考：怎样在出错信息出现后，清空文本框内的内容？,命令按钮和文本框之改良,这个问题可以仿照之前复选框的思路来解决，只需修改TextBox1的Value为空即可。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可：,Private Sub
15、 CommandButton1_Click()If TextBox1.Value = 苏州 ThenMsgBox (答对了)ElseMsgBox (答错了，重新填写！)TextBox1.Value=“”End IfEnd Sub,思考：如果填空的内容可以包容多个正确答案，应该怎样修改程序呢？,文本框的初步小结,文本框的Value值的表示方法：TextBox1.Value=“”,程序中判断文本框的Value满足某个特定值的方法：If TextBox1.Value = “” then.Else.Endif,在弹出出错消息框后，程序自动恢复文本框的Value值为空：If thenElse.TextBox1.Value=“”Endif,利用命令按钮和文本框制作填空题,1、利用【插入|文本框】制作题目,2、利用文本框制作填写答案区域，同时完成控件的属性设置、对齐等,3、利用命令按钮制作判断答案正确与否的程序部分,现在可以利用学过的技巧制作交互式的填空题了：,小结,1、掌握开启控件工具箱、修改控件属性、编辑控件代码的基本方法2、掌握OptionButton、CheckBox、TextBox的Value属性3、掌握Command的Click事件4、MsgBox(“”)5、掌握IfThenElseEndif的用法6、了解关键字And、False、True的用法,
