[silverlight]

الكود التالي يوضح لك بعضا من الأفكار في كيفية كتابة الكلاس بشكل بسيط

PHP كود :

Public Class AliClass
    Implements ICloneable

    Public Property Text As String

    Public Function Clone() As Object Implements ICloneable.Clone
        Return Me.CreateDeepCopy(CreateShallowCopy())
    End Function

    Friend Function CreateDeepCopy(current As AliClass) As AliClass
        Return current
    End Function

    Friend Function CreateShallowCopy() As AliClass
        Return CType(Me.MemberwiseClone(), AliClass)
    End Function

End Class 


الإستخدام

هناك أساليب كثيرة لإستخدام الكلاس الان
و الكود التالي يوضح بعضا منها

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim c1 As New AliClass
        c1.Text = "Any Name"

        'Dim c2 As AliClass = c1
        'Me.Text = c2.Text

        Dim c2 As AliClass = Nothing
        If TypeOf c1 Is ICloneable Then
            c2 = CType((CType(c1, ICloneable)).Clone(), AliClass)

        End If

        Me.Text = c2.Text

        ' or
        c2.Text = ""
        Dim c3 As AliClass = c2.Clone
        Me.Text = c3.Text

    End Sub
End Class