Beispiele für CanUndo-, CanRedo-Eigenschaft, UndoAction-, RedoAction-Methode

Im folgenden Beispiel wird veranschaulicht, wie Sie die Textbearbeitung innerhalb eines Textfelds oder innerhalb des Textbereichs eines ComboBox-Objekts rückgängig machen oder wiederholen. This sample checks whether an undo or redo operation can occur and then performs the appropriate action. Im Beispiel werden die Eigenschaften CanUndo und CanRedo sowie die Methoden UndoAction und RedoAction verwendet.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

• Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox1".
• A ComboBox named ComboBox1.
• Zwei Befehlsschaltflächen-Steuerelemente ( CommandButton ) mit der Bezeichnung "CommandButton1" und "CommandButton2".

Private Sub CommandButton1_Click() 
 If UserForm1.CanUndo = True Then 
 UserForm1.UndoAction 
 MsgBox "Undid IT" 
 Else 
 MsgBox "No undo performed." 
 End If 
End Sub 
 
Private Sub CommandButton2_Click() 
 If UserForm1.CanRedo = True Then 
 UserForm1.RedoAction 
 MsgBox "Redid IT" 
 Else 
 MsgBox "No redo performed." 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Type your text here." 
 
 ComboBox1.ColumnCount = 3 
 ComboBox1.AddItem "Choice 1, column 1" 
 ComboBox1.List(0, 1) = "Choice 1, column 2" 
 ComboBox1.List(0, 2) = "Choice 1, column 3" 
 
 CommandButton1.Caption = "Undo" 
 CommandButton2.Caption = "Redo" 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.