.net 在列表框中显示数组

我试图让列表框显示数组：names（）。但是我得到了一个错误：“索引数小于索引数组的维数”。数组没有设置的元素数，因为用户在输入数据时决定数组的元素数。那么我的代码应该是什么样子呢

谢谢

填充阵列：

Public Class Form3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    lstPatientNames.Items.Add(Names())

End Sub
End Class

或者

或者

您必须在Arraylist中重写对象的ToString。您必须将列表框字体设置为固定字体，以便进行间距设置（新建）。
我建议使用（clsCustomer的）Generic.List，但是如果分配中没有，您将无法在arraylist中键入对象。
然而，这仍然遗漏了大量解决该任务的细节。
祝你好运

---

给我看你数组的代码。我的意思是填写的位置。我想你需要在名称中循环每个名称，然后分别添加。我将尝试一个循环，我想这就是我解决类似问题的方法。我刚刚忘记了当我输入你的第一个选项时，Thanksal1似乎会给我一个错误，这是打字错误还是我遗漏了什么？@Marcel al1实际上是ArrayList

Public Class Form2

Dim i As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMainMenu.Click
    Me.Close()
End Sub

Private Sub btnEnterPatient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnterPatient.Click


    ReDim Preserve Names(0 To i)
    Names(i) = txtPatientName.Text

    ReDim Preserve Heights(0 To i)
    Heights(i) = txtPatientHeight.Text

    ReDim Preserve Weights(0 To i)
    Weights(i) = txtPatientWeight.Text

    i = i + 1

    Label1.Text = i

End Sub
End Class

List1.Items.Clear
List1.Items.AddRange(al1.ToArray)

List1.Items.Clear
For each obj as object in al1
    List1.Items.Add(obj)
Next

List1.Items.Clear
For i as Integer = 0 to al1.count-1
    List1.Items.Add(al1(i))
Next