VBA/Corel Draw/Ошибка при использовании Collection
Создал два простых модуля класса:
1. Коллекция (самая обыкновенная) - тип объекта - это есть второй класс. Добавлено только одно свойство через "Public".
2. "ShapeData" - содержит всего три строки - объявление трех переменных - свойств уровня Public. Одна из переменных типа Shape, хотя думаю это не важно...
Теперь инициализирую коллекцию, создаю shape (Set n = ThisDocument.ActiveLayer.CreateEllipse) и добавляю в коллекцию - все нормально, в модуле коллекции в локальной переменной появляется элемент, свойства нормальные, читабельные. Когда выходит из модуля - при попытке прочитать свойства, или даже установить указатель на элемент коллекции (типа ShapeData) вылетает ошибка 438: Object doesn't support this property or method/Объект не поддерживает это свойство или метод.
Мне уже просто страшно грустно, потому как перепробовал все что мог... Копировал из VB6 модули классов созданных с помощью утилитки VB Class builder. Хотя она тоже глючная...
Менял текст программы... Потихоньку начинаю сходить с ума..:eek: Помогите чем сможете... Всем откликнувшимся спасибо заранее...
1. Коллекция (самая обыкновенная) - тип объекта - это есть второй класс. Добавлено только одно свойство через "Public".
2. "ShapeData" - содержит всего три строки - объявление трех переменных - свойств уровня Public. Одна из переменных типа Shape, хотя думаю это не важно...
Теперь инициализирую коллекцию, создаю shape (Set n = ThisDocument.ActiveLayer.CreateEllipse) и добавляю в коллекцию - все нормально, в модуле коллекции в локальной переменной появляется элемент, свойства нормальные, читабельные. Когда выходит из модуля - при попытке прочитать свойства, или даже установить указатель на элемент коллекции (типа ShapeData) вылетает ошибка 438: Object doesn't support this property or method/Объект не поддерживает это свойство или метод.
Мне уже просто страшно грустно, потому как перепробовал все что мог... Копировал из VB6 модули классов созданных с помощью утилитки VB Class builder. Хотя она тоже глючная...
Менял текст программы... Потихоньку начинаю сходить с ума..:eek: Помогите чем сможете... Всем откликнувшимся спасибо заранее...
Немного кода не помешало бы...
Сам вопрос задал, сам на него и отвечу... :))))
Решение как и сама проблема оказалось тривиальным: Collection, при добавлении в него дополнительного свойства (а может просто при переносе в модуль класса - не проверял) теряет свойство по умолчанию, и необходимо прописывать не только индекс элемента но и своство .item(N)... вот такая вот история....
А код здесь собственно и уже не нужен - кстати я написал, что коллекция самая обыкновенная, а второй класс просто набор переменных... Но все равно большое спасибо за внимание...
Решение как и сама проблема оказалось тривиальным: Collection, при добавлении в него дополнительного свойства (а может просто при переносе в модуль класса - не проверял) теряет свойство по умолчанию, и необходимо прописывать не только индекс элемента но и своство .item(N)... вот такая вот история....
А код здесь собственно и уже не нужен - кстати я написал, что коллекция самая обыкновенная, а второй класс просто набор переменных... Но все равно большое спасибо за внимание...