怎样代码实现listview按住ctrl的效果？并且点击item即可选中checkbox

Question

就是想实现在一行任意一处点击即可选中或取消复选框的对勾，并且有对勾的行始终高亮。

Answer 1

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.Checkboxes = True
For I = 1 To 6
ListView1.ColumnHeaders.Add , , "第" & I & "列"
Next
For I = 1 To 5
ListView1.ListItems.Add , , I
For j = 1 To 6
ListView1.ListItems(I).ListSubItems.Add , , I & j
Next
Next
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If Item.Checked = True ThenItem.Checked = False
Else
Item.Checked = True
End IfEnd Sub