checkbox的全选问题

apollokk · 发表于 2011-2-17 10:29

写了个类来为frame1里的25个checkbox设置了个click事件

通过"全选/取消"来选择frame1里面的25个checkbox,应该是change事件,为什么会触发类里的click?

现在的情况是:
通过"全选/取消"来选择frame1里的checkbox时"全选/取消"无法成选中状态,而且frame1里的第一个checkbox也成未选中了

不知道哪里原因?

2011-2-17 10-21-47.png

Book2.rar (79.03 KB, 下载次数: 107)

[ 本帖最后由 apollokk 于 2011-2-17 17:48 编辑 ]

SOUSUO · 发表于 2011-2-17 11:03

将类模块MyClass中的语句去除,就好了
'Private Sub chk_Click()
' 清除工作表内形状.chk_all.Value = False
'End Sub

apollokk · 发表于 2011-2-17 11:47

去除了是可以

不过当那25个checkbox没有全部选中的时候希望下面那个"全选/取消"的也不要选中应该怎么办?

SOUSUO · 发表于 2011-2-17 14:04

Click 事件,有两种情况触发
A,用鼠标单击控件。
B.用户最终在几种可能的值中为控件选择一个值
checkbox控件的Value值改变也会引发Click事件(属于B种情况)

在点击"全选/取消"时,会不断触发类中Click事件,而类中的Click事件中的.chk_all.Value = False使"全选/取消"无法为TRUE

apollokk · 发表于 2011-2-17 14:07

checkbox也有change事件，有没有办法区分click和change?

SOUSUO · 发表于 2011-2-17 14:11

MouseUp,不知道行不行

kongtou · 发表于 2011-2-17 14:21

Private Sub UserForm_Initialize()
For Each chkbox In Me.Frame1.Controls
      Set mychk = New MyClass
      Set mychk.chk = chkbox
      co.Add mychk
Next
Set mychk = Nothing
End Sub

把这个去掉就行了

wxhnr · 发表于 2011-2-17 15:12

CheckBox1.Value = True 会触发CheckBox1的Click和Change事件。

apollokk · 发表于 2011-2-17 15:23

我想做一个checkbox来控制一组checkbox，同时当那一组checkbox状态改变时那个控制的也改变（就是当一组checkbox非全选时，控制用的checkbox不要选中，单击控件用的checkbox时那一组的状态与控制用的checkbox要相同）

怎么做才可以？

wxhnr · 发表于 2011-2-17 15:41

要加一个全局变量判断是人为点击了“全选”还是程序触发了“全选”的Click

		自动登录	找回密码
密码			免费注册

[已解决] checkbox的全选问题

回复 2楼 SOUSUO 的帖子

回复 8楼 wxhnr 的帖子