ListView全选问题

skyhh 2005-03-24 05:10:35
If LvwQuery.ListItems.Count > 0 Then
For fori = 1 To LvwQuery.ListItems.Count
LvwQuery.ListItems(fori).Checked = True
Next
End If

想要效果:全选后,所以的条目变成像鼠标选的一样,变成蓝色

现在的效果:显示没有一点反应,但其实是全选了的
...全文
158 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
skyhh 2005-03-27
  • 打赏
  • 举报
回复
tangzong(泉韵星魂):谢谢
东方冉 2005-03-25
  • 打赏
  • 举报
回复
这样试一下,让lvwQuery重新获得焦点。

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
skyhh 2005-03-25
  • 打赏
  • 举报
回复
那就没有办法变成蓝色了吗!
东方冉 2005-03-25
  • 打赏
  • 举报
回复
一种办法是把LvwQuery的HideSelection属性设置成False

这时会有全选的效果,不过不是蓝色的,而是灰色的。
skyhh 2005-03-25
  • 打赏
  • 举报
回复
不行呀,还有什么好的办法没有!
饮水需思源 2005-03-24
  • 打赏
  • 举报
回复
'这样试试:
For fori = 1 To LvwQuery.ListItems.Count
LvwQuery.ListItems(fori).Checked = True
lvwquery.ListItems.Item(fori).Selected = True
Next

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧