Помогите плз с кодом

[Valery]

Недавно перешел с Vb6 на Vb.Net и сейчас столкнулся с проблемой - для вас может пустяк - а я прям никак не найду что делать - в интернете не нашел, а книжка только одна... и там нет таких деталей...

В общем вот проблема:

создаем новый класс:

Public Class Sample
Dim _Name As String
Public Property Name() As String
Get
Name = _Name
End Get
Set(ByVal Value As String)
_Name = Value
End Set
End Property
End Class

в коде формы создаем Sub

Public Sub TestSample()
Dim A As New Sample()
Dim B As New Sample()
A = B
A.Name = "wow"
B.Name = "test"
MsgBox(A.Name)
End Sub

и в общем эта зараза понятное дело выведет мне "test"
Проблема в том что мне надо из B скопировать Properties в A, но чтобы при этом A и B не указывали на одни и те же данные в памяти... если вы поняли...
то есть заменить A=B на что-то другое - но на что - я не знаю подскажите плз

[gaidar]

Для таких вещей надо использовать конструктор копирования, вот пример:

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

Public Class Sample
    Private _Name As String
    Public Sub New()

    End Sub
    Public Sub New(ByVal copyObject As Sample)
        Me._Name = copyObject.Name
    End Sub

    Public Property Name() As String
        Get
            Name = _Name
        End Get
        Set(ByVal Value As String)
            _Name = Value
        End Set
    End Property
End Class

Тогда сделав так:

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

        Dim A As New Sample
        A.Name = "wow"
        Dim B As New Sample(A)
        A.Name = "test"
        MsgBox(B.Name)

Увидишь, что все ок. Т.е. надо просто копировать нужные свойства в конструкторе (одном из).

[gaidar]

Либо добавить метод для копирования в сам объект.

[Valery]

А я сначала как увидел код - подумал зачем там два sub new
только потом понял - когда не вставил в код

Public Sub New()

End Sub

В общем все работает, огромное спасибо (а то у меня программа чуть ли не два дня стояла - хотелось по человечески сделать а не по кривому - но не знал как)

Одним словом работа пошла

[Sebas]

Либо добавить метод для копирования в сам объект.

public interface ICloneable
Member of System

Summary:
Supports cloning, which creates a new instance of a class with the same value as an existing instance.

[gaidar]

Я предложил стандартный вариант из теории ООП.

[Valery]

Public Class Sample
Implements ICloneable
Public Overridable Overloads Function Clone() As Object Implements ICloneable.Clone
Return Me
End Function

Что-то наверно не так я сделал - потому что получается та же проблема что и в начале...
А вот что не так?