请教：VBA 自定义 类 如何设置【默认方法】和【默认属性】？？

山中老人

像ADO 中有不少类都有默认的方法！
请教如何设置【默认方法】和【默认属性】？？

小fisher

在VB6.0中创建类模块，用“工具”-“默认属性”对话框中设置默认属性和方法，然后导出为.cls文件再导入到vba中就可以了
如果在VB6.0设置类的Text（string类型）属性为默认属性，用记事本打开导出的.cls文件可以看到这样的代码：
Property Get Text() As String
Attribute Text.VB_UserMemId = 0

End Property
所以如果没有安装vb6.0，那么将vba中创建的类导出为.cls文件，然后在其中加入上面一行代码再导入回VBA中也是可以的

山中老人

小fisher 发表于 2015-12-1 09:03
在VB6.0中创建类模块，用“工具”-“默认属性”对话框中设置默认属性和方法，然后导出为.cls文件再导入到vb ...

非常感谢！
默认方法，怎么设置呢？

小fisher

在VB6中，先将光标移到属性代码中，然后点“工具”-“过程属性”，在弹出的对话框中点“高级”，从“过程标识符”中选择“（缺省）”，然后确定

山中老人

小fisher 发表于 2015-12-1 10:12
在VB6中，先将光标移到属性代码中，然后点“工具”-“过程属性”，在弹出的对话框中点“高级”，从“过程标 ...

呵呵！ 谢谢！

我的电脑没有安装 VB6.0

请问：修改CLS文件设置【默认方法】的方法！
谢谢！

设置【默认属性】我已经成功了！ 非常感谢！！

山中老人

哦！ 笨了！
原来 不能同时设置【默认方法】和【默认属性】。
将“Attribute Text.VB_UserMemId = 0”   复制到方法中，就是【默认方法】
将“Attribute Text.VB_UserMemId = 0”   复制到属性中，就是【默认属性】

谢谢！@小fisher 老师！