选定的Listview项/子项到文本框 [英] Selected Listview item/subitem to textbox

问题描述

大家好

我想知道如何做到这一点，以便当用户单击列表视图项时，其所有子项都输出到文本框.我现在拥有的代码有效，但仅适用于特定的listview项目，如何使它按用户选择的项目显示.

我知道我必须使用for循环.，但是仍然不确定.

Hi Everyone

I was wondering how can i make it so when a user clicks on a listview item all its subitems are output to a textbox. The code i have now works but only work for a particlar listview item, how can i make it so displays by the item the user chooses.

I know i have to uses a for loop.,.but still abit unsure.

With Me.ListView1
    For i As Integer = 0 To .SelectedItems.Count - 1
        Dim myString As String = ListView1.Items(i).SubItems(0).Text
        Dim myString1 As String = ListView1.Items(i).SubItems(1).Text
        Dim myString2 As String = ListView1.Items(i).SubItems(2).Text
        Dim myString3 As String = ListView1.Items(i).SubItems(3).Text
        Dim myString4 As String = ListView1.Items(i).SubItems(4).Text
        Dim myString5 As String = ListView1.Items(i).SubItems(5).Text
        txtsummary1.Text = myString1
        txtsummary2.Text = myString2
        txtsummary3.Text = myString3
        txtsummary4.Text = myString4
        txtsummary5.Text = myString5
    Next i
End With

any help would be great

推荐答案

首先，我将Multi Select设置为false....

Firstly I set the Multi Select to false....

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
       With Me.ListView1
           Dim i As Integer
            For Each item As ListViewItem In ListView1.SelectedItems
               i = item.Index
           Next

           Dim innercounter As Integer = 0
           For Each subItem As ListViewItem.ListViewSubItem In ListView1.Items(i).SubItems
               Dim myString As String = ListView1.Items(i).SubItems(innercounter).Text
               Select Case innercounter
                   Case 1
                       TextBox1.Text = myString
                   Case 2
                       TextBox2.Text = myString
                   Case 3
                       TextBox3.Text = myString
                   Case 4
                       TextBox4.Text = myString
                   Case 5
                       TextBox5.Text = myString
               End Select
               innercounter += 1
           Next
       End With
   End Sub

这篇关于选定的Listview项/子项到文本框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！