关于ListView 的属性及方法

Question

在listView中选中一条记录后,怎样取出该记录的各个域值?

Answer 1

第一列：    lsw.SelectedItem.Text = ""
第二列：    lsw.SelectedItem.SubItems(1) = ""
.
.
.

Answer 2

Private Sub mnuDetail_Click()
  Dim mItem As ListItem
  
  Set mItem = ListView1.SelectedItem
  If mItem Is Nothing Then
     strMsg = MsgBox("請您選擇一個記錄!", vbExclamation, "ListenEZ")
     Exit Sub
  End If
  
    msgbox mItem.text
    msgbox mItem.SubItems(1)
    msgbox mItem.SubItems(2)      
  Set mItem = Nothing
End Sub

Answer 3

也可以用
lsw.SelectedItem.ListSubItems
速度更快,而且可以为各子项目设置更多的属性

Answer 4

lsw.SelectedItem.ListSubItems
速度更快,而且可以为各子项目设置更多的属性用这种方法好，