<Serializable()> _
Public Structure activeWindow
 
   Public handle As IntPtr         'handle des fensters
   Public title As String          'titel des fenster
   Public processName As String    'prozess name
 
   Public Overrides Function ToString() As String
      Return Me.handle.ToString & ", " & Me.processName & ", " & Me.title
   End Function
End Structure
 
 
<Serializable()> _
Public Class ListClone(Of T)
   Inherits List(Of T)
   Implements ICloneable
 
   ' Tiefes Clonen der List(Of T)
   Public Function Clone() As Object Implements System.ICloneable.Clone
      Dim CloneObject As Object
      Dim ms As New IO.MemoryStream()
      Dim bf As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
      bf.Serialize(ms, Me)
      ms.Seek(0, IO.SeekOrigin.Begin)
      CloneObject = bf.Deserialize(ms)
      ms.Close()
      Return CloneObject
   End Function
End Class

Public Class Form1
 
   Private activeWindows As ListClone(Of activeWindow)
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
 
      ' Erste Liste mit 3 Einträgen erzeugen
      activeWindows = New ListClone(Of activeWindow)
      For x As Int16 = 0 To 2
         Dim Struct As New activeWindow
         Struct.handle = 1
         Struct.processName = "P1"
         Struct.title = "Struct 1"
 
         activeWindows.Add(Struct)
      Next
 
      ' Zweite Liste erstellen, die eine Kopie von Liste 1 holt
      Dim CopyOfWindows As ListClone(Of activeWindow) = activeWindows.Clone
 
      ' In der zweiten Liste drei weitere Einträge anhängen
      For xx As Int16 = 0 To 2
         Dim NewStruct As New activeWindow
         NewStruct.handle = 2
         NewStruct.processName = "P2"
         NewStruct.title = "Struct 2"
 
         CopyOfWindows.Add(NewStruct)
      Next
 
      ' Erstes Item aus der zweiten Liste verändern
      Dim tempStruct As activeWindow = CopyOfWindows(0)
      tempStruct.handle = 3
      tempStruct.processName = "P3"
      tempStruct.title = "Struct verändert"
      CopyOfWindows(0) = tempStruct
 
      ' Consolenausgabe der 1. Liste
      For Each s1 As activeWindow In activeWindows
         Console.WriteLine(s1.ToString)
      Next
      Console.WriteLine("-- End of List 1 --")
 
      ' Consolenausgabe der 2. Liste
      For Each s2 As activeWindow In CopyOfWindows
         Console.WriteLine(s2.ToString)
      Next
      Console.WriteLine("-- End of List 2 --")
 
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control