vb Listview 有没有类似text属性能调出里面的输入

Public Sub SortListView(ByVal lvw As MSComctlLib.ListView, ByVal colHdr As MSComctlLib.ColumnHeader)

lvw.SortKey = colHdr.Index - 1

lvw.Sorted = True



lvw.SortOrder = 1 Xor lvw.SortOrder

End Sub



Private Sub lvwMyListView_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

SortListView lvwMyListView, ColumnHeader

End Sub



Private Sub Form_Load()

 Dim i As Integer

 Dim Itm As ListItem

 lvwMyListView.View = lvwReport

  Dim j As Integer

    For j = 1 To 20

        lvwMyListView.ColumnHeaders.Add j, "a" & j, "第" & j & "列"

        Next

          For i = 1 To 100

           Set Itm = lvwMyListView.ListItems.Add(i, "a" & i, "第" & i & "行")

            Next

For i = 1 To 100

For j = 1 To 20

lvwMyListView.ListItems(i).ListSubItems.Add j, , i

Next

Next

End Sub



Private Sub lvwMyListView_ItemClick(ByVal Item As MSComctlLib.ListItem)

Debug.Print Item.Text

For i = 1 To Item.ListSubItems.Count

Debug.Print Item.ListSubItems(i).Text

Next



End Sub