Question

我刚决定在Visual Basic 2010中创建一些代码而不是使用VBA for excel。但是我在管理一些循环方面遇到了一些麻烦。在VBA中，当我需要添加/读取列表框中的项目时，我使用了带有me.controls("Listbox" & i).additem代码的循环。

for i=0 to 2
me.controls("listbox" & i).additem
next

但是在Visual Basic中这不起作用，函数.controls不允许链接对象的字符串。任何人都有想法添加/读取多个对象而无需手动输入每个对象的代码吗？

Answer 1

您可以检查控件名称（或类型）的值以获取列表框。效率较低，因为您必须完成表单中的所有控件，但这并不太费时。

For Each ctl As Control In Controls
  For i As Integer = 0 To 2
    If ctl.Name = "ListBox" & i Then CType(ctl, ListBox).Items.Add("asdf")
    Next i
  Next ctl

在Visual Basic 2010中引用带有字符串的多个列表框

1 个答案: