
关于vb listbox复选框事件
当我点击listbox复选框好像就触发了List1_Click(),List1_MouseDown等事件,而我在这些事件中另外用任务,我要在点击listbox复选框不执行...
当我点击listbox复选框好像就触发了List1_Click(),List1_MouseDown等
事件,而我在这些事件中另外用任务,我要在点击listbox复选框不执行这些事件。
也就是说,我想在点击listbox上的项目执行我要做的任务,而点击复选框时不执行我的任务,因为我的任务是放在上面的事件中,如何分开。点击listbox上(非复选框区)执行我的任务,点击复选框不执行我的任务。
如何区别开。请写出代码来,要详细。谢谢 展开
事件,而我在这些事件中另外用任务,我要在点击listbox复选框不执行这些事件。
也就是说,我想在点击listbox上的项目执行我要做的任务,而点击复选框时不执行我的任务,因为我的任务是放在上面的事件中,如何分开。点击listbox上(非复选框区)执行我的任务,点击复选框不执行我的任务。
如何区别开。请写出代码来,要详细。谢谢 展开
3个回答
展开全部
这样吧:
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub List1_Click() '单击 项目行时触发 (非复选框区)
End Sub
Private Sub List1_ItemCheck(Item As Integer) '单击 那个复选框区域时触发
End Sub
另外 如果双击项目行 也会触发ItemCheck
End Sub
Private Sub List1_ItemCheck(Item As Integer) '单击 那个复选框区域时触发
End Sub
另外 如果双击项目行 也会触发ItemCheck
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这两个是一个选择,根本就不能分开的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询