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

[Daniel_Cn]

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

[帝企鹅已被占用]

有哇
ListItems(0).Text

[luofenghen]

有的 ListView1.ListItems(i).Item(i)

[vansoft]

第一列可以，后面的就不行了。
需要用一个TEXTBOX移到你点击的位置。

[SYSSZ]

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

[SYSSZ]

上面代码输出一行.当然你也可只输出其中一格.