Question

我的全局变量类：

Public Class GlobalVariable
Public Shared containsListBox2Item As ArrayList
End class

我的列表框2项目是：我正在做的是使用＆gt;从列表框1添加列表框2项目我需要将listbox2中的所有项目放入数组列表然后调用它来执行其他操作的按钮。所以我想打电话给每个项目。不知道该怎么做。

1. X,Y Coordinate
 2. Latitude, Longitude
 3. Zip Code
 4. State
 5. City

基本上我希望每个listbox.text项在数组列表中都有自己的值。让我们说像

If listbox1.text = "X,Y Coordinate" Then
GlobalVariable.containsListBox2Item.add("X,Y Coordinate").

不确定我是否正确编码。请帮忙。

Answer 1

使用以下代码将ListBox2中的所有项目值添加到您的arraylist。

For Each item As ListItem In ListBox2.Items
    GlobalVariable.containsListBox2Item.Add(item.ToString())
Next

Answer 2

试试这个：

Answer 3

我会将项目存储在ListBox控件中，但不会存储在列表中。通常，您希望将数据保存在UI线程上，而不是仅使用UI作为显示。最终，您将把List中的项目放入ArrayList

创建一个winforms项目，添加两个ListBox和两个Button控件。

Private list1 As New List(Of String)
Private list2 As New List(Of String)

Private arrayList As New ArrayList()

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Button1.Text = ">"
    Button2.Text = "Finish"
    list1.AddRange({"X, Y", "Lat", "Zip", "State", "City"})
    updateListBoxes()
End Sub

Private Sub updateListBoxes()
    ListBox1.Items.Clear()
    ListBox1.Items.AddRange(list1.ToArray())
    ListBox2.Items.Clear()
    ListBox2.Items.AddRange(list2.ToArray())
End Sub

' > button
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim item = ListBox1.Text
    If item = "" Then Exit Sub
    list1.Remove(item)
    list2.Add(item)
    updateListBoxes()
End Sub

' finish button
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    arrayList.Clear()
    arrayList.AddRange(list2.ToArray())
End Sub

如何使用由listbox1添加的Listbox2文本项创建数组列表

3 个答案: