类模块与任意窗体中多复选框的运用

一指禅62

类模块与多复选框，代码简洁

类的方法解决问题.rar (23.94 KB, 下载次数: 318)

2017-12-28 12:31 上传

点击文件名下载附件

一指禅62

类模块代码

1. Option Explicit
   
2. Private WithEvents Ufr As MSForms.UserForm
   
3. Private WithEvents Chk As MSForms.CheckBox
   
4. Private WithEvents Chk1 As MSForms.CheckBox     '标签Caption="全选"的那一个
   
5. 
   
6. 
   
7. Public Sub Attech(f As MSForms.UserForm, c As MSForms.CheckBox)
   
8.     Set Ufr = f
   
9.     If c.Caption = "全选" Then
   
10.         Set Chk1 = c
    
11.         xName = c.Name
    
12.     Else
    
13.         Set Chk = c
    
14.     End If
    
15. End Sub
    
16. 
    
17. Private Sub Chk_Click()
    
18.     Dim ctl As Control, Flag As Boolean
    
19.     If Chk.Tag <> "" Then Exit Sub  '用Tag属性设置一个阻止信息
    
20.     Flag = True
    
21.     For Each ctl In Ufr.Controls
    
22.         If TypeName(ctl) = "CheckBox" And ctl.Value = False And ctl.Caption <> "全选" Then
    
23.             Flag = False: Exit For
    
24.         End If
    
25.     Next
    
26.     Ufr.Controls(xName).Value = Flag
    
27. End Sub
    
28. 
    
29. Private Sub Chk1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
30.     Rem 这里不用【Chk1_Click】事件
    
31.     Dim ctl As Control, Flag As Boolean
    
32.     Flag = Chk1.Value
    
33.     For Each ctl In Ufr.Controls
    
34.         If TypeName(ctl) = "CheckBox" And ctl.Caption <> "全选" Then
    
35.             ctl.Tag = "xx"   '用Tag属性设置一个阻止信息
    
36.             ctl.Value = Not Chk1.Value '与鼠标按下之前的值相反
    
37.             ctl.Tag = ""
    
38.         End If
    
39.     Next
    
40. End Sub

复制代码

一指禅62

控件的 MouseMove 事件运用.zip (15.02 KB, 下载次数: 161)

2018-1-2 10:49 上传

点击文件名下载附件

aman1516

谢谢分享，很强大

yunfei2018

一指禅62 发表于 2018-1-2 10:49

不错，支持下。

提点建议，在工作表中，建立两个CommandButton按钮，分别命名为：PR  WH

根据对应Caption的值或对应的名称，如何响应对应的宏。

比如：点击PR，响应：宏1，点击WH，响应：宏2

如何修改类模块实现呢？请指点，谢谢！

注意：工作表中，不放任何代码，所有代码在模块中！              附件： 控件的 MouseMove 事件运用.zip (16.47 KB, 下载次数: 39)

2018-1-3 00:13 上传

点击文件名下载附件

....

一指禅62

yunfei2018 发表于 2018-1-3 00:15
不错，支持下。

提点建议，在工作表中，建立两个CommandButton按钮，分别命名为：PR  WH

控件的 MouseMove 事件运用.rar (22.39 KB, 下载次数: 121)

2018-1-4 17:27 上传

点击文件名下载附件

yunfei2018

一指禅62 发表于 2018-1-4 17:27

感谢！是想要的效果！
学习了！

一指禅62

yunfei2018 发表于 2018-1-4 18:24
感谢！是想要的效果！
学习了！

我也要感谢您，是您督促我又学习提高了一点点。这是我的老师：http://club.excelhome.net/thread-1123992-1-1.html

吴狄

每次看你帖子，总学会点什么。

一指禅62

吴狄 发表于 2018-1-5 08:34
每次看你帖子，总学会点什么。

谢谢夸奖。