将VB转换为VBA

Question

请帮我解决以下问题： 此代码在VB中工作，但在VBA中不起作用：

我也开始添加索引为0的组合框到form1

For i = 1 To 5
  Load Combo1(i)
  Combo1(i).Visible = True
  Combo1(i).Left = Combo1(i - 1).Left + Combo1(0).Width
Next i

我将在VBA中使用此代码。 谢谢

Answer 1

您是否正在考虑以下方面：

Sub AddControls()
Dim frm As Form
Dim iTop, iWidth, iHeight, iLeft

DoCmd.OpenForm "FormNameHere", acDesign
Set frm = Forms!FormNameHere

iTop = 100
iWidth = 1500
iHeight = 300
iLeft = 100

For i = 1 To 5
  Set ctl = CreateControl(frm.Name, acComboBox, , , , iLeft, iTop, iWidth, iHeight)
  ctl.Visible = True
  ctl.Name = "Combo1" & i
  iLeft = ctl.Left + ctl.Width
Next i

DoCmd.Restore
End Sub

Answer 2

我认为索引属性在VBA中不可用;我不知道它在VB中是如何工作的。