Question

我想将以下组合框项添加到名为“Numbers”的数组中。以下是我到目前为止的情况。如何将每个组合框项添加到数组中？谢谢。

    number.Items.Add("One")
    number.Items.Add("Two")
    number.Items.Add("Three")
    number.Items.Add("Four")
    number.Items.Add("Five")
    number.Items.Add("Six")
    number.Items.Add("Seven")

    Dim Numbers(6) As String
    Dim count As Integer
    For count= 0 To 6
        Numbers(count) = number.Text
    Next count

Answer 1

尝试此代码（它将所有项目转换为字符串数组，因此您可以跳过定义数组大小）：

number.Items.Add("One")
number.Items.Add("Two")
number.Items.Add("Three")
number.Items.Add("Four")
number.Items.Add("Five")
number.Items.Add("Six")
number.Items.Add("Seven")

'convert all items to string array
Dim Numbers = number.Items.Cast(Of String).ToArray()

Answer 2

你几乎就在那里..

Dim Numbers(6) As String
    Dim count As Integer
    For count = 0 To 6
        Numbers(count) = Number.Items(count).ToString
    Next count
End Sub

Answer 3

我会使用CopyTo()内置方法

Dim Numbers(ComboBox1.Items.Count - 1) As String
ComboBox1.Items.CopyTo(Numbers, 0)

Answer 4

通常的方法是将项目放入数组中，然后将其用作组合框的数据源，或者只需将其添加到.AddRange：

Public Class Form1

    Dim numbers As String()

    Private Sub SetUpNumberComboBox()
        numbers = {"One", "Two", "Three", "Four", "Five", "Six", "Seven"}
        number.Items.AddRange(numbers)
        ' alternatively:
        'number.DataSource = numbers

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SetpUpNumbersComboBox()

    End Sub

End Class

[对于使用设计师添加项目的任何人，这样，您不需要通过（相对）繁琐的设计师来更改项目，您只需编辑代码。]

如何将组合框中的项添加到数组中

4 个答案: