使用ListView数据填充多个TextBox

Posted 2021-04-20

我的脚本有20个文本框，最多10个Listview项。每个项目只有一个子项目。我的目标是让这些文本框自动填充添加到ListView的每个项目。

文本框示例：

目前，脚本下面有两个for循环语句。第一个将点击列表视图中的所有项目。第二个将输入值到文本框。我不确定如何使用一种方法让脚本填满所有文本框。我想会使用一个案例陈述。

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

    For I As Integer = 0 To ListView1.Items.Count - 1

        ListView1.Items(I).Selected = True
        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox1.Text = item.Text
            OpenModule.TextBox2.Text = item.SubItems(1).Text

        Next

    Next

End Sub

任何帮助或想法表示赞赏。

答案

这是我设法创建的问题的有效回应。请记住，填充文本框的顺序与我的问题无关。我确信这段代码可能会以某种方式缩短，如果完成，我会将该响应标记为已解决;在那之前，这是一个可行的替代方案。

Dim count = ListView1.Items.Count - 1 ' Using ListView1.Items.Count to get max number of rows to prevent error

' Highlight each item
For index As Integer = 0 To count 
    ListView1.Items(index).Selected = True

    ' First Selected Item
    If index = 0 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox1.Text = item.Text
            OpenModule.TextBox2.Text = item.SubItems(1).Text

        Next

    End If

    ' Second Selected Item
    If index = 1 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox3.Text = item.Text
            OpenModule.TextBox4.Text = item.SubItems(1).Text

        Next

    End If

    ' Third Selected Item
    If index = 2 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox5.Text = item.Text
            OpenModule.TextBox6.Text = item.SubItems(1).Text

        Next

    End If

    ' Forth Selected Item
    If index = 3 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox7.Text = item.Text
            OpenModule.TextBox8.Text = item.SubItems(1).Text

        Next

    End If

    ' Fith Selected Item
    If index = 4 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox9.Text = item.Text
            OpenModule.TextBox10.Text = item.SubItems(1).Text

        Next

    End If

    ' Sixth Selected Item
    If index = 5 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox11.Text = item.Text
            OpenModule.TextBox12.Text = item.SubItems(1).Text

        Next

    End If

    ' Seventh Selected Item
    If index = 6 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox13.Text = item.Text
            OpenModule.TextBox14.Text = item.SubItems(1).Text

        Next

    End If

    ' Eighth Selected Item
    If index = 7 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox15.Text = item.Text
            OpenModule.TextBox16.Text = item.SubItems(1).Text

        Next

    End If

    ' Ninth Selected Item
    If index = 8 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox17.Text = item.Text
            OpenModule.TextBox18.Text = item.SubItems(1).Text

        Next

    End If

    ' Tenth Selected Item
    If index = 9 Then

        For Each item As ListViewItem In ListView1.SelectedItems

            OpenModule.TextBox19.Text = item.Text
            OpenModule.TextBox20.Text = item.SubItems(1).Text

        Next

    End If

    ' Deselect Current Item
    ListView1.Items(index).Selected = False
Next