在VBA中使用变量设置对象名

Question

我正在编写这段代码，当单击按钮时启动一个对象。

Public Sub cmdMA_Click()

    Set this_renewal = CreateRenewal(this_renewal, cMA)
    
    Call BranchLabelVisibility(True)
    Me.Controls("lblBranchToAdd" & 1).Caption = this_renewal.Abb
    Call DateLabelVisibility(True)
    Me.Controls("lblYearToAdd" & 1).Caption = this_renewal.Year
    Me.Controls("lblMonthToAdd" & 1).Caption = this_renewal.Month
    Call TestMonth(1)

End Sub

但是，某些按钮需要对两个对象运行相同的代码，如下所示：

Public Sub cmdAB_Click()

    Set this_renewal = CreateRenewal(this_renewal, cAB)
    
    Dim i As Integer: For i = 1 To 2
        Call BranchLabelVisibility(True)
        Me.Controls("lblBranchToAdd" & i).Caption = this_renewal.Abb
        Call DateLabelVisibility(True)
        Me.Controls("lblYearToAdd" & i).Caption = this_renewal.Year
        Me.Controls("lblMonthToAdd" & i).Caption = this_renewal.Month
        Call TestMonth(i)
    Next i

End Sub

我想出了如何用控件来完成这个任务，但是我不知道如何用我的用户定义的类更新来完成这个任务。我想把它改成这样的东西：

set Renewal("this_renewal" & i) = CreateRenewal(Renewal("this_renewal" & i))

有办法做这种事吗？然后，我可以类似地调用这个对象。

Answer 1

我会使用一组更新对象。

Dim Renewals(1) As Renewal
Set Renewals(0) = CreateRenewal(this_renewal, cMA)
Set Renewals(1) = CreateRenewal(this_renewal, cAB)

' Usage:
Me.Controls("lblBranchToAdd" & i).Caption = Renewals(i - 1).Abb

注意:在您的示例中缺少了很多代码。不知道this_renewal从何而来。我的例子不会“只起作用”，但它向您展示了您将使用的模式。