Question

VB 组合框的问题，在当前的窗体中有很多个combobox，想在加载当前窗体时对这每个组合框添加同样的下拉内容

VB 组合框的问题，在当前的窗体中有很多个combobox，名字为combobox1,combobox2,combobox3,combobox4……combobox16，我想在每次加载当前窗体的时候对这每个组合框添加同样下拉内容A，B，C……H，请给出代码！~~谢谢！

Answer 1

那就用一个combobox控件数组呗！
for i=1 to 16
For j = Asc("a") To Asc("h")
Combo(i).AddItem Chr(j)
Next j
next i

追问

我的名字是ComboBoxi，而不是ComboBox（i）

Answer 2

Private Sub Form_Load()
Dim x As Control
For Each x In Me.Controls
If TypeName(x) = "ComboBox" Then
For j = Asc("A") To Asc("H")
x.AddItem Chr(j)
Next
End If
Next
End Sub

追问

不行哇~~~，
Dim x As Control
For Each x In Me.Controls
If TypeName(x) = "ComboBox" Then
是不是有问题

追答

你用的是什么版本
我在VB6.0上测试过了才发出来的

追问

VBA，是集成在一款三维CAD软件内部的开发工具，首先要谢谢你的关注，其次我把我的问题再详细的实际描述下，希望得到解决：如下，
在当前的窗体中有很多个combobox，名字其实是为
批处理名称1,批处理名称2,批处理名称3,批处理名称4……批处理名称16，我想在每次加载当前窗体（窗体NAME为“批处理增加”）的时候对这每个组合框添加同样下拉内容 中文名称，英文名称，日文名称，请给出代码！~~谢谢

追答

代码在Excel的VBa编辑器上通过

Private Sub UserForm_Activate()'这里注意一下事件 不知道CAD 里的窗体事件是不是一样的
Dim x As ComboBox
For Each x In Me.Controls
x.Clear
For j = Asc("A") To Asc("H")
x.AddItem Chr(j)
Next
Next
End Sub

追问

弹出出差：“For Each x In Me.Controls”，错误13，类型不匹配，事件有可能应该是UserForm_Activate()，但是后面的我不太理解，能麻烦解释下吗？或者按照我上面详述的实际情况再重新做段代码？麻烦你了！~

追答

试试这个吧 如果这样中规中矩的写还不行的话那我也无能为力了
反正这些代码我在VBa里测试通过了的
Private Sub UserForm_Activate()
For i = 0 To Me.Controls.Count - 1 '窗体上所有的控件
If TypeName(Me.Controls(i)) = TypeName(批处理名称3) Then '当控件为ComboBox的时候
Me.Controls(i).AddItem "a" '添加项
End If
Next
End Sub

追问

OK，可以了，感谢@~

Answer 3

是vb6还是vb.net？请务必说清楚！

追问

精确的说VBA，谢谢！~

Answer 4

不会