»ллюстрированный самоучитель по VB.NET




ICloneable - часть 2


ICloneable Private m_Ma() As String

Public Sub New(ByVal anArray() As String)

m_Data = anArray

End Sub

Public Function Clone() As Object Implements

ICloneable.Clone

Dim temp()As String

temp = m_Data.Clone '  лонировать массив

Return New EmbeddedObjects(temp)

End Function

Public Sub DisplayData()

Dim temp As String

For Each temp In m_Data

Console.WriteLine(temp)

Next End

Sub Public

Sub ChangeDataCByVal

newData As String)

m_Data(0) = newData

End Sub

End Class

—писок классов .NET Framework, реализующих интерфейс Ўопеаџе (а следовательно, поддерживающих метод Clone), приведен в описании интерфейса Ўопеаџе в электронной документации.




—одержание  Ќазад  ¬перед