请帮我解决以下问题: 此代码在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中使用此代码。 谢谢
答案 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中是如何工作的。