Конференция VBStreets

**jangle** » 12.07.2007 (Чт) 11:30

Хочу добавлять в коллекцию, другие коллекции. Вот такой код не компилится, может есть другой путь?

Код: Выделить всё: Option Explicit Private Type ТестовоеЗадание ТекстЗадания As String Дистракторы As New Collection Диалог As String End Type Private КоллекцияЗаданий As New Collection Private Sub Command1_Click() Dim Т3 As ТестовоеЗадание Т3.ТекстЗадания = "Сколько колес у телеги?" Т3.Дистракторы.Add "Два", "dist1" Т3.Дистракторы.Add "Три", "dist2" Т3.Дистракторы.Add "Четыре", "dist3" Т3.Дистракторы.Add "Пять", "dist4" Т3.Диалог = "Диалог1" КоллекцияЗаданий.Add Т3 End Sub

**GSerg** » 12.07.2007 (Чт) 12:29

Вот ведь позорно-то...
Поищи по первым словам текста ошибки, а?

И при чём здесь только вложенные коллекции, ума не приложу...

**jangle** » 12.07.2007 (Чт) 12:50

Вот ведь позорно-то...
Поищи по первым словам текста ошибки, а?

А чего позорно-то? Искал уже, если бы нашел ответ вопрос бы не задавал

И при чём здесь только вложенные коллекции, ума не приложу...

Мне только они и нужны.

**GSerg** » 12.07.2007 (Чт) 13:12

**alibek** » 12.07.2007 (Чт) 13:19

jangle, ТестовоеЗадание должно быть классом, а не типом.

**jangle** » 12.07.2007 (Чт) 13:49

ТестовоеЗадание должно быть классом, а не типом

А теперь наконец понял! Спасибо

**jangle** » 12.07.2007 (Чт) 15:59

И еще вопрос, можно ли как-нибудь сериализовать на диск, содержимое всей коллекции объектов, например в бинарный файл?
По моему, если тупо сохранять построчно, на больших объемах данных будут тормоза.

**tyomitch** » 12.07.2007 (Чт) 16:06

Нельзя сериализовать.

Конференция VBStreets

Как реализовать вложенные коллекции?

Как реализовать вложенные коллекции?

Кто сейчас на конференции