Collection für Undo/Redo

    • VB.NET

      Collection für Undo/Redo

      Dieser Code ist gut geeignet als Library-Code, da man ja in so gut wie jedem Programm eine Rückwärts-Taste hat:

      VB.NET-Quellcode

      1. Imports Microsoft.VisualBasic
      2. Public Class UndoCollection
      3. Public UCollection As New Collection
      4. Dim LastInsert As Integer = 0
      5. Dim content As String = ""
      6. 'Dim a As Integer = 0
      9. Public Sub Add(ByVal link As String)
      10. Dim result As Integer = UCollection.Count
      11. If result < 5 Then
      12. content = link
      13. UCollection.Add(link)
      14. LastInsert += 1
      15. 'a += 1
      16. End If
      17. End Sub
      19. Public Sub Remove()
      20. Dim result As Integer = UCollection.Count
      21. If 0 < result AndAlso result <= 5 Then
      22. UCollection.Remove(LastInsert)
      23. LastInsert -= 1
      24. 'a -= 1
      25. End If
      26. End Sub
      28. Public Function Undo() As String
      29. Dim result As Integer = UCollection.Count
      30. Dim value As String = ""
      31. Dim item As Object
      32. If result > 0 Then
      33. item = UCollection.Item(LastInsert)
      34. value = item.ToString
      35. Remove()
      36. End If
      37. Return value
      38. End Function
      40. End Class
      42. Public Class RedoCollection
      43. Public RCollection As New Collection
      44. Dim LastInsert As Integer = 0
      45. 'Dim r As Integer = 0
      47. Public Sub Add(ByVal link As String)
      48. Dim result As Integer = RCollection.Count
      49. If result < 5 Then
      50. RCollection.Add(link)
      51. LastInsert += 1
      52. 'a += 1
      53. End If
      54. End Sub
      56. Public Sub Remove()
      57. Dim result As Integer = RCollection.Count
      58. If 0 < result AndAlso result <= 5 Then
      59. RCollection.Remove(LastInsert)
      60. LastInsert -= 1
      61. 'a -= 1
      62. End If
      63. End Sub
      65. Public Function Redo() As String
      66. Dim result As Integer = RCollection.Count
      67. Dim value As String = ""
      68. Dim item As Object
      69. If result > 0 Then
      70. item = RCollection.Item(LastInsert)
      71. value = item.ToString
      72. Remove()
      73. End If
      74. Return value
      75. End Function
      77. End Class


      Aus der Formklasse (meistens) spricht man ihn so an, wenn man ihn als dll-importiert:

      VB.NET-Quellcode

      1. UndoRedoLibrary 'Namespace
      3. UndoRedoLibrary.UndoCollection 'Klasse UndoCollection
      4. UndoRedoLibrary.UndoCollection.Add(link) 'Die Sub Add (der Klasse UndoCollection) die als Wert, den zu speichernden Inhalt als String benötigt.
      5. UndoRedoLibrary.UndoCollection.Undo() 'Die Funktion Undo(), die den String des zuletzt hinzugefügten Objekts zurückgibt.
      7. UndoRedoLibrary.RedoCollection 'Klasse RedoCollection
      8. UndoRedoLibrary.RedoCollection.Add(link) 'Die Sub Add (der Klasse RedoCollection), die als Wert, den zu speichernden Inhalt als String benötigt.
      9. UndoRedoLibrary.RedoCollection.Redo() ' Die Funktion Redo(), die den String des zuletzt hinzugefügten Objekts zurückgibt.
      11. UndoRedoLibrary.UndoCollection.UCollection 'Das Collection-Objekt der Klasse UndoCollection.
      12. UndoRedoLibrary.RedoCollection.RCollection 'Das Collection-Objekt der Klasse RedoCollection.
      14. UndoRedoLibrary.UndoCollection.UCollection.Count 'Gibt die Anzahl der gespeicherten Inhalte als Integer zurück.
      15. UndoRedoLibrary.RedoCollection.RCollection.Count 'Gibt die Anzahl der gespeicherten Inhalte als Integer zurück.


      Um eine unendliche Speicherung hinzubekommen, einfach bei den beiden Add-Subs die Beschränkung, mit 5 als maximalen Inhalt entnehmen.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „pluginbauer“ ()