Создание нового объекта

[GLEB]

Может быть этот вопрос уже много раз задавался, но просто нет времени искать. Заранее извиняюся еси это так.

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


Dim C1 as New MyClass
Dim C2 as New MyClass

Sub SetC2C1
   Set C2 = C1
End Sub

Используя вот это, передается только ссылка на объект С1.
А как создать новый объект С2 независимый от С1 и присвоить ему все содержимое С1, разумеется не прибегая к поэлементному присваиванию.

[GSerg]

Разумеется прибегая.
А ты как думал?

[GLEB]

А если в классе куча свойств и подклассов
Это только в VB так или во всех языках

[tyomitch]

За все языки не скажу, но, например в Жаве так же.

[GSerg]

Разумеется, у многих готовых объектов можно лицезреть метод Clone(). Но угадай, что у него внутри?

[GLEB]

Понятно.

[GLEB]

Разумеется прибегая.
А ты как думал?

А если внутри класса переменные Private, как к ним обратиться?

[tyomitch]

подсказка:

Разумеется, у многих готовых объектов можно лицезреть метод Clone(). Но угадай, что у него внутри?

[Oxygen]

Насколько я знаю, это уже называется инкапсуляция. И делается для защиты данных. Не знаю точно, но скорее всего, никак. Если, что поправьте меня.

[GLEB]

Не понял.
Допустим:
MyClass.cls

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

  Public   A as integer
  Private B as integer

  Public Sub Clone(c as MyClass)
    c.A = A
    ' Ну а как B передать?

  End sub

[Oxygen]

А зачем ее передавать? Обычно переменные в классах ставятся, как Private для "внутреннего пользования". По крайней мере я так обычно делаю. Да, и в книжке Страуструпа так написано. Хотя она и по С++, но принципиальной разницы в этом нету. Там классы, просто очень хорошо описаны.

[GLEB]

Ну а как еще создать идентичный объект?
Мне как раз и надо передать все переменные как Public так и Private.

[alibek]

У тебя какие-то явные проблемы с логикой.
Во-первых, абсолютную копию объекта создать невозможно в принципе.
И кроме того, зачем копировать Private-переменные?
Для всяких служебных целей можно юзать Friend-процедуры (Friend Sub Set_Var_B(Value_B)).

[GLEB]

Ну допустим такая ситуация.
MyClass.cls

Private Model as MyModel

Sub LoadModel(file as string)
Model...
End Sub

Sub Draw()
Model...
End Sub

Все действия с переменной Model производятся внутри класса.

Может я чего-то недопонимаю, напишите кто знает метод Clone() для данного класса.

[Oxygen]

А если в классе куча свойств и подклассов
Это только в VB так или во всех языках

На этот вопрос ответ тебе находится в прикрепленном файле. Правда, это только относится, к C++. Если внимательно прочитаешь, то разберешься, может быть.

[GLEB]

Oxygen
Спасибо, почитаю на досуге.

[CodeName33]

Можно написать процедуру для копирования Public свойств любого класса. Но с сабклассами будет сложнее. Если есть способ создать New объект имея имя класса в переменной String то можно создать универсальную функцию, для копирования с сабклассами.

В Reference надо подгрузить TLBINF32.DLL

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

Private Sub CopyClass(ByRef Source As Object, ByRef Destination As Object)
Dim TLI As New TLIApplication
Dim TI As TypeInfo, i As Long, iMAX As Long, V As Variant, j As Long

Set TI = TLI.InterfaceInfoFromObject(Source)

iMAX = TI.Members.Count
For i = 1 To iMAX
    If TI.Members(i).Parameters.Count = 0 And TI.Members(i).InvokeKind = INVOKE_PROPERTYGET Then
        On Error Resume Next
        V = CallByName(Source, TI.Members(i).Name, INVOKE_PROPERTYGET)
        Call CallByName(Destination, TI.Members(i).Name, INVOKE_PROPERTYPUT, V)
        On Error GoTo 0
    End If
Next
End Sub

[GSerg]

CodeName33, ты таки не в теме...

[CodeName33]

GSerg, я частично ответил на изначальный вопрос. Может пригодится...

[GSerg]

Видишь ли...
Если ты владелец класса, то создать копию гораздо проще прямым присваиванием всех мемберов. Потому что ты владелец, и ты имеешь доступ к friend и private.
Если же ты не владелец, то создать полную копию класса в общем случае невозможно в принципе. Никак. Вообще.

[CodeName33]

Ну если класс имеет только public member'ы и таких классов много и лениво к каждому писать функцию копирования и в дальнейшем менять её при изменении/добавлении member'ов - то можно использовать универсальную...

[GSerg]

Вот тебе класс. Полный код оного. Самый, самый простейший случай.

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

Option Explicit

Private mValue As Double

Private Sub Class_Initialize()
  mValue = Rnd * 1000
End Sub

Public Property Get Value() As Double
  Value = mValue
End Property

Укажи способ создания его полной копии.

[CodeName33]

GSerg, такого - не укажу. Но ведь классы бывают разные. Бывают случаи когда классы используются вместо типов (т.к. типы нельзя передавать в public функции форм и т.д.). Вот для таких классав и пожходит мой метод.