Ich habe schon jede Menge verschiedener Multi Undo Lösungen probiert, aber bisher hatte jede mindestens einen Haken. Also, war es Zeit eine eigene nach meinen Vorstellungen zu entwickeln.
Wer meine Lösung verwenden will, muss nicht seinen Programmcode durch das Einfügen massenweiser undo-bezogener Funktionen, Prozeduren und Variablen verunstalten. Alles wird hier ganz komfortabel mit zwei kleinen Klassen geliefert.
Es müssen nur diese beiden Klassen in das VB Projekt eingebunden, eine Objekt-Instanz der clsUndo Klasse erzeugt und die RichTextBox oder TextBox ausgewählt werden, welche mit der Multi Undo Fähigkeit versehen werden soll. Ein Beispiel:
Dim WithEvents Undo as clsUndo Set Undo = New clsUndo Undo.AssignToRichTextBox Controls, RichTextBox1
Mehr muss gar nicht getan werden.
Source Code @ github.com
GOOD!
Jack, simply copy the clsUndo.cls and clsUndoElement.cls class files into your VB project. Then create a new Undo instance as described above and assign it to a text box. Next create undo/redo buttons or menu items that call the undo / redo functions of the Undo class.
Hope that helps,
Seb
what?
have been looking for undo codes for a long time,
could you explain more thoroughly how to use this please