Public Class Form1
    Dim o1 As Klasse1 = New Klasse1(1)
    Dim o2 As Klasse1 = New Klasse1(2)
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        o2 = o1
        o1.Feld1 = 9
        'o2.Feld1 =???????
    End Sub
End Class
 
Class Klasse1
    Public Feld1 As UShort
    Sub New(ByVal f As UShort)
        Feld1 = f
    End Sub
End Class

o2 = o1

Zitat:

Und wie müsste ich vorgehen, dass sich o2.Feld1 wie eine gewöhnliche Variable verhält und Ihren Wert beibehält.

Structure Struct1
    ...
End Structure

Dim myVar As Struct1

    Class Klasse1
        Public Feld1 As UShort
        Sub New(ByVal f As UShort)
            Me.Feld1 = f
        End Sub
 
        Public Function Clone() As Klasse1
            Return DirectCast(Me.MemberwiseClone(), Klasse1)
        End Function
    End Class

    Private o1 As Klasse1 = New Klasse1(1)
    Private o2 As Klasse1 = Nothing
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        o2 = o1.Clone()
        o1.Feld1 = 9
        MessageBox.Show("" & o2.Feld1)
    End Sub

o2 = o1

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

neu as new List(Of Körper)
alt as new List(Of Körper)
Sub Position 'Hier werden die neuen Orte für alle Körper aus Liste alt 
' berechnet und in Liste neu gespeichert
alt = neu

Zitat:

o2 = o1 o1.Feld1 = 9 'o2.Feld1 =???????

Micke

Beitrag wurde zuletzt am 07.03.12 um 10:03:12 editiert.

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    <Serializable()>
    Public Class MyObject
        Implements ICloneable
        Public Property int1 As Integer
        Public Property str1 As String
 
        Public Sub New(int As Integer, str As String)
            _int1 = int
            _str1 = str
        End Sub
 
        Public Function Clone() As Object Implements System.ICloneable.Clone
            Return Me.MemberwiseClone()
        End Function
    End Class

 
    Private Sub cloneList()
        Dim myObjects As New List(Of MyObject)
        For i = 1 To 5
            myObjects.Add(New MyObject(i, "xxx" & i.ToString()))
        Next
 
        Dim myObjects1 As New List(Of MyObject)
        For Each mo As MyObject In myObjects
            myObjects1.Add(mo.Clone())
        Next
 
        Debug.WriteLine(myObjects(0).int1)
        myObjects1(0).int1 = 99
        Debug.WriteLine(myObjects1(0).int1)
        Debug.WriteLine(myObjects(0).int1)
    End Sub

    Public Function DeepClone(Of T)(ByVal obj As T) As T
        If obj Is Nothing Then Return Nothing
        Dim stream As IO.MemoryStream = New IO.MemoryStream
        Dim ser As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
        ser.Serialize(stream, obj)
        stream.Position = 0
        Return ser.Deserialize(stream)
    End Function

   Private Sub cloneList1()
        Dim myObjects As New List(Of MyObject)
        For i = 1 To 5
            myObjects.Add(New MyObject(i, "xxx" & i.ToString()))
        Next
 
        Dim myobjects2 As List(Of MyObject) = DeepClone(Of List(Of MyObject))( _
          myObjects)
 
        Debug.WriteLine(myObjects(0).int1)
        myobjects2(0).int1 = 99
        Debug.WriteLine(myobjects2(0).int1)
        Debug.WriteLine(myObjects(0).int1)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    Dim myobjects2 As List(Of MyObject) = DeepClone(Of List(Of MyObject))( _
      myObjects)

    Dim myObjects1 As New List(Of MyObject)
    For Each mo As MyObject In myObjects
        myObjects1.Add(mo.Clone())
    Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist