关于listview中checkbox的问题!!

keyman55 2005-10-31 10:50:29
想让程序代码来决定哪一个listItem 被选中,而不能让鼠标点击有效选中或不选中!谢谢指教!
...全文
109 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
winehero 2005-10-31
  • 打赏
  • 举报
回复
Option Explicit
Dim m_bItemChecked As Boolean '判定是否触发ItemCheck事件

Private Sub Command1_Click()
ListView1.ListItems(1).Checked = True '让程序代码来决定第一个listItem 被选中
End Sub

Private Sub Form_Load()
With ListView1
.LabelEdit = lvwManual
.Checkboxes = True
.ListItems.Add , , "a"
.ListItems.Add , , "b"
.ListItems.Add , , "c"
End With
End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
m_bItemChecked = True
End Sub

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim xItem As ListItem
Set xItem = ListView1.HitTest(x, y)
If xItem Is Nothing Then Exit Sub

If m_bItemChecked Then xItem.Checked = Not xItem.Checked '如果触发过Check事件
'就让Checked值变回去
m_bItemChecked = False
End Sub

7,759

社区成员

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

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