vba在列表视图中选择值并在文本框中显示

Question

我想显示第三列而不是第一列的值。请告知whan改变是必需的。

Dim blnFoundFirstItem As Boolean 
blnFoundFirstItem = False 
Dim i As Integer 
For i = 1 To ListView16.ListItems.Count 
    If (ListView16.ListItems(i).Selected) Then 
     If (Not blnFoundFirstItem) Then 
      TextBox118.Text = ListView16.ListItems(i).Text 
      blnFoundFirstItem = True 
     Else 
      TextBox118.Text = ListView16.ListItems(i).Text 
     End If 
    End If 
Next i 

Answer 1

使用ListSubItems()：

Dim blnFoundFirstItem As Boolean 
blnFoundFirstItem = False 
Dim i As Integer 
For i = 1 To ListView16.ListItems.Count 
    If (ListView16.ListItems(i).Selected) Then 
     If (Not blnFoundFirstItem) Then 
      TextBox118.Text = ListView16.ListItems(i).ListSubItems(3).Text 
      blnFoundFirstItem = True 
     Else 
      TextBox118.Text = ListView16.ListItems(i).ListSubItems(3).Text 
     End If 
    End If 
Next i