《如何制作交互式》PPT课件.ppt

PowerPoint制作交互式课件 苏州电视中专 苏州第二十中学 2007年10月 课程概要 1、PowerPoint交互式课件演示 软件环境：Windows XP SP2，Office Power Point 2003 SP2 2、PowerPoint控件概述 3、选项按钮、命令按钮以及单项选择题制作 4、复选框和多项选择题制作 5、文本框和填空题制作 6、小结 7、思考 在1957年发表了试论社会主义制度下的商品经济和价值规律 一文的作者是 交互式课件示例 单选题示例： 多选题示例： 填空题示例： 控件概述之基本使用 二、控件的生成：鼠标点选某控件，在编辑区拖曳即可 一、控件工具箱的启动： 【视图 | 工具栏 | 控件工具箱】 选项按钮：主要用于单项选择题 复选框 ：主要用于多项选择题 文本框 ：主要用于填空题 命令按钮： 主要用于制作命令按钮 标签 ：主要用于文字编辑 控件概述之属性和事件 控件具备描述自身信息的属性：如控件的名称、具有的值、大小等 控件具备响应外界消息的事件：如当鼠标单击控件时，控件的值会发生变化 制作具有交互功能的课件就是基于控件的属性和事件，只要掌握常见控件的 重要属性和事件，再了解一些编写程序的基本技巧，就可轻松完成交互式课 件的制作。 请务必掌握以下技巧： 鼠标右键单击某控件，选择【属性】可以编辑该控件的属性 鼠标右键单击某控件，选择【查看代码】可以编辑该控件的事件代码 选项按钮的属性和事件 名称：默认是OptionButton1 是该控件的标志，可改名 Caption：默认是OptionButton1 可以在此编辑题目 Value：默认是False Font：控件文本的字体、字型和字号 注意：选项按钮有两种状态即两种Value值，默认是False即未选中状态，当鼠 标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如OptionButton2 所示，而其Value属性也由默认的False转变为True，这个性质千万要记住。 选项按钮在程序中的表示 在程序中表示选项按钮的方法：OptionButton1 在程序中表示选项按钮属性的方法：OptionButton1.Value OptionButton1的Value为false，表示为：OptionButton1.Value=False OptionButton2的Value为true，表示为：OptionButton2.Value=True 命令按钮的属性和事件 名称：默认是CommandButton1 是该控件的标志，可改名 Caption：默认是CommandButton1 可以在此编辑按钮标题 Font：控件文本的字体、字型和字号 命令按钮最常用的事件响应是：Click 在程序中的表示方法是：CommandButton1_Click 命令按钮和消息框 现在有一个命令按钮，我们希望鼠标单击命令按钮时，屏幕上会弹出一个提示 框，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进入 代码编辑区，在给出的默认代码中填写下列兰色代码即可： Private Sub CommandButton1_Click() MsgBox (“测试成功！“) End Sub 命令按钮和选项按钮一 现在有一个命令按钮，还有一个选项按钮，我们希望鼠标单击命令按钮时，选 项按钮的标题即Caption由OptionButton1变为“中国苏州”，这个技巧只需要右 键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出的 默认代码中填写下列兰色代码即可： Private Sub CommandButton1_Click() OptionButton1.Caption = “中国苏州“ End Sub 注意：程序中的”要用半角标点符号 思考：怎样通过程序将OptionButton1的Caption改回OptionButton1? 命令按钮和选项按钮二 现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击命令按钮时，程 序能进行以下判断：如果OptionButton1的Value为True则显示“答对了”的消息 框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在给出的 默认代码中填写下列兰色代码即可： Private Sub CommandButton1_Click() If OptionButton1.Value = True Then MsgBox (“答对了“) Else MsgBox (“答错了，重新选择！“) End If End Sub 提示：程序执行时，请回忆选项按钮的Value状态是通过什么事件变化的？ 命令按钮和选项按钮的初步小结 消息框的程序代码：MsgBox(“”) 进入控件属性的方法：鼠标右键单击某控件，选择【属性】 进入控件事件代码的方法：鼠标右键单击某控件，选择【查看代码】 选项按钮的Value值的表示方法： OptionButton1.Value=False 程序中用于判断的语句： IfThen Else Endif 命令按钮Click事件的表示方法：CommandButton1_Click 利用命令按钮和选项按钮制作单项选择题 1、利用【插入|文本框】制作题目 2、利用选项按钮制作答案，同时完成控件的属性设置、控件的对齐等 3、利用命令按钮制作判断答案正确与否的程序部分 现在可以利用学过的技巧制作交互式的单项选择题了： 请利用命令按钮和选项按钮，将以下素材制作一道单项选择题： 孔子说“以貌取人，失之子羽”，子羽是指： 冉雍、端木赐、樊迟、澹台灭明 复选框的属性和事件 名称：默认是CheckBox1 是该控件的标志，可改名 Caption：默认是CheckBox1 可以在此编辑题目 Value：默认是False Font： 控件文本的字体、字型和字号 注意：复选框具有两种状态即两种Value值，默认是False即未选中状态，当鼠 标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如CheckBox2所 示，而其Value属性也由默认的False转变为True，这个性质非常重要。 复选框在程序中的表示 在程序中表示复选框的方法：CheckBox1 在程序中表示复选框属性的方法：CheckBox1.Value CheckBox1的Value为false，表示为：CheckBox1.Value=False CheckBox2的Value为true，表示为：CheckBox2.Value=True 命令按钮和复选框 现在有一个命令按钮，还有三个复选框，我们希望鼠标单击命令按钮时，程序 能进行以下判断：如果CheckBox1和CheckBox3的Value都为True而且 CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答错了, 重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代 码即可： Private Sub CommandButton1_Click() If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then MsgBox (“答对了“) Else MsgBox (“答错了，重新选择！“) End If End Sub 注意：这个程序有点小问题，即在重新选择时，原先的选择状态还保留着。 命令按钮和复选框之改良 如果程序在弹出“答错了，重新选择！”的对话框后，能将复选框的Value值 恢复到False，则问题就可以解决了。进入代码编辑区，在前面代码的基础 上，填写下列红色代码即可： Private Sub CommandButton1_Click() If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then MsgBox (“答对了“) Else MsgBox (“答错了，重新选择！“) CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False End If End Sub 复选框的初步小结 程序中判断多个复选框的Value同时为真的方法： If CheckBox1.Value=True and CheckBox2.Value=True then . Else . Endif 在弹出出错消息框后，程序自动恢复多个复选框的Value值为False： If then Else . CheckBox1.Value=False CheckBox2.Value=False Endif 复选框的Value值表示方法：CheckBox1.Value=True 利用命令按钮和复选框制作多项选择题 1、利用【插入|文本框】制作题目 2、利用复选框制作答案，同时完成控件的属性设置、控件的对齐等 3、利用命令按钮制作判断答案正确与否的程序部分 现在可以利用学过的技巧制作交互式的多项选择题了： 请利用命令按钮和复选框，将以下素材制作一道多项选择题： 埃尼奥莫里康内(ENNIO MORRICONE)创作过的电影音乐有： Cinema Paradiso、Once Upon A Time-The Revolution Legend Of 1900 、Once Upon A Time in the West 文本框的属性和事件 Value： 文本框接收到的输入数据 名称：默认是TextBox1 是该控件的标志，可改名 Font： 文本的字体、字型和字号 TextAlign： 文本的对齐方式 在程序中表示复选框的方法：CheckBox1 在程序中表示复选框属性的方法：CheckBox1.Value TextBox1的Value值为“苏州”，则表示为：TextBox1.Value=“苏州” 命令按钮和文本框 现在有一个命令按钮，还有一个文本框，我们希望在文本框内输入文字，然后 当鼠标单击命令按钮时，程序能进行以下判断：如果输入的文字内容是“苏州” ，则显示“答对了”的消息框，否则，显示“答错了,重新填写!”的消息框。进入代 码编辑区，在给出的默认代码中填写下列兰色代码即可： Private Sub CommandButton1_Click() If TextBox1.Value = “苏州“ Then MsgBox (“答对了“) Else MsgBox (“答错了，重新填写！“) End If End Sub 思考：怎样在出错信息出现后，清空文本框内的内容？ 命令按钮和文本框之改良 这个问题可以仿照之前复选框的思路来解决，只需修改TextBox1的Value为空 即可。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可： Private Sub CommandButton1_Click() If TextBox1.Value = “苏州“ Then MsgBox (“答对了“) Else MsgBox (“答错了，重新填写！“) TextBox1.Value=“” End If End Sub 思考：如果填空的内容可以包容多个正确答案，应该怎样修改程序呢？ 文本框的初步小结 文本框的Value值的表示方法：TextBox1.Value=“” 程序中判断文本框的Value满足某个特定值的方法： If TextBox1.Value = “” then . Else . Endif 在弹出出错消息框后，程序自动恢复文本框的Value值为空： If then Else . TextBox1.Value=“” Endif 利用命令按钮和文本框制作填空题 1、利用【插入|文本框】制作题目 2、利用文本框制作填写答案区域，同时完成控件的属性设置、对齐等 3、利用命令按钮制作判断答案正确与否的程序部分 现在可以利用学过的技巧制作交互式的填空题了： 请利用命令按钮和复选框，将以下素材制作一道填空题： IMAX电影使用何种规格的电影胶片制作而成? 小结 1、掌握开启控件工具箱、修改控件属性、编辑控件代码的基本方法 2、掌握OptionButton、CheckBox、TextBox的Value属性 3、掌握Command的Click事件 4、MsgBox(“”) 5、掌握IfThenElseEndif的用法 6、了解关键字And、False、True的用法