PPT交互课件

CommandButton1
现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击命令按钮时，程 序能进行以下判断：如果OptionButton1的Value为True则显示“答对了”的消 息框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在给 出的默认代码中填写下列兰色代码即可： Private Sub CommandButton1_Click() If OptionButton1.Value = True Then MsgBox ("答对了“) Else MsgBox ("答错了，重新选择！“) End If End Sub 提示：程序执行时，请回忆选项按钮的Value状态是通过什么事件变化的？
选项按钮在程序中的表示
在程序中表示选项按钮的方法：OptionButton1
在程序中表示选项按钮属性的方法：OptionButton1.Value
OptionButton1的Value为false，表示为：OptionButton1.Value=False OptionButton2的Value为true，表示为：OptionButton2.Value=True
用控件实现PPT智能交互
幻灯片切换交互
成都师范银都小学 陈雪松
控件（ VBA ）交换
Email:chenbaba@
提
2、PowerPoint控件概述
纲
1、PowerPoint交互式课件演示
3、选项按钮、命令按钮以及单项选择题制作 4、复选框和多项选择题制作 5、文本框和填空题制作 6、其它控件：视频、flash、超宽表格超长文本 7、小结
选项按钮的属性和事件
名称：默认是OptionButton1 是该控件的标志，可改名
Value：默认是False
Caption：默认是OptionButton1 可以在此编辑题目
Font：控件文本的字体、字型和字号
注意即未选中状态，当鼠 标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如OptionButton2 所示，而其Value属性也由默认的False转变为True，这个性质千万要记住。
命令按钮和文本框之改良
CommandButton1
这个问题可以仿照之前复选框的思路来解决，只需修改TextBox1的Value为空 即可。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可： Private Sub CommandButton1_Click() If TextBox1.Value = "苏州" Then MsgBox ("答对了") Else MsgBox ("答错了，重新填写！") TextBox1.Value=“” End If End Sub 问题：如果填空的内容可以包容多个正确答案，应该怎样修改程序呢？
命令按钮和选项按钮一
CommandButton1
现在有一个命令按钮，还有一个选项按钮，我们希望鼠标单击命令按钮时，选 项按钮的标题即Caption由OptionButton1变为“中国苏州”，这个技巧只需要 右键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出 的默认代码中填写下列兰色代码即可：
If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then
MsgBox ("答对了") Else MsgBox ("答错了，重新选择！") End If End Sub 注意：在重新选择时，原先的选择状态还保留着。怎么办
命令按钮的属性和事件
CommandButton1
名称：默认是CommandButton1 是该控件的标志，可改名 Caption：默认是CommandButton1 可以在此编辑按钮标题 Font：控件文本的字体、字型和字号
命令按钮最常用的事件响应是：Click 在程序中的表示方法是：CommandButton1_Click
命令按钮Click事件的表示方法：CommandButton1_Click
利用命令按钮和选项按钮制作单项选择题
现在可以利用学过的技巧制作交互式的单项选择题了： 1、用【插入|文本框】制作题目 2、用选项按钮制作答案，同时完成控件的属性设置、控件的对齐等 3、用命令按钮制作判断答案正确与否的程序部分 练习：用命令按钮和选项按钮，将以下素材制作一道单项选择题： 中国的首都是：成都、重庆、上海、北京
控件具备描述自身信息的属性：如控件的名称、具有的值、大小等
控件具备响应外界消息的事件：如当鼠标单击控件时，控件的值会发生变化 请务必掌握以下技巧： 鼠标右键单击某控件，选择【属性】可以编辑该控件的属性
鼠标右键单击某控件，选择【查看代码】可以编辑该控件的事件代码
制作具有交互功能的课件就是基于控件的属性和事件，只要掌握常见控件的 重要属性和事件，再了解一些编写程序的基本技巧，就可轻松完成交互式课 件的制作。
命令按钮和文本框
CommandButton1
现在有一个命令按钮，还有一个文本框，我们希望在文本框内输入文字，然后 当鼠标单击命令按钮时，程序能进行以下判断：如果输入的文字内容是“苏 州”，则显示“答对了”的消息框，否则，显示“答错了,重新填写!”的消息框。 进入代码编辑区，在给出的默认代码中填写下列兰色代码即可： Private Sub CommandButton1_Click() If TextBox1.Value = "苏州" Then MsgBox ("答对了") Else MsgBox ("答错了，重新填写！") End If End Sub 问题：怎样在出错信息出现后，清空文本框内的内容？
控件概述之基本使用
一、控件工具箱的启动： 【视图 | 工具栏 | 控件工具箱】 二、控件的生成：鼠标点选某控件，在编辑区拖曳即可
选项按钮：可用于单项选择题 复选框 文本框 ：可用于多项选择题 ：可用于填空题
命令按钮： 可用于制作命令按钮“提交”、“提示” 标签 ：主要用于文字编辑
控件概述之属性和事件
复选框在程序中的表示
CheckBox1 CheckBox2
在程序中表示复选框的方法：CheckBox1
在程序中表示复选框属性的方法：CheckBox1.Value
CheckBox1的Value为false，表示为：CheckBox1.Value=False CheckBox2的Value为true，表示为：CheckBox2.Value=True
命令按钮和复选框改良办法
CommandButton1 CheckBox1 CheckBox2
CheckBox3
如果程序在弹出“答错了，重新选择！”的对话框后，能将复选框的Value 值恢复到False，则问题就可以解决了。进入代码编辑区，在前面代码的基 础上，填写下列红色代码即可： Private Sub CommandButton1_Click()
文本框的属性和事件
名称：默认是TextBox1 是该控件的标志，可改名
Value： 文本框接收到的输入数据
Font： 文本的字体、字型和字号 TextAlign： 文本的对齐方式 在程序中表示复选框的方法：CheckBox1 在程序中表示复选框属性的方法：CheckBox1.Value
TextBox1的Value值为“苏州”，则表示为：TextBox1.Value=“苏州”
命令按钮和复选框
提交 CheckBox1 CheckBox2 CheckBox3
现在有一个命令按钮，还有三个复选框，我们希望鼠标单击命令按钮时，程序 能进行以下判断：如果CheckBox1和CheckBox3的Value都为True而且 CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答错 了,重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰 色代码即可： Private Sub CommandButton1_Click()
利用命令按钮和复选框制作多项选择题
现在可以利用学过的技巧制作交互式的多项选择题了： 1、用【插入|文本框】制作题目 2、用复选框制作答案，同时完成控件的属性设置、控件的对齐等 3、用命令按钮制作判断答案正确与否的程序部分 练习：用命令按钮和复选框，将以下素材制作一道多项选择题： 我国的直辖市有：重庆、天津、成都、广州 、北京
Private Sub CommandButton1_Click() OptionButton1.Caption = "中国苏州" End Sub 注意：程序中的””要用半角标点符号 思考：怎样通过程序将OptionButton1的Caption改回OptionButton1?
命令按钮和选项按钮二
交互式课件示例
单选题示例：
“万里长江横渡，极目楚天舒”的作者是：
提交答案
多选题示例：
中国的直辖市有：
提交答案
上海
北京
重庆
天津
填空题示例： 《阿Q正传》和《狂人日记》的作者是：
提交答案
读懂第一个案例
单选题示例：
“万里长江横渡，极目楚天舒”的作者是：
提交答案
简单的智能交互语句
①If„„Then „„ else „„语句，用来检查一个条件的值是真还是假， 如果是真，则执行Then后面的操作，如果为假，则执 行else后的操作。 ②点语法：格式为“控件名．控件属性”用来设 置控件的某一属性,放在If„„Then语句之间作为条件。 如前面提到的ShockwaveFlash1．Playing=True就是设 置Flash控件的播放属性为真，即播放。 ③End If：结束条件检查。 ④Msgbox：消息框，在测试时显示正误信息。
复选框的小结
复选框的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