《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。
类，是非常抽象的，更具研究的价值。随着我们学习、应用VBA的深入，有必要理解这些抽象的理论知识。对象，类，过程，方法，属性，事件，接口，接口如何实现等等。掌握了这些理论，不仅对于VBA这种寄生语言的实质有所深入的理解，也对自然界的很多事物将同样有所感悟。目前，这套教程程序文件已经通过32位，64位两种office系统测试。
这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA中类的解读及应用第十三讲:限制复选选择，窗体模块的搭建
【分享成果，随喜正能量】专注地做一件事，做到极致，胜过敷衍地做很多事。不求多，但求精，不求散，但求专。每个人的时间和精力都是有限的，专注于某个领域，沉得住气，静得下心，充分发挥自己的潜能，持续深耕，才能有所作为。。
第十三讲 限制复选选择（中）
大家好,我们今日继续讲解类与类模块的知识,今日讲解限制复选选择第二部分,在上讲中,我们讲了这个问题类模块的构建,我们在类模块中搭建了一个mytadi的类，在这个类中，我们声明了两个相应类事件的对象，一个是xuanzhe类对象，一个是yemian 的类事件。同时在类中，我们还给出了xuanzhe类对象所响应的事件。
3 窗体模块的搭建
我们这讲讲解如何把窗体的对象关联到声明了的响应类事件的对象.如果仅仅是WithEvents声明了响应类事件的对象，不做关联，真的没有任何意义。只有关联到了窗体对象，那么才可以在代码中让这些窗体对象步调一致，听从指挥。
我们先搭建一个窗体，上面有5个选择按钮，分别为OptionButton1到OptionButton5，这5个选择的CAPTION对应ABCDE,同时按钮对应5个选择项目，在窗体的最下边增加一个重置的按钮，在选择错误的时候，可以重置。
我们看窗体的代码：
Dim kuang() As New mydati
Private Sub CommandButton1_Click()
For i = 1 To 5
Controls("OptionButton" & i).Value = False
Controls("OptionButton" & i).Enabled = True
Next
End Sub
Private Sub UserForm_Initialize()
For Each myctl In Me.Controls
If TypeName(myctl) = "OptionButton" Then
m = m + 1
ReDim Preserve kuang(1 To m) '创建一个新的mydati类对象
Set kuang(m).xuanzhe = myctl '设置新类和OptionButton(i)控件创建关联
Set kuang(m).yemian = Me '类窗体也和当前窗体建立关联
End If
Next
End Sub
代码截图：
4 窗体模块代码的讲解
1） 上述代码首先声明一个类：Dim kuang() As New mydati，这个类是我们在类模块中已经命名了的，就是将类mydati 实例化为kuang().此处是一个动态数组。
2） Private Sub UserForm_Initialize()
For Each myctl In Me.Controls
If TypeName(myctl) = "OptionButton" Then
m = m + 1
ReDim Preserve kuang(1 To m) '创建一个新的mydati类对象
Set kuang(m).xuanzhe = myctl '设置新类和OptionButton(i)控件创建关键
Set kuang(m).yemian = Me '类窗体也和当前窗体建立关联
End If
Next
End Sub
上述代码是窗体的构建函数，在窗体的构建过程中，对每一个控件进行遍历，如果是OptionButton类型的控件，那么我们就将这个控件和新类相关联。我们主要的目的是让类对象来响应事件。
3） 对于重置按钮，但按下时会响应事件
For i = 1 To 5
Controls("OptionButton" & i).Value = False
Controls("OptionButton" & i).Enabled = True
Next
也就是说将每个OptionButton处于待选择状态。
为了能执行答题的界面，我们还要在公用模块中写入下面的代码，让答题时弹出答题界面.
今日内容回向：
1 类模块的构建函数中做了什么工作？
2 如何把控件和类事件的声明对象相关联？
（待续）
本讲内容参考程序文件：VBA-CLASS（1-28）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
