【类模块】的超级属性，无限扩展，值和对象通用！类的继承封装演示

jhegzwjb2016 · 发表于 2022-4-19 22:14

山中老人发表于 2020-7-6 20:28
可以无限向里面添加属性或者对象！
例如：

大牛，将努力向您学习！

鬼不火 · 发表于 2022-10-25 19:04

不知道大佬还在不在，我现在用类还不熟练，仅停留在初级阶段，用用几个属性就差不多了
我现在看你这帖子里这么多繁杂的代码还很难理解，但是单就怎么给一个类添加一个字典属性这件事情特别感兴趣，想知道通过哪几步可以实现这个事情？可以麻烦大佬提炼一下代码吗

905738810 · 发表于 2022-10-26 16:17

山中老人发表于 2020-7-6 20:28
可以无限向里面添加属性或者对象！
例如：

感觉这跟直接用字典有什么区别？

905738810 · 发表于 2022-10-26 16:40

鬼不火发表于 2022-10-25 19:04
不知道大佬还在不在，我现在用类还不熟练，仅停留在初级阶段，用用几个属性就差不多了
我现在看你这帖子里 ...

'简化代码楼主代码，提取出封装字典代码
'Class 类代码内容，新建一个类模块取名DevelopDictionary，复制到类模块里
Private Dic_ As Scripting.Dictionary '内部变量，用来存储字典
'类被创建时自动调用
Private Sub Class_Initialize() '类初始化
Set Dic_ = New Scripting.Dictionary
End Sub
'类被注销时自动调用
Private Sub Class_Terminate()
Set Dic_ = Nothing
End Sub
'数量
Public Property Get Count() As Long
Count = Dic_.Count
End Property
'检查key是否存在
Public Function Exists(Key As Variant) As Boolean
Exists = Dic_.Exists(Key)
End Function
'读取Item时会调用，如：v = d.Item(key)
Public Property Get Item(Key As Variant) As Variant
If IsObject(Dic_.Item(Key)) Then
Set Item = Dic_.Item(Key)
Else
Item = Dic_.Item(Key)
End If
End Property
'Set赋值Item时调用，如：Set d.Item(key) = New Scripting.Dictionary
Public Property Set Item(Key As Variant, RHS As Variant)
Set Dic_.Item(Key) = RHS
End Property
'赋值Item时会调用，如：d.Item(key) = 1
Public Property Let Item(Key As Variant, RHS As Variant)
Dic_.Item(Key) = RHS
End Property
'移除一个key
Public Function Remove(Key As Variant) As Boolean
Dic_.Remove Key
End Function

复制代码

上面是类代码，下面是测试代码在模块中测试。

Sub test()
Dim d As New DevelopDictionary
d.Item("key") = 123
Debug.Print d.Item("key")
Debug.Print d.Count
Debug.Print d.Exists("key")
d.Remove ("key")
End Sub

复制代码

简化了大部分楼主的代码，作为你能看懂的Demo。
去掉了Implements接口，去掉了自定义事件，只保留了封装字典代码

山中老人 · 发表于 2022-10-30 08:22

鬼不火发表于 2022-10-25 19:04
不知道大佬还在不在，我现在用类还不熟练，仅停留在初级阶段，用用几个属性就差不多了
我现在看你这帖子里 ...

需求，才是学习的动力。
你现在还没有相应的需求，所以不容易看懂！
等你有了相关需要，再来看看，就好懂了！............

你现在只需要知道，在VBA下有一种办法：可以让【自编类】，获得【随意增加属性、事件】的能力。就好了！

山中老人 · 发表于 2022-10-30 08:34

905738810 发表于 2022-10-26 16:17
感觉这跟直接用字典有什么区别？

这个DevelopDictionary是作为【自编类】的一个万能插槽，方便【自编类】在后期（实例化后）追加各种属性。
与【自编类】加个字典，最大的区别：可以通过通用事件接口 toEventS，为追加属性提供事件触发和返回。
（通过实例名_EventS(Source As DevelopDictionary, EventInfo As DevelopDictionary, ReturnVal As Variant) ,来识别处理事件。）

yayawu_2008 · 发表于 2022-12-29 11:20

好东西，对正在学习类模块的我很有帮助，谢谢山中老人。

xq4u · 发表于 2023-1-3 19:20

虽然现在还看不懂，但是感觉很牛笔的样子，赞一个

东亚五金 · 发表于 2023-1-4 12:25

太深奥了,只有好好学习了

山中老人 · 发表于 2023-1-5 08:21

我是在学JavaScript的时候触发的灵感，JavaScript 中任何变量、方法都可以随便加属性，非常自由....

就像这样：
Dim A As Long
A.姓名="张三"
A.身高=192
........

		自动登录	找回密码
密码			免费注册

[分享] 【类模块】的超级属性，无限扩展，值和对象 通用！ 类的继承封装演示

[分享] 【类模块】的超级属性，无限扩展，值和对象通用！类的继承封装演示