VBA高级教程之字典篇，使用类模块实现字典一对多应用

gzxxw

学习了,谢谢！发现自己要学的东西太多了!

ione_fox

item 是类实例化后的对象，这是为什么不能 dic(ke)=item 的原因

chis3

我來拜讀了,最近都在看知識樹的類帖
確實在書中學到都是基礎東西,很多東西卻是在eh學的,這裡真好

chis3

liucqa 发表于 2014-2-24 13:19
Sub gsass()
    Dim a As New Dictionary
    a.Add UserForm1.ListBox1, ""

老師
請問為什麼要這樣轉型?
有什麼必要情況?

初学者+新手

楼主好，新手提问。
我在模块里。代码如下：
Public BookName As String
Public TotalNum As Integer
Public InPutTime As Date
Public BorrowedTime As Date
Public ReturnTime As Date
Public CanBeBorrowed As Boolean
Public ShouldReturnTime As Date
Public OrderNum As String

Private data(1 To 8)

Public Sub RedimData()

data(1) = OrderNum
data(2) = BookName
data(3) = InPutTime
data(4) = TotalNum
data(5) = CanBeBorrowed
data(6) = BorrowedTime
data(7) = ShouldReturnTime
data(8) = BorrowedTime
End Sub

Public Sub InputData(ByVal i As Long, ByVal str As String)
data(i) = str
End Sub

Public Sub ReInputData()

OrderNum = data(1)
BookName = data(2)
InPutTime = data(3)
TotalNum = data(4)
CanBeBorrowed = data(5)
BorrowedTime = data(6)
ShouldReturnTime = data(7)
BorrowedTime = data(8)
End Sub

后边这个 ReInputData() 不能执行 。
请问怎么办啊？

msboxing

顶一下，学习了

用心修炼

这个思路确实一般水平想不到，厉害啊版主

松叶落

一直不知道这个类模块干啥的，看了这个帖子恍然大悟，哈哈，这不就是php的class吗，感谢感谢

pattonzhai

刚刚学会字典，发现还有很多需要扩展的

大冬瓜730

liucqa 发表于 2013-11-3 22:47
什么是实例化？

简单，通俗、易懂！