关于vb listbox复选框事件

当我点击listbox复选框好像就触发了List1_Click(),List1_MouseDown等事件,而我在这些事件中另外用任务,我要在点击listbox复选框不执行... 当我点击listbox复选框好像就触发了List1_Click(),List1_MouseDown等
事件,而我在这些事件中另外用任务,我要在点击listbox复选框不执行这些事件。
也就是说,我想在点击listbox上的项目执行我要做的任务,而点击复选框时不执行我的任务,因为我的任务是放在上面的事件中,如何分开。点击listbox上(非复选框区)执行我的任务,点击复选框不执行我的任务。
如何区别开。请写出代码来,要详细。谢谢
展开
 我来答
慢慢变富55
2009-05-17 · 超过33用户采纳过TA的回答
知道答主
回答量:100
采纳率:0%
帮助的人:103万
展开全部
这样吧:

Option Explicit

Dim eList1_ItemCheck As Boolean

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
List1.AddItem CStr(i)
Next i
End Sub

Private Sub List1_Click()
Debug.Print "List1_Click"

If eList1_ItemCheck = False Then

Debug.Print "执行任务过程"
End If
End Sub

Private Sub List1_ItemCheck(Item As Integer)
eList1_ItemCheck = True

Debug.Print "List1_ItemCheck: " & List1.List(Item)
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
eList1_ItemCheck = False
Debug.Print "List1_MouseDown"
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
梦归三清
2009-05-17 · TA获得超过1381个赞
知道小有建树答主
回答量:307
采纳率:0%
帮助的人:243万
展开全部
Private Sub List1_Click() '单击 项目行时触发 (非复选框区)

End Sub

Private Sub List1_ItemCheck(Item As Integer) '单击 那个复选框区域时触发

End Sub

另外 如果双击项目行 也会触发ItemCheck
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
哀从筠D9
2009-05-17 · 超过50用户采纳过TA的回答
知道答主
回答量:145
采纳率:0%
帮助的人:129万
展开全部
这两个是一个选择,根本就不能分开的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式