firefly 控件实现交互题.pptVIP

控件制作交互性选择题、填空题 提交按钮代码 Private Sub CommandButton1_Click() MsgBox (right) End Sub Private Sub CommandButton2_Click() MsgBox (“wrong) End Sub Private Sub CommandButton3_Click() MsgBox (“wrong) End Sub Private Sub CommandButton4_Click() MsgBox (“wrongt) End Sub 重新选择按钮代码 Private Sub CommandButton2_Click() OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4.Value = False End Sub 清空按钮代码 Private Sub CommandButton1_Click() If OptionButton3.Value = True Then MsgBox (right) Else MsgBox (wrong) End If End Sub Private Sub CommandButton2_Click() OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4.Value = False End Sub 多选题交互制作方法 多选题交互制作方法 1、插入四个复选框，调整好位置。再插入一个命令按钮，打开“属性”对话框，将“Caption”值设为“提交”。选中“提交”按钮，在右键菜单中选择“查看代码”命令，打开代码编辑窗口。 2、在第二行输入代码如下： If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = false And CheckBox4.Value = False Then MsgBox 厉害，答对了!, Else 　　MsgBox “不好意思，您做错了。再仔细想想?”　　 　　 End If CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False 填空题的交互方法制作 填空题的交互方法制作 填空题的交互方法制作 If TextBox1.Text = 2 And TextBox2.Text = 3 Then msgbox 真棒！你全答对了 Else If TextBox1.Text = 2 And TextBox2.Text 3 Then msgbox 太遗憾了，你第二题出错了，加油！ TextBox2.Text = End If If TextBox1.Text 2 And TextBox2.Text = 3 Then msgbox 太遗憾了，你第一题出错了，加油！ TextBox1.Text = End If If TextBox1.Text 2 And TextBox2.Text 3 Then msgbox 太遗憾了，你两个题都出错了，加油！ TextBox1.Text = TextBox2.Text = End If End If 清空按钮代码： TextBox1.Text = TextBox2.Text = PPT中嵌入网页的方法步骤： 1.找出“控件工具栏”。 2、在“控件工具栏”中，选择’更多控件‘，然后找到并选择“microsoft web浏览器”控件。 3、在ppt页面上画一个web控件。这个控件用来显示要插入到ppt中的页面。 4、在同一个ppt页面上插入一个CommandButton按钮。到属性页面中将按钮的‘Caption’改为你期望看到的名字,比如淮北师范大学. 5、双击刚才CommandButton按钮，进入了VBA编程环境。在光标默认的位置编写以下代码（基本上与VB编程相同）。 ???? webbrowser1.navigate(这里是网页的URL