资源描述
v1.0可编辑可修改连线题的制作云南扬子步骤1新建空白ppt,用艺术字添加题目。步骤2单击控件工具箱命令按钮,拖由三个命令按钮,分别修改属 性中caption为重做、关闭音乐、显示帮助;单击控件工具箱 单选按钮,拖由八个单选按钮,把相应的文字和图片拖到合 适的位置:再通过单击控件工具箱标签按钮,拖由一个标签 按钮,修改属性中caption为空,再通过绘图里的对其与分布 里的对齐,把各个对象调节好。步骤3修改各个控件的属性,三个命令按钮依次修改名称为cmdl、cmd2、cmd3;八个单选按钮依次修改名称为 Opt1、Opt2、Opt3、Opt4、Opt5、 Opt6、Opt7、Opt8;标签按钮修改名称为 Lbl1。步骤4双击显示帮助按钮,进入代码编辑窗口,在Private Sub Cmd3_Click() 和End Sub中间粘贴如下代码:If =显示帮助Then=点击图下的小圆,然后点击单词上面的小圆!=隐藏帮助Else=显示帮助End If步骤5双击关闭音乐按钮,进入代码编辑窗口,在Private Sub Cmd2_Click()和End Sub中间粘贴如下代码:If =关闭音乐Then=0=0=打开音乐Else=100=100=关闭音乐End If步骤6双击重做按钮,进入代码编辑窗口,在Private Sub Cmd1_Click()和End Sub中间粘贴如下代码:SlideShowWindows(1).=False2v1.0可编辑可修改=False=False=False=False=False=False=False步骤7双击Opt5按钮,进入代码编辑窗口,在Opt5后选择GotFocus项,在PrivateSub Opt5_GotFocus(弄口 End Sub中间粘贴如下代码:If = True ThenSlideShowWindows(1). 372, 210, 300, 370Else=FalseEnd If步骤8Sub Opt6_GotFocus饰口 End Sub中间粘贴如下代码:If = True ThenSlideShowWindows(l). 530, 210, 375, 370Else=FalseEnd If步骤9双击Opt7按钮,进入代码编辑窗口,在Opt7后选择GotFocus项,在PrivateSub Opt7_GotFocus侪口 End Sub中间粘贴如下代码:If = True ThenSlideShowWindows(1). 297, 210, 452, 370Else=FalseEnd If步骤10双击Opt8按钮,进入代码编辑窗口,在Opt8后选择GotFocus项,在PrivateSub Opt8_GotFocus饰口 End Sub中间粘贴如下代码:If = True ThenSlideShowWindows(l). 452, 210, 530, 370Else=FalseEnd If步骤11保存5
展开阅读全文