VB中使用字典存储类对象

NODE类

Public pNext As NODE

Public pPrev As NODE

Public data As Single

字典对象调用

Private Sub CommandButton2_Click()
    Dim i As Integer
    i = 1
    Dim objDictionary
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set pHead = New NODE
    pHead.data = i + 1
    objDictionary.Add CStr(i), pHead
    MsgBox objDictionary.Item(CStr(i)).data

End Sub