如何制作交互式课件

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