将VB转换为VBA

时间:2009-09-23 09:14:56

标签: vba

请帮我解决以下问题: 此代码在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中使用此代码。 谢谢

2 个答案:

答案 0 :(得分: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

答案 1 :(得分:0)

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