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

jhegzwjb2016

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

大牛，将努力向您学习！

鬼不火

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

905738810

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

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

905738810

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

1. '简化代码楼主代码，提取出封装字典代码
   
2. 'Class 类代码内容，新建一个类模块取名DevelopDictionary，复制到类模块里
   
3. 
   
4. Private Dic_ As Scripting.Dictionary '内部变量，用来存储字典
   
5. 
   
6. '类被创建时自动调用
   
7. Private Sub Class_Initialize() '类初始化
   
8.     Set Dic_ = New Scripting.Dictionary
   
9. End Sub
   
10. 
    
11. '类被注销时自动调用
    
12. Private Sub Class_Terminate()
    
13.      Set Dic_ = Nothing
    
14. End Sub
    
15. 
    
16. '数量
    
17. Public Property Get Count() As Long
    
18.     Count = Dic_.Count
    
19. End Property
    
20. 
    
21. '检查key是否存在
    
22. Public Function Exists(Key As Variant) As Boolean
    
23.     Exists = Dic_.Exists(Key)
    
24. End Function
    
25. 
    
26. '读取Item时会调用，如：v = d.Item(key)
    
27. Public Property Get Item(Key As Variant) As Variant
    
28.     If IsObject(Dic_.Item(Key)) Then
    
29.         Set Item = Dic_.Item(Key)
    
30.     Else
    
31.         Item = Dic_.Item(Key)
    
32.     End If
    
33. End Property
    
34. 
    
35. 'Set赋值Item时调用，如：Set d.Item(key) = New Scripting.Dictionary
    
36. Public Property Set Item(Key As Variant, RHS As Variant)
    
37.     Set Dic_.Item(Key) = RHS
    
38. End Property
    
39. 
    
40. '赋值Item时会调用，如：d.Item(key) = 1
    
41. Public Property Let Item(Key As Variant, RHS As Variant)
    
42.     Dic_.Item(Key) = RHS
    
43. End Property
    
44. 
    
45. '移除一个key
    
46. Public Function Remove(Key As Variant) As Boolean
    
47.     Dic_.Remove Key
    
48. End Function
    
49. 
    

复制代码

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

1. Sub test()
   
2.     Dim d As New DevelopDictionary
   
3.     d.Item("key") = 123
   
4.     Debug.Print d.Item("key")
   
5.     Debug.Print d.Count
   
6.     Debug.Print d.Exists("key")
   
7.     d.Remove ("key")
   
8. End Sub
   

复制代码

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

山中老人

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

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

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

山中老人

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

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

yayawu_2008

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

xq4u

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

东亚五金

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

山中老人

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

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