If LvwQuery.ListItems.Count > 0 Then
For fori = 1 To LvwQuery.ListItems.Count
LvwQuery.ListItems(fori).Checked = True
Next
End If
想要效果:全选后,所以的条目变成像鼠标选的一样,变成蓝色
现在的效果:显示没有一点反应,但其实是全选了的
...全文
1586打赏收藏
ListView全选问题
If LvwQuery.ListItems.Count > 0 Then For fori = 1 To LvwQuery.ListItems.Count LvwQuery.ListItems(fori).Checked = True Next End If 想要效果:全选后,所以的条目变成像鼠标选的一样,变成蓝色 现在的效果:显示没有一点反应,但其实是全选了的
If LvwQuery.ListItems.Count > 0 Then
For fori = 1 To LvwQuery.ListItems.Count
LvwQuery.ListItems(fori).Checked = True
lvwquery.ListItems.Item(fori).Selected = True
Next
LvwQuery.SetFocus
End If