从多个列表框Visual Basic中放置相同的行位置

Question

我有以下电话簿。

我有3个列表框，用于联系人的姓名，电话和电子邮件。我想在3个搜索结果列表框中以相同的顺序放置这些数据。我只知道搜索的联系人名称。

例如：

| Listbox 1 | Listbox 2 | Listbox 3 |
| Names     | phone     | Email     |
|           |           |           |


| Listbox 6     | Listbox 5      | Listbox  6     |
| Names results | Phones results | Emails results |
|               |                |                |

代码是：

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
    Dim resultado As String
    For Each resultado In ListBox1.Items
        If resultado.Contains(TextBox1.Text) Then
            ListBox6.Items.Add(resultado)
        End If
    Next
End Sub

我该怎么做？

此致

Answer 1

使用For Each循环，而不是使用For循环。这样，您就可以在ListBox1中考虑当前项目的索引，这样您就可以在ListBox2和ListBox3中获取相同索引的项目并添加它们到ListBox5和ListBox6。