很简单的问题，可我不会，麻烦各位大侠看看，送分!!!!!!!!!

Question

MsgBox ListView1.ListItems(1).Checked

Answer 1

Dim i As Integer
    Dim buf As String
    Dim j As Integer
    
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Checked Then
            buf = ListView1.ListItems(i).Text
            For j = 1 To ListView1.ListItems(i).ListSubItems.Count
                buf2 = ListView1.ListItems(i).ListSubItems(j).Text
                ...记录
            Next j
            
        End If
    Next

Answer 2

TO： gump2000(阿甘) 
可以了，谢谢！不过我还想问问：
       For j = 1 To ListView1.ListItems(i).ListSubItems.Count
        buf2 = ListView1.ListItems(i).ListSubItems(j).Text
       ...记录       用来干吗的？我发现buf2的值总是空的

Answer 3

是用来检测选中的list项所包含的子项。来晚了。