Передача свойств

[Drag]

Как можно передать все свойства из одного объекта в другой? Насколько я знаю, оператор Set делает объект ссылкой на свойства другого, т.е. в Set Obj = Obj2 если у Obj2 изменится какое-либо свойство, то оно изменится и у Obj. А мне нужно просто передача свойств с Obj2 на Obj, вот так:
Объект Station(4) Объект Station(5)
Массив ResType(3) <- Массив ResType(3)
Массив ResNumber(3) <- Массив ResNumber(3)
и т.д.

[GSerg]

Ну так ручками копируем каждое свойство...

[Drag]

Нашел. Вот так:
(Кстати, вторая строка наверняка лишняя)

Код: Выделить всё

    Set M(1) = M(6)
    Set M(6) = Nothing
    Set M(6) = New MOP

Где MOP - класс-модуль и

Код: Выделить всё

Dim M(6) as new MOP


А если MOP будет просто типом, объявленным в модуле, то еще проще:

Код: Выделить всё

M(1) = M(6)

[/code]

[GSerg]

Drag
В этом случае, надо точно формулировать вопрос. Потому что приведённый тобой ответ отвечает не на тот вопрос, который та задал.

[Drag]

Мдяя... всегда забываю писать "значения свойств". Default property...

[GSerg]

Ты не понял.
То, что попросил ты - создание клона. Чтобы существовало два одинаковых объекта. При этом ты (см. свой вопрос) особо оговорил, что присвоение ссылки тебе не нужно. Что тебе нужна копия.
Существует единственный способ сделать копию в VB6. Создать новый объект и вручную установить все свойства.

Приведённое тобой решение к твоему же вопросу отношения вообще не имеет. Это ответ на вопрос "Как переместить объект из одной переменной в другую". Это делается тем самым оператором set, неиспользование которого ты оговорил в вопросе.


Потому, учись задавать вопросы.
Потому что на этом форуме ты будешь получать ответы на то, что ты спросил, а не то, что тебе на самом деле было надо. И если то, что ты спросил, не будет совпадать с тем, что тебе надо, полезного ответа, соответственно, не получишь.

[Drag]

Ну, на форумах я не новичок, можешь поверить . Просто немного не то написал. Мне нужна была передача значений свойств от одного объекта другому. У меня в голове слово "свойство" ассоциируется с "значение свойства"

[Konst_One]

повеселил, однако
прочитай еще разок пост GSerg-а, он тебе объяснил разницу

[GSerg]

Угу.
И на случай дальнейших сомнений Drag на этот счёт - я тоже в данном случае не делаю никакой разницы между "свойство" и "значение свойства".