VBA 字典作为类的属性

使用 VBA 字典作为类的属性

' 定义一个类
Class MyClass
    ' 声明一个字典作为类的属性
    Private dict As New Dictionary
    
    ' 添加一个方法，用于向字典中添加键值对
    Public Sub AddItem(key As Variant, value As Variant)
        dict.Add key, value
    End Sub
    
    ' 添加一个方法，用于从字典中删除指定的键
    Public Sub RemoveItem(key As Variant)
        dict.Remove key
    End Sub
    
    ' 添加一个方法，用于获取字典中指定键对应的值
    Public Function GetItem(key As Variant) As Variant
        GetItem = dict(key)
    End Function
End Class
' 使用类
Sub Test()
    ' 创建一个类的实例
    Dim myObject As New MyClass
    
    ' 向字典中添加键值对
    myObject.AddItem "Name", "John"
    myObject.AddItem "Age", 25
    
    ' 获取字典中指定键对应的值
    Dim name As String
    name = myObject.GetItem("Name")
    MsgBox "Name: " & name
    
    ' 从字典中删除指定的键
    myObject.RemoveItem "Age"
End Sub