Question

我试图用数组中的项目填充列表框，我已经声明了一个数组并分配了它保存的字符串，但我不确定我是否正确地完成了这项工作，我想使用数组中的字符串来填充一个列表框，这是我已经完成的代码，我该怎么做，任何人都可以给我代码，我可以使用这些代码填充列表框。

Dim NewDefinition As String

    NewDefinition = InputBox(" Please enter definition in the box and click OK. " & " The definition entered will be added to the list. ", " Add Definition")

    lstDefinitions.Items.Add(NewDefinition)

    Dim NewDefinition1 As String = lstDefinitions.Items(0).ToString
    Dim NewDefinition2 As String = lstDefinitions.Items(1).ToString
    Dim NewDefinition3 As String = lstDefinitions.Items(2).ToString
    Dim NewDefinition4 As String = lstDefinitions.Items(3).ToString
    Dim NewDefinition5 As String = lstDefinitions.Items(4).ToString
    Dim NewDefinition6 As String = lstDefinitions.Items(5).ToString
    Dim NewDefinition7 As String = lstDefinitions.Items(6).ToString
    Dim NewDefinition8 As String = lstDefinitions.Items(7).ToString
    Dim NewDefinition9 As String = lstDefinitions.Items(8).ToString
    Dim NewDefinition10 As String = lstDefinitions.Items(9).ToString

    Dim NewDefinitions(10) As String
    NewDefinitions(0) = NewDefinition1
    NewDefinitions(1) = NewDefinition2
    NewDefinitions(2) = NewDefinition3
    NewDefinitions(3) = NewDefinition4
    NewDefinitions(4) = NewDefinition5
    NewDefinitions(5) = NewDefinition6
    NewDefinitions(6) = NewDefinition7
    NewDefinitions(7) = NewDefinition8
    NewDefinitions(8) = NewDefinition9
    NewDefinitions(9) = NewDefinition10

Answer 1

Listbox将接受任何对象，并将显示ToString方法将显示的任何对象。因此，您可以直接使用对象填充列表框。看看这是否适合你：

ListBox1.DataSource = lstDefinitions.Items

如果有问题的对象来自自定义类，您可以覆盖ToString方法以显示所需的信息。

如何使用数组项填充列表框

1 个答案: