Collection and User Define Types

[mixa]

Продолжаем осваивать Basic. А они нас обижают.  
 
Есть у меня такое в Module1:

Код:

Option Explicit

Public Type MyType
    num As Integer
    name As String
End Type

Public MyColl As New Collection

Public Sub MySub()
    Dim MyVar As MyType
   
    MyVar.num = 1
    MyVar.name = "text"
    
    MyColl.Add MyVar
End Sub

На строчке MyColl.Add MyVar ругается каким-то маловразумительным сообщением. Жалко, а ведь так хорошо начиналось. Не надо этих бесконечных массивов с redim-ами.

[Антон (LogRus)]

mixa, напиши пожалусто строчку, которой этот негодяй посмел наезжать на тебя.

[HandKot]

"Объект Collection хранит каждый свой элемент в вариантной переменной. Следовательно, в него можно добавлять тоже, что можно хранить в вариантной переменной. А в ней можно хранить стандартные типы данных, объекты и массивы. ОПРЕДЕЛЯЕМЫЕ ПОЛЬЗОВАТЕЛЕМ типы в вариантных переменных не хранятся."

Если брать конкретный пример, то можно сделать так

Option Explicit

Public Type MyType
    num As Integer
    name As String
End Type

Public MyColl As New Collection

Public Sub MySub()
    Dim MyVar As MyType
   
    MyVar.num = 1
    MyVar.name = "text"
   
    MyColl.Add MyVar.name, CStr(MyVar.num)
End Sub

Надо только следить за уникальностью ключа