巧妙解决！类的构造函数不能传参问题

905738810

用过VBA类模块的都知道类模块里有`Private Sub Class_Initialize()`构造函数
这个函数在New类后，会自动调用，可以用来配置一些默认值，如下：

上面是一个简单地VBA字符串处理类，在模块代码中使用`Set s = New UStr`语句后，会自动调用`Class_Initialize`函数初始化`strs`变量赋值为""空

---

而在高级语言中构造函数是可以传参的，如下：

上面的`Class_Initialize`函数加了`s`参数接收一个字符串，在初始化时就会将变量`s`赋值给变量`strs`，而不是直接赋值""空
在模块代码中使用`Set s = New UStr( "abcd" )`语句后，可以将字符串"abcd"传给`Class_Initialize`函数

---

很不幸的是VBA不支持这种写法，VBA的`Class_Initialize`函数不能带参数，必须按照图1写法。
VBA在模块中`Set s = New UStr( "abcd" )`语句只能拆分成两句`Set s = New UStr :  s.Str = "abcd"`
这样看起来很不友好。下面就开始解决这个问题。

---

第一步、在模块中写一个函数`New_Class_Initialize`

1. Function New_Class_Initialize(s As String) As UStr
   
2.     Set New_Class_Initialize = New UStr
   
3.     New_Class_Initialize.Str = s
   
4. End Function

复制代码

这样在创建UStr类是可以直接调用这个函数，如下图会方便很多：

---

第二步、将`New_Class_Initialize`封装到类模块里
1）将代码`New_Class_Initialize`函数代码复制到UStr类模块里
2）导出UStr类模块文件(在工程资源管理器模块出右键单机鼠标)，导出后点移除UStr删除这个类


3）用记事本打开导出的文件，会看到`Attribute VB_PredeclaredId = False`这一行，将False改为True

4）将文件重新导入回Excel文件中。
5）此时这个UStr类变成了一个静态类，意思就是说可以模块中不需要New直接使用UStr方法(类似窗体的UserForm1，可以在模块直接`UserForm1.属性`)
此时在模块中`New UStr`可以这样写，这样就不需要在模块里单独写一个创建函数了。

---

第三步、在第二步中基本已经实现了方法，但是看起来不够高级
1）还是导出UStr类模块文件，将文件用记事本打开
2）找到`Function New_Class_Initialize(s As String) As UStr`位置
3）在`New_Class_Initialize`函数的第一行写入`Attribute New_Class_Initialize.VB_UserMemId = 0`

4）将文件重新导入回Excel文件中。
5）此时这个UStr类里的`New_Class_Initialize`函数会变成默认函数（类似Range().Value直接写Range()也默认加了.Value）
6）在模块里`Set s = UStr.New_Class_Initialize("abcd")`可以简写这样写`Set s = UStr("abcd")`

---

第四部、到此就完成了，鲜花、技术分刷起来，哈哈哈
参考附件： 构造函数传参.rar (13.56 KB, 下载次数: 21)

2022-10-27 12:27 上传

点击文件名下载附件

905738810

挽救一下。。。

ykcbf1100

类不懂啊，啥时抽时间恶补一下。

zpy2

Set s = UStr.New_Class_Initialize("abcd")`
Set s2 = UStr.New_Class_Initialize("efg")`

其他语言 不同实例 可以共享 静态类 的公共变量，'这种用函数 实例化 一个类 还是比较有特色的。

实际上，把这个 直接封装成 一个 全局函数 更有 静态类的味道。

wodewan

当初发现有人用这个方法写了个Lambda函数时，特激动，还特地在帖子下写了个试用报告，
谁知道下面的大侠说，20年前就这么玩了，直接无语。。。。。。

https://club.excelhome.net/thread-1615549-1-1.html

xkzb

留个记号，学习一下，谢谢各位老师

905738810

wodewan 发表于 2022-10-27 20:17
当初发现有人用这个方法写了个Lambda函数时，特激动，还特地在帖子下写了个试用报告，
谁知道下面的 ...

那个楼主的帖子和我的很相似，他是做到了我的第二步。
默认属性，静态类确实很常见比如UserForm1窗体，Sheet1，字典，Range都有影子
我是学字典那会发现`d(key)=value`这种写法很神奇，然后就去搜索
在国内这样的介绍不多，还是在国外网站发现的。Attribute 属性有很多不过最实用的还是这两个。