Need shallow copy of a class

[hoseinbf]

Hello everybody

I have defined a class and I have declared 'a' and 'b' to be new instances of this class.
I want to shallow copy (NOT DEEP COPY) 'a' into 'b'.
As I know, in shallow copy just the values (not the references) are copied so you can change 'a' without affecting 'b'

what is the related command?
THNX A LOT

[Frinavale]

You could just implement a Copy(ByVal myClassInstance As MyClass) method. You could even make this a Static err...Shared method.

For example:

Public Class MyClass
  Public Property A As String
  Public Property B As Integer
 
  Public Sub New()
  End Sub
 
  Public Sub New(ByVal a As String, ByVal b As Integer)
    Me.A = a
    Me.B = b
  End Sub
 
  Public Sub New(ByVal otherClass As MyClass)
    Me.A = otherClass.A
    Me.B = otherClass.B
  End Sub
 
  Public Shared Function CopyOption1(ByVal instanceToCopy As MyClass) As MyClass
    Dim copiedInstance As MyClass
    copiedInstance.A = instanceToCopy.A
    copiedInstance.B = instanceToCopy.B
  End Sub
 
  Public Shared Function CopyOption2(ByVal instanceToCopy As MyClass) As MyClass
    return new MyClass(nstanceToCopy)
  End Sub
 

[!NoItAll]

Add implements ICloneable interface inside your class.

It's very simple to do and even creates a stub for you to complete.

Inside then just copy the properties you want cloned.

I'm on an iPad now but will try to post a simple example later.

[!NoItAll]

So here is a pseudo sample on implementing iCloneable

Public Class MyClass
   Implements ICloneable
 
   Public Property MyPropertyA as Integer = 0
   Public Property MyPropertyB as String = String.empty
 
   Public Function Clone() As Object Implements System.ICloneable.Clone
            Return New CameraPanels_type With
           {
            .MyPropertyA = MyPropertyA,
            .MyPropertyB = MyPropertyB
           }
    End Function
 
End Class
 

Using this is then as simple as

Dim MyObject as new MyClass
    MyObject.MyPropertyA = 232
    MyObject.MyPropertyB = "Four score and seven years ago..."
 
'Now to copy this just
 
Dim MyNewObject as new MyClass = MyObject.Clone