如何使用带checkbox的listview?急！！！

Question

如何得到checkbox的值。如何选中一项。最好给出例程。

Answer 1

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
MsgBox Item.Text
End Sub

Answer 2

如何选中一项?
Private Sub ListView1_Click()
Dim SValue As String
If ListView1.ListItems.Count = 0 Then Exit Sub
SValue = ListView1.SelectedItem.Text
MsgBox SValue
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
MsgBox Item.Text
End Sub

Answer 3

还可以在双击中处理
Private Sub listview1_DblClick()
    MsgBox ListView1.SelectedItem.Text & vbCrLf _
            & ListView1.SelectedItem.SubItems(1) & vbCrLf _
            & ListView1.SelectedItem.SubItems(2)
End Sub
'又另整行选取设置
'ListView1.FullRowSelect = True

Answer 4

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
        Debug.Print Item.Text
End Sub