ActiveX控件与表单控件的区别

Excel中表单控件和ACTIVEX控件主要区别

表单控件只能在excel工作表中添加和使用，插入控件之后，单击右键选择控件，可以设置控件格式和指定宏。
activex控件不仅可以在工作表中使用，还可以在VBE编辑器用户窗体中使用，同时具备了很多的属性和事件，这些都是表单控件所不具备的，也是表单控件和activex控件最核心的区别所在。

按钮控件

标签控件

单选按钮控件

Sub test()
With Sheet1If .OptionButton1 = True ThenMsgBox ("你选的小学")ElseIf .OptionButton2 = True ThenMsgBox ("你选的初中")ElseIf .OptionButton3 = True ThenMsgBox ("你选的高中")Else: .OptionButton4 = TrueMsgBox ("你选的大学")End If
End WithEnd Sub

单选按钮也可以设置点击事件

微调按钮控件

练习 ——考试系统

在sheet1中代码如下

Private Sub CommandButton1_Click()
'结束考试按钮
Dim j, k As Integer
k = 0
For j = 2 To 9If Sheets("题目").Range("f" & j).Value = Sheets("题目").Range("g" & j).Value Thenk = k + 1End If
Next
MsgBox ("恭喜你！做对了 " & k & " 道题，你真棒")
End SubPrivate Sub CommandButton2_Click()
'第一题按钮
Call test(1)
Sheet1.SpinButton1.Value = 1
End SubPrivate Sub CommandButton3_Click()
'最后一题按钮
Call test(8)
Sheet1.SpinButton1.Value = 8
End Sub
'把考生选择的答案写入对应区域
Private Sub OptionButton1_Click()
Sheets("题目").Range("g" & Sheet1.SpinButton1.Value + 1) = "A"
End Sub
Private Sub OptionButton2_Click()
Sheets("题目").Range("g" & Sheet1.SpinButton1.Value + 1) = "B"
End Sub
Private Sub OptionButton3_Click()
Sheets("题目").Range("g" & Sheet1.SpinButton1.Value + 1) = "C"
End Sub
Private Sub OptionButton4_Click()
Sheets("题目").Range("g" & Sheet1.SpinButton1.Value + 1) = "D"
End SubPrivate Sub SpinButton1_Change()
'调用主程序
'Sheet1.SpinButton1.Value作为参数
Call test(Sheet1.SpinButton1.Value)
End Sub

在模块中代码

Sub test(i As Integer)
Sheet1.SpinButton1.Max = 8
Sheet1.SpinButton1.Min = 1
'写入数据
With Sheet1'清空单选按钮.OptionButton1.Value = False.OptionButton2.Value = False.OptionButton3.Value = False.OptionButton4.Value = False'写入题目.Range("a4") = i.Label3 = Sheets("题目").Range("a" & i + 1).Label2 = Sheets("题目").Range("b" & i + 1).Label4 = Sheets("题目").Range("c" & i + 1).Label5 = Sheets("题目").Range("d" & i + 1).Label6 = Sheets("题目").Range("e" & i + 1)'查看是否有CD两个选项If .Label5.Caption = "" Then.OptionButton3.Visible = FalseElse.OptionButton3.Visible = TrueEnd IfIf .Label6.Caption = "" Then.OptionButton4.Visible = FalseElse.OptionButton4.Visible = TrueEnd If'返回之前的答案If Sheets("题目").Range("g" & i + 1) = "A" Then.OptionButton1.Value = TrueElseIf Sheets("题目").Range("g" & i + 1) = "B" Then.OptionButton2.Value = TrueElseIf Sheets("题目").Range("g" & i + 1) = "C" Then.OptionButton3.Value = TrueElseIf Sheets("题目").Range("g" & i + 1) = "D" Then.OptionButton4.Value = TrueEnd If
End With
End Sub

最终效果

使用ActiveX控件相关推荐

vs2008 外部调用ActiveX控件接口方法
转自:http://topic.csdn.net/u/20090605/16/018e26e9-06e2-4e0d-8099-bc8eb326afde.html sndaxdrs: 初学activeX ...
VC使用ActiveX控件常见问题
转自:http://lingchuangsong.blog.163.com/blog/static/126932322008631104133309/ 一方面,它表示将你联系到Microsoft.In ...
vs2008 ActiveX控件测试容器的生成以及调试ActiveX控件
1.ActiveX控件测试容器的生成:用TSTCON生成测试容器 http://msdn.microsoft.com/zh-cn/library/f9adb5t5(v=vs.90).aspx 在搜索里 ...
如何发布ActiveX 控件
转自:http://blog.csdn.net/zougangx/archive/2008/07/30/2738147.aspx [背景] 做过ActiveX控件的朋友都知道,要想把自己做的Activ ...
vc mysql控件_VC++使用ActiveX控件连接和操作数据库
VS2008运用ActiveX控件连接和操作数据库关闭时一直有个内存释放的错误,好像使用VC6.0会多生成2个文件,就不会有问题. VC++使用ActiveX控件连接和操作数据库的方法分两种: 1.通 ...
用C#编写ActiveX控件（三）转载
在前面我们已经完成了ActiveX控件的开发,接下来的就是发布它了. 首先,我们建立一个windows安装项目,并将ActiveX控件的主输出添加到项目输出中.然后,改动ActiveX控件的主输出文件 ...
ActiveX控件和它的容器
1.COM基础 2.ActiveX控件及实现 3.ActiveX控件容器及实现 4.总结 1.COM基础 COM是一种组件开发技术, 它实际上是一种在二进制层上兼容的软件开发方法的规范. COM技术是 ...
COM组件开发实践（七）---多线程ActiveX控件和自动调整ActiveX控件大小(上)
声明:本文代码基于CodeProject的文章<A Complete ActiveX Web Control Tutorial>修改而来,因此同样遵循Code Project Open L ...
COM组件开发实践（八）---多线程ActiveX控件和自动调整ActiveX控件大小(下)
源代码下载:MyActiveX20081229.rar 声明:本文代码基于CodeProject的文章<A Complete ActiveX Web Control Tutorial>修改 ...
解决CPC撰写文档报错问题“无法获取“AxforApplication”控件的窗口句柄。不支持无窗口的 ActiveX 控件”
解决CPC撰写文档报错问题"无法获取"AxforApplication"控件的窗口句柄.不支持无窗口的 ActiveX 控件" 参考文章: (1)解决CPC撰写 ...

使用ActiveX控件

ActiveX控件与表单控件的区别

按钮控件

标签控件

单选按钮控件

微调按钮控件

练习 ——考试系统

在sheet1中代码如下

在模块中代码

最终效果

使用ActiveX控件相关推荐

最新文章

热门文章