Тема: Глюк с Collection и Item -- помогите разобраться
Посоветуйте, пожалуйста, что мне надо сделать, чтобы программа перестала вылетать.
Есть дерево, каждая вершина которого (класс CAnyObj) содержит 3 элемента:
Public node_name As String
Public its_ac_objects As New Collection
Public subclasses As New Collection 'daughter nodes
есть объекты этого класса:
Public all_objects As New CAnyObj 'root vertex of tree
Dim parent_node As New CAnyObj
Dim new_node As CAnyObj
Есть такой кусок кода, на последней строчке которого прога вылетает со словами "Object doesn'suppot this property or method" :
Set new_node = New CAnyObj
new_node.node_name = "ByObjType"
all_objects.subclasses.Add new_node
Set parent_node = all_objects.subclasses(1) 'ERROR!!!!
Тем не менее, такой кусок кода работает:
stmp = Empty
For Each tmp In all_objects.subclasses
stmp = stmp & tmp.node_name & ", "
Next
MsgBox "Node names at this level: " & stmp
Если сделать доступ к элементам по ключу, то прога вылетает в той же строчке с ошибкой "Object reqired".
Итак, есть 2 вопроса:
1) почему не срабатывает доступ к элементам по индексу, а по ключу - срабатывает?
2) почему Бейсик не может сделать присваивание для объектов одного типа?
Спасибо большо всем добрым людям, которые попытаются мне помочь.
