用VB代码实现PPT课件的交互功能.pdfVIP

理煎垂直蕉盎 卫生职业教育 №!：堑2鲤2坠21 用VB代码实现PPT课件的交互功能 李作胜，魏曙光 (武威卫生学校．甘肃武威733000) PrivateSub 关键词tVB代码；鲫T课件；交互功能 CommandBuaonl_Cllck() 中圉分类号：G436 文献标识码：B IfLabel6．Caption§”C”Thcn 文窜编号：1671—1246(2007)21-0046-02 Lubd7．Caption=”、／“ Else：Label7．Caption=“×” 如何制作具有良好交互功能的PPT课件，尤其是具有良好 EndⅡ 互动性的习题?笔者经过实践，探索出一种有效的方法一用 EndSub PrivateSubCommandBuRon2 控件及相应的VB代码实现交互功能。现以选择题为倒，谈谈在 Clic“) t“” PPT课件中如何用控件及相应的VB代码实现交互功能。 Llbel6．Caption 1A型选择题(单选题)的制作 Label7 Caption=”“ 1．1布局镬王 EndSub PrivateSubLubell 例如。要在课件中加入如下A型选择题：题干为“区分溶液 Click() 和溶胶最简便的方法是()”；选项为“A渗析，B电泳，C丁铎 Label6．Caption=”A” 尔现象，D布朗运动，E吸附”；答案为“C丁铎尔现象”。先在当 Lubel7．Caption=¨ 前幻灯片上插入文本框，在文本框中添加题干内容：“区分溶液 EndSub PrivateSub 和溶胶最简便的方法是()”；然后打开控件工具箱．在当前幻 Label2_CHck() 灯片上插人7个标签控件，其默认名称(n—e)分别为lubell-7；Lubel6．Caption=…B 右击标签控件，在弹出的快捷菜单上点击属性项，调出属性页， Labd7．Caption=” EndSub 将labell～5属性页中的caption属性分别填写为：A渗析，B电 PrivateSub 泳．c丁铎尔现象，D布朗运动，E吸附。再插人2个命令按扭 LabeB_Click() 控件，其默认名称(n山e)分别为commandl、c。唧d2；然后将I．abcl6．Caption=”C” 其caption属性分别填写为“判断”和“重做”。通过各控件的fontLabel7．Caption=”” 和forecolour属性设置合适的字体和颜色。最后调整布局和各EndSub 控件大小，其中lubel6用来显示答案，置于题干的括号内山一 PrivateSubLabel4_Click() hel7用来显示判断标志(“、／”