在线等 ListView问题

Question

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
For i = 1 To Data.Files.CountText1.Text = ListView1.SelectedItem
Text2.Text = ListView1.ListItems(1).SubItems(1)
Text3.Text = ListView1.ListItems(1).SubItems(2)
Text4.Text = ListView1.ListItems(1).SubItems(3)
Next
End Sub
帮忙看下那里错了啊，我想每次单击listview的时候text都显示相关信息，可这样只能显示第一行的信息，点第2行的时候text2，3，4都不变化了，还是显示的第一行的

Answer 1

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Dim Index As Integer
  Dim i As Long
  For i = 1 To ListView1.ListItems.Count 
    With Text1
      Text1(0).Text = ListView1.ListItems(i).Text
      Text1(1).Text = ListView1.ListItems.Item(i).SubItems(1)
      Text1(2).Text = ListView1.ListItems.Item(i).SubItems(2)
      Text1(3).Text = ListView1.ListItems.Item(i).SubItems(3)
    End With
  Next
End Sub

Answer 2

Private Sub ListView1_Click()
  
    With Text1
      Text1(0).Text = listview1.SelectedItem.Text
      Text1(1).Text = listview1.SelectedItem.SubItems(1)
      Text1(2).Text = listview1.SelectedItem.SubItems(2)
      Text1(3).Text = listview1.SelectedItem.SubItems(3)
    End With
 End Sub