VB.NET 如何将ListBox列表框的所有项复制到一个数组中，便于排序？谢谢解答

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListboxTotalItem As Integer = ListBox1.Items.Count - 1
Dim a(ListboxTotalItem) As String

For i As Integer = 0 To ListboxTotalItem
a(i) = i
Next

Label1.Text = a(5)
End Sub

End Class

-------------

一个Form1
一个Label1
一个Listbox1
一个Button1
在Listbox1中加入10个值

-------------

只是一个演示，其他的要靠自己。

你可以尝试这样做：
listbox1.items.add(mydatareader("id").tostring()+"—"+mydatareader("pid").tostring()+"—"+mydatareader("
name
").tostring())
窍门：把若干个字段拼接起来才可以显示在一个listbox中，同时希望listbox有足够的宽度。
显示样子可能是：
1—111—张三