Projektdateien hinzufügen.

Pilz.Collections/SimpleHistory/HistoryPoint.vb

@@ -0,0 +1,543 @@
+Imports System.Reflection
+
+Namespace SimpleHistory
+
+    ''' <summary>
+    ''' Represent some Object States and Actions.
+    ''' </summary>
+    Public Class HistoryPoint
+
+        ''' <summary>
+        ''' Represents the Name of this History Point
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property Name As String = ""
+        ''' <summary>
+        ''' A List of Object States and Actions.
+        ''' </summary>
+        ''' <returns></returns>
+        Public ReadOnly Property Entries As New List(Of ObjectBase)
+        ''' <summary>
+        ''' Some data can be refered on this HistoryPoint. Don't know, in some situations this can be helpful.
+        ''' </summary>
+        Public ReadOnly Tag As Object = Nothing
+
+        Public Function HasEntries(Of T As ObjectBase)() As Boolean
+            Return Entries.Where(Function(n) TypeOf n Is T).Count > 0
+        End Function
+
+        Friend Sub Undo()
+            For Each s As ObjectBase In Entries.OrderBy(Function(n) n.UndoPriority)
+                If TypeOf s Is ObjectState Then
+                    CType(s, ObjectState).Patch()
+                ElseIf TypeOf s Is ObjectAction Then
+                    CType(s, ObjectAction).Undo()
+                End If
+            Next
+        End Sub
+
+        Friend Sub Redo()
+            For Each s As ObjectBase In Entries.OrderBy(Function(n) n.RedoPriority)
+                If TypeOf s Is ObjectState Then
+                    CType(s, ObjectState).Patch()
+                ElseIf TypeOf s Is ObjectAction Then
+                    CType(s, ObjectAction).Redo()
+                End If
+            Next
+        End Sub
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="whiteList">Specify which members to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), whiteList As MemberWhiteList) As HistoryPoint
+            Return FromObject({obj}, ObjectValueType.None, CObj(whiteList), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="blackList">Specify which members to exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), blackList As MemberBlackList) As HistoryPoint
+            Return FromObject({obj}, ObjectValueType.None, CObj(blackList), BindingFlags.Default)
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="memberName">The member names to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
+            Else
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
+            End If
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="memberName">The member names to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, membersToStore, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
+            Else
+                Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
+            End If
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="memberName">The member names to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, flags, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), flags)
+            Else
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), flags)
+            End If
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="memberName">The member names to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, flags, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), flags)
+            Else
+                Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), flags)
+            End If
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="whiteList">Specify which members to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, whiteList As MemberWhiteList) As HistoryPoint
+            Return FromObject({obj}, ObjectValueType.None, CObj(whiteList), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="blackList">Specify which members to exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, blackList As MemberBlackList) As HistoryPoint
+            Return FromObject({obj}, ObjectValueType.None, CObj(blackList), BindingFlags.Default)
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
+            Else
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
+            End If
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="memberName">The member names to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, membersToStore, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
+            Else
+                Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
+            End If
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="memberName">The member names to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, flags, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), flags)
+            Else
+                Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), flags)
+            End If
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="memberName">The member names to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
+            Return FromObject(obj, flags, True, memberName)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
+        ''' <param name="memberName">The member names to include/exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
+            If isWhiteList Then
+                Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), flags)
+            Else
+                Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), flags)
+            End If
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object) As HistoryPoint
+            Return FromObject({obj}, ObjectValueType.None, CObj(Nothing), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType) As HistoryPoint
+            Return FromObject({obj}, membersToStore, CObj(Nothing), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="whiteList">Specify which members to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, whiteList As MemberWhiteList) As HistoryPoint
+            Return FromObject({obj}, membersToStore, CObj(whiteList), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="blackList">Specify which members to exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, blackList As MemberBlackList) As HistoryPoint
+            Return FromObject({obj}, membersToStore, CObj(blackList), BindingFlags.Default)
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, flags As BindingFlags) As HistoryPoint
+            Return FromObject({obj}, ObjectValueType.None, CObj(Nothing), flags)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, flags As BindingFlags) As HistoryPoint
+            Return FromObject({obj}, membersToStore, CObj(Nothing), flags)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="whiteList">Specify which members to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, whiteList As MemberWhiteList, flags As BindingFlags) As HistoryPoint
+            Return FromObject({obj}, membersToStore, CObj(whiteList), flags)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="obj">The object that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="blackList">Specify which members to exclude.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, blackList As MemberBlackList, flags As BindingFlags) As HistoryPoint
+            Return FromObject({obj}, membersToStore, CObj(blackList), flags)
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object()) As HistoryPoint
+            Return FromObject(objs, ObjectValueType.None, CObj(Nothing), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType) As HistoryPoint
+            Return FromObject(objs, membersToStore, CObj(Nothing), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="whiteList">Specify which members to include.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, whiteList As MemberWhiteList) As HistoryPoint
+            Return FromObject(objs, membersToStore, CObj(whiteList), BindingFlags.Default)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="blackList">Specify which members to exclude.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, blackList As MemberBlackList) As HistoryPoint
+            Return FromObject(objs, membersToStore, CObj(blackList), BindingFlags.Default)
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object(), flags As BindingFlags) As HistoryPoint
+            Return FromObject(objs, ObjectValueType.None, CObj(Nothing), flags)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, flags As BindingFlags) As HistoryPoint
+            Return FromObject(objs, membersToStore, CObj(Nothing), flags)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="whiteList">Specify which members to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, whiteList As MemberWhiteList, flags As BindingFlags) As HistoryPoint
+            Return FromObject(objs, membersToStore, CObj(whiteList), flags)
+        End Function
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="blackList">Specify which members to exclude.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, blackList As MemberBlackList, flags As BindingFlags) As HistoryPoint
+            Return FromObject(objs, membersToStore, CObj(blackList), flags)
+        End Function
+
+        ''' <summary>
+        ''' Creates an History Point with Object States automaticly from input.
+        ''' </summary>
+        ''' <param name="objs">The objects that should be included.</param>
+        ''' <param name="membersToStore">Specify what member types to include.</param>
+        ''' <param name="whiteOrBlackList">Specify which members to include.</param>
+        ''' <param name="flags">The Binding Flags that the members should have.</param>
+        ''' <returns>A History Point with Object States.</returns>
+        Private Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, whiteOrBlackList As Object, flags As BindingFlags) As HistoryPoint
+            Dim hp As New HistoryPoint
+
+            If whiteOrBlackList Is Nothing Then whiteOrBlackList = New MemberBlackList
+            Dim isWhiteList As Boolean = TypeOf whiteOrBlackList Is MemberWhiteList
+
+            If flags = BindingFlags.Default Then
+                flags = BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic
+            End If
+            If membersToStore = ObjectValueType.None Then
+                membersToStore = ObjectValueType.Field Or ObjectValueType.Property
+            End If
+
+            For Each obj As Object In objs
+                If (membersToStore And ObjectValueType.Field) = ObjectValueType.Field Then
+
+                    For Each fi As FieldInfo In obj.GetType.GetFields(flags)
+
+                        Dim contains As Boolean = whiteOrBlackList.Contains(fi.Name)
+                        If If(isWhiteList, contains, Not contains) Then
+
+                            Dim os As New ObjectState
+                            os.Object = obj
+                            os.MemberName = fi.Name
+                            os.MemberType = ObjectValueType.Field
+                            os.MemberFlags = flags
+                            os.ValueToPatch = fi.GetValue(obj)
+                            hp.Entries.Add(os)
+
+                        End If
+
+                    Next
+
+                End If
+
+                If (membersToStore And ObjectValueType.Property) = ObjectValueType.Property Then
+
+                    For Each pi As PropertyInfo In obj.GetType.GetProperties(flags)
+
+                        Dim contains As Boolean = whiteOrBlackList.Contains(pi.Name)
+                        If If(isWhiteList, contains, Not contains) Then
+
+                            Dim os As New ObjectState
+                            os.Object = obj
+                            os.MemberName = pi.Name
+                            os.MemberType = ObjectValueType.Property
+                            os.MemberFlags = flags
+                            os.ValueToPatch = pi.GetValue(obj)
+                            hp.Entries.Add(os)
+
+                        End If
+
+                    Next
+
+                End If
+            Next
+
+            Return hp
+        End Function
+
+        ''' <summary>
+        ''' Combines some History Points to one.
+        ''' </summary>
+        ''' <param name="hps">An array of History Points to combine.</param>
+        ''' <returns>One History Point that contains all Data of inputted History Points.</returns>
+        Public Shared Function Concat(ParamArray hps As HistoryPoint()) As HistoryPoint
+            Return Concat(hps.FirstOrDefault?.Name, hps)
+        End Function
+
+        ''' <summary>
+        ''' Combines some History Points to one.
+        ''' </summary>
+        ''' <param name="hps">An array of History Points to combine.</param>
+        ''' <returns>One History Point that contains all Data of inputted History Points.</returns>
+        Public Shared Function Concat(newName As String, ParamArray hps As HistoryPoint()) As HistoryPoint
+            Dim hp As New HistoryPoint
+
+            For Each _hp As HistoryPoint In hps
+                hp.Entries.AddRange(_hp.Entries)
+            Next
+
+            Return hp
+        End Function
+
+    End Class
+
+End Namespace