实施 scripting.dictionary 项

Question

我正在尝试创建一个继承 Scripting.Dictionnary 的 class 来创建具有类型限制键和项的哈希表。

我遇到的问题是我没有找到任何关于如何实现它的文档，而且我有一条错误消息告诉我必须将 Item 实现到接口字典。

这是我的原型 class :

Option Explicit
Implements Dictionary

Public Sub Add(nom As String, jour As Date, temps As Integer)
    Supplier.Add nom, Array(jour, temps)
End Sub

Public Property Get Item(Key As String) As Array
    Item = Supplier.Item(Key)
End Property

Public Property Set Item(Key As String, jour As Date, temps As Integer)
    Set Supplier.Item(Key) = Array(jour, temps)
End Property

我应该如何实施 Item 才能使其发挥作用？这是实现我想要的目标的好方法吗？

Answer 1

您将需要实施您正在实施的所有 functions/properties。

大概是这样

Option Explicit

Private d As Scripting.Dictionary

Implements Scripting.Dictionary

Public Sub Class_Initialize()
    Set d = New Scripting.Dictionary
End Sub

Public Property Set Dictionary_Item(Key As Variant, RHS As Variant)
    Set d.Item(Key) = RHS
End Property

Public Property Let Dictionary_Item(Key As Variant, RHS As Variant)
    d.Item(Key) = RHS
End Property

Public Property Get Dictionary_Item(Key As Variant) As Variant

End Property

Public Sub Dictionary_Add(Key As Variant, Item As Variant)

End Sub

Public Property Let Dictionary_CompareMode(ByVal RHS As Scripting.CompareMethod)

End Property

Public Property Get Dictionary_CompareMode() As Scripting.CompareMethod

End Property

Public Property Get Dictionary_Count() As Long

End Property

Public Function Dictionary_Exists(Key As Variant) As Boolean

End Function

Public Property Get Dictionary_HashVal(Key As Variant) As Variant

End Property

Public Function Dictionary_Items() As Variant

End Function

Public Property Let Dictionary_Key(Key As Variant, RHS As Variant)

End Property

Public Function Dictionary_Keys() As Variant

End Function

Public Sub Dictionary_Remove(Key As Variant)

End Sub

Public Sub Dictionary_RemoveAll()

End Sub

Answer 2

您声明的目标是实现强类型字典。为了实现这个目标，我不会实现接口。相反，我会将 Dictionary 包装在 class 中，并通过使用另一个 class:

来实现强类型化

供应商Class

Option Explicit

Private Supplier As Dictionary

Private Sub Class_Initialize()
   Set Supplier = New Dictionary
End Sub

Public Sub Add(Key As String, Item As SupplierItem)
   Supplier.Add Key, Item
End Sub

Public Property Get Item(Key As String) As SupplierItem
   Set Item = Supplier.Item(Key)
End Property

Public Property Set Item(Key As String, Value As SupplierItem)
   Set Supplier.Item(Key) = Value
End Property

SupplierItem Class

Option Explicit

Public jour As Date
Public temps As Integer

测试逻辑

Option Explicit

Public Sub Test()
   Dim s As Supplier
   Dim si As SupplierItem
   
   Set s = New Supplier
   
   Set si = New SupplierItem
   si.jour = Now
   si.temps = 3
   s.Add "Key1", si
   Debug.Print s.Item("Key1").temps
   
   Set si = New SupplierItem
   si.jour = Now
   si.temps = 4
   Set s.Item("Key1") = si
   Debug.Print s.Item("Key1").temps
End Sub

实施 scripting.dictionary 项

Implement scripting.dictionary item

excel

vba

windows-scripting