在PPT上使用开发工具的不同控件实现单选操作

简介：
在PPT里要想实现单选操作的话不得不使用它自带的“开发工具”，这里，我也通过我的经历给大家说一下这个怎么实现。

一、开发工具哪里找

	任意打开一个PPT，找到左上角任务栏里的文件---->选项---->自定义功能区---->自定义功能区（B）---->主选项卡---->找到“开发工具”。

二、在pptm文件类型下使用开发工具

	这里的话并不做强制性要求，不管在pptx或是pptm文件类型下都可以做，我这里选择在pptm下是因为它可以显示更多的功能信息，好用。

三、开发工具里属性和查看代码的使用

在选中任意一个控件按钮时开发工具中的“属性”和“查看代码”都可以使用，直接点击打开。

属性界面
重点介绍几个常用属性
1、BackColor 背景颜色
2、Font 字体设置
3、Caption 设置文本显示的内容
4、Value 返回值
5、Visible 是否可见
其他属性有的不常用，不一一介绍，感兴趣的自己尝试！

代码区
左侧树状目录表，右侧代码区

四、控件、代码介绍

从左至右、从上至下依次介绍
1、标签控件 2、文本框控件
3、数值调节钮控件 4、命令按钮控件
5、图像控件 6、滚动条控件
7、复选框控件 8、选项按钮控件
9、组合框控件 10、列表框控件

五、实现代码

这里我用了4个选项按钮控件OptionButton（选项ABCD）、两个图像控件Image(勾、叉两张图片)、两个命令按钮控件CommandButton（负责控制“提交”和“重做”）、一个文本框控件TextBox（来显示括号里的答案）

Private Sub CommondButton1_Click()
If Slide1.OptionButton2 = True Then
Slide1.OptionButton2.Value = True
Slide1.Image1.Visible = True
Slide1.TextBox1.Visible = True
Else
Slide1.Image1.Visible = False
Slide1.Image2.Visible = True
Slide1.TextBox1.Visible = False
End If
End Sub

Private Sub CommondButton2_Click()
Slide1.OptionButton1.Value = False
Slide1.OptionButton2.Value = False
Slide1.OptionButton3.Value = False
Slide1.OptionButton4.Value = False
Slide1.Image1.Visible = False
Slide1.Image2.Visible = False
Slide1.TextBox1.Visible = False
End Sub

要用代码复制上面的 要用代码复制上面的 要用代码复制上面的
这里的逻辑是用两个命令按钮来控制整个单选操作。
Private Sub CommondButton1_Click() //调用提交命令按钮CommondButton1
If Slide1.OptionButton2 = True Then //使用If条件语句，当选项OptionButton2 =True时
Slide1.OptionButton2.Value = True //执行按钮B是选中状态
Slide1.Image1.Visible = True //图像Image1（勾）可见
Slide1.TextBox1.Visible = True //括号里显示设置好的选项
Else
Slide1.Image1.Visible = False //当选错时，图像Image1（勾）不可见
Slide1.Image2.Visible = True //图像Image2(叉）可见
Slide1.TextBox1.Visible = False //括号里不显示设置好的选项
End If //结束if条件语句
End Sub

Private Sub CommondButton2_Click() //调用重做命令按钮CommondButton2（相当于恢复初始状态）
Slide1.OptionButton1.Value = False //执行按钮A(OptionButton1)不处于选中状态
Slide1.OptionButton2.Value = False //执行按钮B(OptionButton2)不处于选中状态
Slide1.OptionButton3.Value = False //执行按钮C(OptionButton3)不处于选中状态
Slide1.OptionButton4.Value = False //执行按钮D(OptionButton4)不处于选中状态
Slide1.Image1.Visible = False //图像Image1（勾）不可见
Slide1.Image2.Visible = False //图像Image2(叉）不可见
Slide1.TextBox1.Visible = False //括号里不显示设置好的选项
End Sub

六、最终成果

pptm文件在百度云盘

链接：https://pan.baidu.com/s/13W8er12b0eQLvSOcZ2DCgQ
提取码：w9yh
包括最终视频和pptm文件