双击vb的listview的每一行就获取这一行的数据

Question

双击vb的listview的每一行就获取这一行的数据，
代码怎么写 ，可否给点提示
谢谢

Answer 1

Listview1.SelectedItem.Index可获得当前选中行的索引
用下面代码试试看：
Dim i As Integer
i = ListView1.SelectedItem.Index
MsgBox ListView1.ListItems.Item(i).Text
MsgBox ListView1.ListItems.Item(i).SubItems(1)
MsgBox ListView1.ListItems.Item(i).SubItems(2)

Answer 2

to:  sysdzw 
   谢谢你的方法，我成功解决了我的问题，我下次给你追加分，谢谢咯！~~~

Answer 3

现在献上我的代码 ，
Private Sub proList_DblClick()
On Error Resume Next   Dim i  As Integer
   
   mingxiFrm.Visible = True
   For i = 0 To proList.SelectedItem.index
     idlab.Caption = proList.ListItems(i).Text
     catidlab.Caption = proList.ListItems(i).SubItems(1)
     namelab.Caption = proList.ListItems(i).SubItems(3)
     barcodelab.Caption = proList.ListItems(i).SubItems(2)
     typelab.Caption = proList.ListItems(i).SubItems(4)
     pricelab.Caption = proList.ListItems(i).SubItems(5)
     pointlab.Caption = proList.ListItems(i).SubItems(6)
     discountlab.Caption = proList.ListItems(i).SubItems(7)
     datelab.Caption = proList.ListItems(i).SubItems(8)
Next
End Sub

Answer 4

为什么要用循环呢？反正数据最后显示的还是被选中的那行，前面的都没有用啊！     idlab.Caption = proList.SelectedItem.Text
     catidlab.Caption = proList.SelectedItem.SubItems(1)
     namelab.Caption = proList.SelectedItem.SubItems(3)
     barcodelab.Caption = proList.SelectedItem.SubItems(2)
     typelab.Caption = proList.SelectedItem.SubItems(4)
     pricelab.Caption = proList.SelectedItem.SubItems(5)
     pointlab.Caption = proList.SelectedItem.SubItems(6)
     discountlab.Caption = proList.SelectedItem.SubItems(7)
     datelab.Caption = proList.SelectedItem.SubItems(8)