求助：这个ListBox1_Click()事件代码如何写？

求助：这个ListBox1_Click()事件代码如何写？

如图，要求在取消对Listbox之任一Item的选择后，“全部选择”Checkbox也连带被取消选择

T8QKQlr9.rar (8.74 KB, 下载次数: 66)

如果ListBox1_Change()如下写法：

Private Sub ListBox1_Change()

Cnt = ListBox1.ListCount - 1 j = 0 For i = 0 To Cnt If ListBox1.Selected(i) = True Then j = j + 1 End If Next i If j = ListBox1.ListCount Then CheckBox1 = True Else CheckBox1 = False End If

End Sub

下面的写法与ListBox1_Change()写法冲突，不起作用了：

Private Sub CheckBox1_change() If CheckBox1 Then Cnt = ListBox1.ListCount - 1 For i = 0 To Cnt ListBox1.Selected(i) = True Next i Else Cnt = ListBox1.ListCount - 1 For i = 0 To Cnt ListBox1.Selected(i) = False Next i End If End Sub

CheckBox1_change()如何写呢？

to button:

套用上述代码后好像还是无法达成，不知就里。请见附件：

UhTvQCwP.rar (7.43 KB, 下载次数: 43)

2005-2-3 10:14 上传

点击文件名下载附件

To Button:

代码通过！再谢！

对不起忘记上传窗体初始化代码了

Private Sub UserForm_Initialize() ChkClick = True

Cnt = Worksheets.Count For i = 1 To Cnt Me.ListBox1.AddItem Sheets(i).Name Next i End Sub

实现的例子：

qAipZK8Q.rar (11.84 KB, 下载次数: 221)

研究发现CheckBox1改变值会激发CheckBox1_Click()事件，而ListBox1改变状态也会激发ListBox1_Change()事件，这是一个很麻烦的问题。通过设置变量来取消事件的执行是解决上述问题的关键。理解有限，望大家探讨一下。

这是实现的代码，请参考。

Dim Cnt As Integer, i As Integer Dim ChkClick As Boolean Dim lstChange As Boolean Dim Chkval As Boolean

Private Sub CheckBox1_Click() If ChkClick Then lstChange = False For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = CheckBox1.Value Next i lstChange = True End If End Sub

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Cnt = ListBox1.ListCount - 1 If lstChange Then If CheckBox1.Value = False Then For i = 0 To Cnt If ListBox1.Selected(i) = False Then Exit For Else If i = Cnt Then ChkClick = False CheckBox1.Value = True ChkClick = True End If End If Next i Else If ListBox1.Selected(ListBox1.ListIndex) = False Then ChkClick = False CheckBox1.Value = False ChkClick = True End If End If End If End Sub