请问如何在listview列表内读取一整行的数据。谢谢

[cqsad]

请问：如何在listview列表内读取鼠标选定的一行内的全部数据。
小弟初学。最好能给个例子。谢谢各位了！

[cqsad]

msgbox lvList.SelectedItem.SubItems(2)
这是在窗口中显示值
我想直接把这个值付给一个变量。怎么弄。谢谢！

[cqsad]

谢谢啊锋。已经搞定了！

[cqsad]

怎么结帖啊？

[smalle]

Dim itmX As ListItem

With lvList
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "H1"
.ColumnHeaders.Add , , "H2"
.ColumnHeaders.Add , , "H3"

Set itmX = .ListItems.Add(, , "A")
itmX.SubItems(1) = "A1"
itmX.SubItems(2) = "A2"

msgbox lvList.SelectedItem.text
msgbox itmX.SubItems(1)
msgbox itmX.SubItems(2)
End With

[smalle]

上面的写错了，这样写

Private Sub Form_Load()
Dim itmX As ListItem

With lvList
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "H1"
.ColumnHeaders.Add , , "H2"
.ColumnHeaders.Add , , "H3"

Set itmX = .ListItems.Add(, , "A")
itmX.SubItems(1) = "A1"
itmX.SubItems(2) = "A2"
End With
End Sub

按钮事件处理函数中
With lvList
msgbox lvList.SelectedItem.text
msgbox lvList.SelectedItem.SubItems(1)
msgbox lvList.SelectedItem.SubItems(2)
End With