《使用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的用法,