Public Class MaClass ' Private _Membre1 As String Private _Membre2 As Integer ' Public Property Membre1 As String Get Return _Membre1 End Get Set(ByVal value As String) _Membre1 = value End Set End Property Public Property Membre2 As Integer Get Return _Membre2 End Get Set(ByVal value As Integer) _Membre2 = value End Set End Property Public Function Clone() As MaClass Return MemberwiseClone() End Function End Class
Dim Instance1 As New MaClass With Instance1 .Membre1 = "Tata" .Membre2 = 89 End With Dim Instance2 As MaClass = Instance1.clone With Instance2 .Membre1 = "Toto" End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question