在模块里面发现一段代码怎么也理解不了，而且不知道怎么搜，求助。

chicken301

阅读代码的时候，有一些地方不明白，关键是都不知道怎么搜索。只能求助了。

在模块1里面有如下代码：

Option Explicit
Dim cls() As New 类1


Sub 控件初始化(f As UserForm)
    Dim ctl As Control, n%
    For Each ctl In f.Controls
        If TypeName(ctl) = "CheckBox" Then
            n = n + 1: ReDim Preserve cls(1 To n)
            cls(n).Attech f, ctl
        End If
    Next
End Sub


我想问的是：1.控件初始化(f As UserForm)这个括号里面的内容和控件初始化是什么关系啊？目前我看到的代码就是类似sub 控件初始化()这种，括号里面的内容代表着什么呢？

2.Dim ctl As Control, n%，这里的n%是什么意思？

3.cls(n).Attech f, ctl：这句是要对数组做什么？什么鬼？

4.Dim cls() As New 类1：这行的意思是不是把数组cls()定义为类1？类1是一组行为还是一个行为？或者类1是一组事件还是一个事件？糊涂了。。。

望高人解答。

蓝桥玄霜

类的概念属于VBA中比较高难一些的问题，不建议初学者去钻研这方面的问题。学习有个逐步提高的过程，从小学-中学-大学。
对完全没有VBA基础的人解释代码，就如同一个老师要教一个小学生学高等数学，你知道的会有多难教。

chicken301

蓝桥玄霜 发表于 2020-1-22 11:04
类的概念属于VBA中比较高难一些的问题，不建议初学者去钻研这方面的问题。学习有个逐步提高的过程，从小学- ...

说说吧，我是天才，需要点拨一下，按照你的思路随便解答几句即可，不用长篇。另外我目前想在程序中实现的功能只能通过类的方式来解决，其他没有方法解决了。

yxbaju

看看类1封装了哪些数据还有哪些对数据进行计算的方法

zpy2

chicken301 发表于 2020-1-22 11:32
说说吧，我是天才，需要点拨一下，按照你的思路随便解答几句即可，不用长篇。另外我目前想在程序中实现的 ...

不用类，你会附加事件吗？如何附加的，对比一下，就理解了。另外，百度一下吧，问题需要一个一个解决

chicken301

zpy2 发表于 2020-1-22 12:09
不用类，你会附加事件吗？如何附加的，对比一下，就理解了。另外，百度一下吧，问题需要一个一个解决

这个我已经提问过了，另外我已经实现了，就是在学类模的时候遇到上面那段代码有几个地方理解不了。搜索引擎已经利用的透透的了，我一般能搜出来的绝对懒得问，一楼的代码是我搜索到的基本上能够理解的差不多的代码了，所以只能提问了。
这是我之前发的贴：http://club.excelhome.net/thread-1516824-1-1.html

zpy2

帮你百度一下 n% 问题，其他还是百度吧