VB中使用字典存储类对象

weixin_34281537

于 2017-12-25 21:33:00 发布

阅读量2.1k

点赞数

文章标签： python 数据库

原文链接：https://my.oschina.net/fenglinwansu/blog/1594795

版权

2019独角兽企业重金招聘Python工程师标准>>>

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

转载于:https://my.oschina.net/fenglinwansu/blog/1594795