VBA中的控件數組

1、VBA中的控件數組2009年2月28日 評論 發(fā)表評論 大家都知道，和VB不一樣，VBA中不能直接創(chuàng)建控件數組。然而可以使用WithEvents來模擬相同的功能。我們需要一個類來處理控件的事件，而每一個控件需要一個類實例。對于不同控件的類實例，我們可以使用一個對象數組或者集合來實現。這里使用按鈕控件做為例子來介紹怎樣在窗體和工作表中創(chuàng)建控件數組。創(chuàng)建類創(chuàng)建控件數組之前，我們需要一個類來處理控件的事件。在VBE窗口中，單擊菜單“插入”->“類模塊”，在屬性窗口中將類的名稱改為“cCB”。在類模塊中添加下面這一行：Private WithEvents m_CB As MSForms.Comm

2、andButton這樣你就可以從代碼欄的頂部左邊下拉列表中選擇m_CB并選擇右邊下拉列表中相應的事件。完整的代碼如下：Private WithEvents m_CB As MSForms.CommandButton' 初始化，將控件綁定到類Public Sub Init(ctl As MSForms.CommandButtonSet m_CB = ctlEnd Sub' 控件的Click事件Private Sub m_CB_Click(MsgBox "你點擊了：" & m_CB.CaptionEnd Sub' 注銷類Private Sub C

3、lass_Terminate(Set m_CB = NothingEnd Sub窗體中的控件數組然后創(chuàng)建一個窗體，在窗體中添加兩個CommandButton，將這兩個按鈕控件分別命名為cmd1和cmd2，然后在窗體中的初始化事件中添加代碼如下：Private ctlCB(1 To 2 As cCB' 以對象數組保存類的實例Private Sub UserForm_Initialize(Set ctlCB(1 = New cCB' 將按鈕cmd1賦給類的實例ctlCB(1.Init cmd1Set ctlCB(2 = New cCBctlCB(2.Init cmd2End Sub

4、這里使用對象數組ctlCB(1 to 2來保存類實例。每當使用Set語句創(chuàng)建一個類實例，然后使用類的Init方法將按鈕控件賦給這個實例。也可以使用集合來保存這個類的實例。代碼如下：Private colCB As New CollectionPrivate ctlCB As cCB 以集合保存類的實例Private Sub UserForm_Initialize(Set ctlCB = New cCB' 將按鈕cmd1賦給類的實例ctlCB.Init cmd1' 將類的實例加入到集合中colCB.Add ctlCBSet ctlCB = New cCBctlCB.Init cm

5、d2colCB.Add ctlCBEnd Sub點擊按鈕，將彈出對應的消息框。上面的例子是將手動添加的控件添加到控件數組中。也可以動態(tài)創(chuàng)建控件數組。創(chuàng)建一個新的窗體，然后在窗體的初始化事件中使用Controls集合的Add方法添加CommandButton控件，再將創(chuàng)建好的控件賦給類實例。完整代碼如下：Private ctlCB(1 To 3 As cCBPrivate Sub UserForm_Initialize(Dim nCtr As MSForms.CommandButtonFor i = 1 To 3' 添加按鈕控件Set nCtr = Me.Controls.Add(&qu

6、ot;Forms.CommandButton.1", "cmdTest" & i' 設置按鈕控件標題和位置With nCtr.Caption = "CommandButton_" & i.Move 10, 10 + (i - 1 * 40, 80, 30End With' 創(chuàng)建cCB類實例Set ctlCB(i = New cCB' 將控件賦給類實例ctlCB(i.Init nCtrNext iEnd Sub工作表中的控件數組同樣，在工作表中也可以創(chuàng)建控件數組（但和窗體有些不同）。在工作表中分別創(chuàng)建一個L

7、abel控件和三個CommandButton控件，如下圖：然后在Label控件的Click事件中添加如下代碼：Dim cmdCtl( As cCB' 標簽控件的Click事件Private Sub Label1_Click(Dim cmd As OLEObject ' 所有OLE對象Dim i As Integer' 重新定義數組ReDim cmdCtl(1 To Sheet2.OLEObjects.Count As cCBi = 1' 循環(huán)所有的OLE對象For Each cmd In Sheet2.OLEObjects' 只有CommandButto

8、n控件才可以加入到控件數組If gID = "Forms.CommandButton.1" ThenSet cmdCtl(i = New cCBcmdCtl(i.Init cmd.Objecti = i + 1End IfNextMsgBox "已經將工作表中所有CommandButton控件建成控件數組！", vbInformationEnd Sub值得注意的是使用類cCB的Init方法時，不能直接使用cmd變量，因為cmd變量是OLEObject類型。需要使用cmd變量的Object屬性返回MSForms.CommandButton變量

9、。然而在工作表中對于動態(tài)創(chuàng)建的控件使用同樣的方法創(chuàng)建控件數組時，動態(tài)創(chuàng)建的控件并不響應類實例的事件。代碼如下：Dim cmdCtl(1 To 5 As cCB' 標簽控件的Click事件Private Sub Label1_Click(Dim i As IntegerDim cmd As OLEObject For i = 1 To 5Set cmd = Sheet3.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _Left:=Cells(i * 3 + 3, 2.Left, Top:=Cells(i * 3 + 3, 2.Top, Width:=Cells(1, 1.Width * 2, Height:=Cells(1, 1.Height * 1.5Set cmdCtl(i = New cCBcmdCtl(i.Init