控件工具箱使用补充教材_图文.

1、控件工具箱使用补充一、单选题制作(1 控件工具箱/选项按钮”拉出一个选项按钮，如右图所示(2 右击“ optionBtntonl 属性/”对话框：“ caption ”输入文字，如“A 增大”；“ForceColor ”字体颜色；“Font ”字体的属性。扎罐兀Ar ;G 不娈 U 不确庠(3 复制三个按钮，并改变三个不同选项文字。如右图所示A 增大，B 减小，C 不变，D 不确定(4 画一个 命令按钮按钮(确定”)，如图左所示。(5 属性/字体/ “Fon 改变字体、字号;4EJ*JA在 外观” / “ BackCol 设置底纹颜色，外观/ “ForceColo 改变字体颜色，如图右所(6

2、双击 确定”按钮：“Microsoft Visual Basic(VBA 中修改代码：在 Private SubCommandButton1Click(End Su 中间粘贴如下代码：Msgbox 恭喜你，答对了ElseMsgbox 对不起，答错了End If“OptionButton2 中的“ 2 表示第二个选项是正确，可以修改。如右图所示(7 用文本框加入文字(题目。以后制作选择题时复制即可。放映前，修改宏的安全级别(见多选题。二、多选题制作点击确定”出现恭喜你答对了 ”；若只选择 1 或者 3,则出现对不起，没有选 全”若全选或者选择“12、3”、“13、4”、“23、4”等均为错误；点

3、击 重选”则重新开始。制作方法:If OptionButton2 . Value=True Then例题：四个选项中，选 1、3 项正确。选中后,OCH。CheckBoxl(1 控件工具箱/复选框”。画出一个选项按钮。如图右所示(2 右击“ CheckBoxT 属性/ “ Caraptio 中输入名A加速上升”；“ BackColor：”背景色，单击该“ForceColo：”字体色；“ Font字体“ AutoSize：” 有两个值：“ True ”(根“False复选框为固定大小)；“ Height 和“ Width 分别为复选框高度和宽度， 直接输入数字。在适当的位置。如下图所示称：删除默

4、认值，重输新名称，如 属性框/下拉按钮中/调色板”选择颜色；在 属性。设置后的结果如右图所示。其他选项： 据字的多少调整复选框的大小)，(3 将“A加速上升”复制三个，修改文字，放置A- fl枷i升c.JSjSTK如右图所示。乩加却卜降(4 控件工3WW-I1 -TLIVT.N.1 fall. fi I i iX ! 士叩“i Wr*ijapTvm1i ttUliTdujiU-k.TrfcI - SiT-MUtifK- -M环“i-j审4HiiW和心讣茁区S三上齐Q*D.加诛卜薩jCtMMndButtaul“ CommandButton1”属性”设置文本框填充色、文字属性。“ Caption

5、改变命令按钮的文字为确定”如左图所示。(6 再双击 确定”按钮，“Microsoft Visual Basic(VBA 窗口中修改代码：在 Prirate SubComma ndButto nl_Click（End s 中间粘贴如下代码:If CheckBox1 . Value=True And CheckBox2. Value=False AndCheekBox3. Value=True AndCheckBox4. Value=False ThenMsgBox（恭喜你答对了！”Elself CheckBox1. Value=True And CheekBox3. Value=False An

6、d CheckBox2.Value=FalseAnd CheckBox4. Value=False ThenMsgBox（对不起，没有选全！”Elself CheckBox1. Value=False And CheckBox3. Value=True AndCheckBox2. Value=FalseAnd CheckBox4. Value=False Then(5 右击命令按钮”文本框MsgBox(对不起，没有选全！”ElseMsgBox(对不起，答错了End If如图右所示。(7 复制一个 确定”按钮，文字改为 重选”再双击 重选”按钮，修改代码：在Private Sub Ccmma n

7、dButt on 2_click(En(中间粘贴如下代码：确定蛮选CheckBox1. Value=FalseCheckBox2.CheckBox3.CheckBox4.Value=FalseValue=FalseValue=False(8 用文本框加入文字内容，如下图所rtiSTM1D. JK；婷下睛如右图所示。示。(9 放映时，点击 A 和 C 两个选项，出现恭喜你，答对了 ”选择;A 或者 C，贝 U 得到对不起，没有选全”其他都是对不起，答错了 ”应用控件工具时，由于使用了 VBA 程序，而 PowerPoint 默认禁用 宏”，故播放时 如不出现效果，要将 宏”的级别改为 中”或 低”：点击 工具” /宏” /安全性”安全 级”选项卡中，安全级别选择 中”或 低”。(在打开文档时，出现 安全警告”命令框，点击 启用宏”)(10 再次使用时复制、更改即可。三、填空题制作利用控件工具箱的 文本框”按钮制作填空题。例如：求 5$的积：(1 调出控件工具箱，在下划线处画出一个文本框，右击调出属性”对话框：“ForeColo 设为&H000000FF&(红，答案用红色。“Fon 设为楷体一 GB2312;若需要较大字体，可以输入表示字号的任意数值。