一个listview控件有5列，我想删除其中的第2和第4列（包括lv的Head和Item），怎么实现啊？

Question

如题，我都急死了

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    With ListView1.ColumnHeaders
        .Remove 4
        .Remove 2
    End With
End SubPrivate Sub Form_Load()
    Dim i As Long
    Dim j As Long
    Dim LI As ListItem
    
    With ListView1
    .View = lvwReport
    For i = 1 To 8
        .ColumnHeaders.Add , , "Col" & i
    Next
    For i = 1 To 4
        Set LI = .ListItems.Add(, , "Cell(" & i & ",1" & ")")
        For j = 2 To 8
            LI.ListSubItems.Add , , "Cell(" & i & "," & j & ")"
        Next
        Set LI = Nothing
    Next
    End With
End Sub我没理解错吧

Answer 2

ListView1.ColumnHeaders.Remove 2
ListView1.ColumnHeaders.Remove 4