我正在撰寫此代碼，該代碼在單擊按鈕時啟動一個物件。
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
但是，某些按鈕需要在 2 個物件上運行相同的代碼，如下所示：
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
我想出了如何使用控制元件來做到這一點，但我無法弄清楚如何使用我的用戶定義類 Renewal 來做到這一點。我想把它改成這樣：
set Renewal("this_renewal" & i) = CreateRenewal(Renewal("this_renewal" & i))
有沒有辦法做這樣的事情？然后稍后我可以類似地呼叫該物件。
uj5u.com熱心網友回復：
我會使用一系列 Renewal 物件。
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從哪里來。我的示例不會“正常作業”，但它向您展示了您將使用的模式。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/451260.html
上一篇：如何根據用戶輸入的數字選擇變數