类的继承、封装 演示。 Dictionary 词典 的增强！

山中老人

在VBA 中 Scripting.Dictionary 词典 真是一个非常号的东西，我的程序很多地方都使用到它。
经常使用中感觉一些功能有欠缺，就自己封装了一个类DevelopDictionary，保留原有的所有功能，再添加了一些功能。
大家有什么好的想法，也可以提出来，我可以加进去。

1、添加了一些属性和方法：复制(克隆)、排序、定位、词典合并、与字符串的相互转换。
2、与原有的Scripting.Dictionary能良好的互换。
3、添加了【事件】触发与处理（默认关闭）


新增属性和方法：
'将内部词典复制出来
Public Function DicCopy(Optional ByVal CompareMode As VbCompareMethod = -999999) As Scripting.Dictionary


'克隆自己
Public Function Clone() As DevelopDictionary


’词典排序
Public Function Sort(Optional KeySort As Boolean = True, Optional DESC As Boolean = False) As Boolean
    'KeySort=True 按Key排序；KeySort=False 按Item排序
    'DESC=True 从大到小排序；DESC=False 从小到大排序



'向内部词典 追加一个词典全部项目
Public Function AddDic(Dic As Scripting.Dictionary) As Boolean


'分解字符串，添加为词典项目
Public Function StrSplit(ByVal Str As String, Optional ByVal RowDelimiter As String = ",", Optional ByVal KeyDelimiter As String = "=") As Boolean
    'RowDelimiter=行分解分割字符；KeyDelimiter=Key与Item分割字符

'词典项目，聚合成字符串
Public Function StrJoin(Optional ByVal RowDelimiter As String = ",", Optional ByVal KeyDelimiter As String = "=") As String
    'RowDelimiter=行分解分割字符；KeyDelimiter=Key与Item分割字符

'获取项目位置
Public Property Get Index(Key As Variant) As Long



补充内容 (2020-7-14 20:59):
Dictionary 词典增强，第二弹！ 2维字典
http://club.excelhome.net/thread-1547280-1-1.html


补充内容 (2020-7-17 20:39):
字典排序 优化！
http://club.excelhome.net/thread-1547696-1-1.html

Jefforry

感谢分享，是个好东西

风筝那根线

谢谢分享，如果有实例就好了

山中老人

风筝那根线 发表于 2020-7-11 21:06
谢谢分享，如果有实例就好了

不是有附件吗？ 你下载后，导入就好了！
代码没加密，你看原文就好了！  
可以全面替代原有词典。

yusihai719

这也太牛了，太棒了

microyip

这个必须支持的原创

风筝那根线

这句提示 ：用户定义类型未定义
Private Function toEventS(ByRef EventName As String, Optional ByRef Key As Variant = Null, Optional ByRef EventInfo As DevelopDictionary = Nothing, Optional ByRef PathDic As Scripting.Dictionary = Nothing) As Variant '事件调用方法

chis3

樓主強大
但可以寫文詳解就更好了

山中老人

风筝那根线 发表于 2020-7-13 09:52
这句提示 ：用户定义类型未定义
Private Function toEventS(ByRef EventName As String, Optional ByRef K ...

山中老人

chis3 发表于 2020-7-13 10:00
樓主強大
但可以寫文詳解就更好了

先了解一下原版的词典Scripting.Dictionary吧！

论坛里有大量的介绍。知识树中搜索【字典】。

你不了解它，就很难理解我的这个类！