网上搜到的程序,你试试看,可以把单击事件改成选中事件Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Set Me.ListView1.DropHighlight = Item
End Sub
另一种作法是:
在ListView1属性窗口里设置HideSelection为false
选择不连续单元的时候
我加了选中事件
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Item.Checked = Not Item.Checked
listCnt = listCnt + IIf(Item.Checked, 1, -1)
End Sub