在 Visual Basic 2010 中使用字符串引用多个列表框

Question

我只是决定在 Visual Basic 2010 中编写一些代码，而不是将 VBA 用于 excel。但我在管理某些循环时遇到了一些麻烦。在 VBA 中，当我需要 add/Read 列表框中的项目时，我使用了带有 me.controls("Listbox" & i).additem 代码的循环。

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

但是在 visual basic 中这不起作用，函数 .controls 不接受字符串到 link 对象。任何人都知道 add/read 多个对象而无需手动键入每个对象的代码？

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 中使用字符串引用多个列表框

reference multiple listboxes with string in Visual Basic 2010

vb.net

visual-studio-2010

listbox