Question

vb的新手，大约6个月前开始，并且无法解决这个问题。我有两个列表框，其中项目的数量可以变化，但两者将具有相同数量的项目。
列表框1 汤姆苏苏亨利

列表框2 鞋子
帽子汽车

我希望能写一行如下：
comsave = LB1＆amp; chr（32）＆amp; chr（34）＆amp; LB2

但是来自lisbox1（LB1）的项目和来自listbox2（LB2）的项目属于同一索引。我尝试过这样的事情：

每个lb1作为listbox1.items中的字符串
对于每个lb2作为listbox2.items中的字符串
comsave = LB1＆amp; chr（32）＆amp; chr（34）＆amp; LB2

但是这只是给了我listbox1中的第一项和listbox2中的项目一样多次，然后它继续到listbox1中的第二项，然后重复。

我想要它做的是循环遍历listbox1中的所有项目，并在listbox2中为该行提供相同索引的项目：
comsave = LB1＆amp; chr（32）＆amp; chr（34）＆amp; LB2

我一直在阅读我所能做的，但逻辑让我感到安慰。不确定我是否需要以某种方式拆分或使用数组。任何帮助将不胜感激。

Answer 1

如果要使用相同索引的项目，则有助于使用索引：

For i = 0 To itemCount - 1
    Dim item1 = CStr(ListBox1.Items(i))
    Dim item2 = CStr(ListBox2.Items(i))

    '...
Next

Answer 2

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ListBox1.Items.Clear()
    ListBox1.Items.Add("Tom")
    ListBox1.Items.Add("Sue")
    ListBox1.Items.Add("Henry")

    ListBox2.Items.Clear()
    ListBox2.Items.Add("Shoes")
    ListBox2.Items.Add("Hats")
    ListBox2.Items.Add("Cars")

    Dim s As String = ""
    For i As Integer = 0 To ListBox1.Items.Count - 1
      s &= ListBox1.Items(i) & Chr(32) & Chr(34) & ListBox2.Items(i) & vbCrLf
    Next
    MsgBox(s)
  End Sub

VB.NET - 两个列表框项目到同一索引位置的字符串

2 个答案: