Visual Basic – Multiple Undos Class v2.04

 Loading ...

Posted on 9 March 2003 2 comments

Ich habe schon jede Menge verschiedener Multi Undo Lösungen probiert, aber bisher hatte jede mindestens einen Haken. Also, war es Zeit eine eigene zu schreiben, und ich glaube meine ist ziemlich clever.

Wenn Du meine Lösung verwenden willst, mußt Du Deinen Programmcode nicht durch daß Einfügen massenweiser undo-bezogener Funktionen, Prozeduren und Variablen verunstalten. Alles wird Dir hier ganz komfortabel mit zwei kleinen Klassen geliefert.

Du brauchst nur diese beiden Klassen in dein VB Projekt einbinden, eine Objekt-Instanz der clsUndo Klasse erzeugen und die RichTextBox oder TextBox auswählen, welche du mit der Multi Undo Fähigkeit versehen willst. Das sieht dann ungefähr so aus:

	Dim WithEvents Undo as clsUndo
	Set Undo = New clsUndo
	Undo.AssignToRichTextBox Controls, RichTextBox1

So, das ist eigentlich schon alles was Du zu tun hast.

Source Code @ Planet Source Code