VBA中的控件数组

VBA 中的控件数组 VBA 中的控件数组 2009 年 2 月 28 日 评论 发表评论大家都知道，和 VB 不一样，VBA 中不能直 接创建控件数组。 然而可以使用 WithEvents 来模拟相同的功 能。我们需要一个类来处理控件的事件，而每一个控件需要 一个类实例。对于不同控件的类实例，我们可以使用一个对 象数组或者集合来实现。 这里使用按钮控件做为例子来介绍怎样在窗体和工作表中 创建控件数组。 创建类 创建控件数组之前，我们需要一个类来处理控件的事件。 在 VBE 窗口中， 单击菜单插入- 类模块，在属性窗口中将类的名称改为 cCB。 在类模块中添加下面这一行 Private WithEvents m_CB As MSs.CommandButton 这样你就可以从代码栏的顶部左边下拉列表中选择 m_CB并 选择右边下拉列表中相应的事件。 完整的代码如下 Private WithEvents m_CB As MSs.CommandButton 初始化，将控件绑定到类 Public Sub Initctl As MSs.CommandButton Set m_CB ctl End Sub 控件的 Click 事件 Private Sub m_CB_Click MsgBox “你点击了“ m_CB.Caption End Sub 注销类 Private Sub Class_Terminate Set m_CB Nothing End Sub 窗体中的控件数组 然后创建一个窗体，在窗体中添加两个CommandButton，将 这两个按钮控件分别命名为 1 和 2， 然后在窗体中的 初始化事件中添加代码如下 Private ctlCB1 To 2 As cCB 以对象数组保存类的实例 Private Sub User_Initialize Set ctlCB1 New cCB 将按钮 1 赋给类的实例 ctlCB1.Init 1 Set ctlCB2 New cCB ctlCB2.Init 2 End Sub 这里使用对象数组 ctlCB1 to 2来保存类实例。每当使用Set 语句创建一个类实例，然后使用类的 Init 方法将按钮控件赋 给这个实例。 也可以使用集合来保存这个类的实例。代码如下 Private colCB As New Collection Private ctlCB As cCB 以集合保存类的实例 Private Sub User_Initialize Set ctlCB New cCB 将按钮 1 赋给类的实例 ctlCB.Init 1 将类的实例加入到集合中 colCB.Add ctlCB Set ctlCB New cCB ctlCB.Init 2 colCB.Add ctlCB End Sub 点击按钮，将弹出对应的消息框。 上面的例子是将手动添加的控件添加到控件数组中。也可以 动态创建控件数组。 创建一个新的窗体，然后在窗体的初始化事件中使用 Controls 集合的 Add 方法添加 CommandButton 控件， 再将创 建好的控件赋给类实例。完整代码如下 Private ctlCB1 To 3 As cCB Private Sub User_Initialize Dim nCtr As MSs.CommandButton For i 1 To 3 添加按钮控件 Set nCtr Me.Controls.Add“s.CommandButton.1“, “Test“ i 设置按钮控件标题和位置 With nCtr .Caption “CommandButton_“ i .Move 10, 10 i - 1 * 40, 80, 30 End With 创建 cCB 类实例 Set ctlCBi New cCB 将控件赋给类实例 ctlCBi.Init nCtr Next i End Sub 工作表中的控件数组 同样，在工作表中也可以创建控件数组（但和窗体有些不 同） 。在工作表中分别创建一个 Label 控件和三个 CommandButton 控件，如下图 然后在 Label 控件的 Click 事件中添加如下代码 Dim Ctl As cCB 标签控件的 Click 事件 Private Sub Label1_Click Dim As OLEObject 所有 OLE 对象 Dim i As Integer 重新定义数组 ReDim Ctl1 To Sheet2.OLEObjects.Count As cCB i 1 循环所有的 OLE 对象 For Each In Sheet2.OLEObjects 只有 CommandButton 控件才可以加入到控件数组 If .progID “s.CommandButton.1“ Then Set Ctli New cCB Ctli.Init .Object i i 1 End If Next MsgBox “已经将工作表中所有 CommandButton 控件建成控 件数组“, vbInation End Sub 值得注意的是使用类 cCB 的 Init 方法时，不能直接使用 变量，因为 变量是 OLEObject 类型。需要使用 变 量的 Object 属性返回 MSs.CommandButton 变量。 然而在工作表中对于动态创建的控件使用同样的方法创建 控件数组时，动态创建的控件并不响应类实例的事件。代码 如下 Dim Ctl1 To 5 As cCB 标签控件的 Click 事件 Private Sub Label1_Click Dim i As Integer Dim As OLEObject For i 1 To 5 Set Sheet3.OLEObjects.AddClassType“s.CommandButton. 1“, _ LeftCellsi * 3 3, 2.Left, TopCellsi * 3 3, 2.Top, WidthCells1, 1.Width * 2, HeightCells1, 1.Height * 1.5 Set Ctli New cCB Ctli.Init .Object Next i MsgBox “已经成功动态创建控件数组“, vbInation End Sub 类的实例应该是创建成功了（可以在 Init 方法中添加一些语 句来验证） ，但就是不响应 Click 事件，不知道是什