CanUndo、CanRedo 屬性、UndoAction、RedoAction 方法範例

下列範例示範如何在文字方塊或 ComboBox的文字區域內復原或取消復原文字編輯。 本範例會先檢查復原或取消復原操作是否能夠執行，然後執行適當的動作。 此範例會使用 CanUndo 和 CanRedo 屬性，以及 UndoAction 和 RedoAction 方法。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定該表單包含：

• 一個名為 TextBox1 的 TextBox 。
• 一個名為 ComboBox1 的 ComboBox 。
• 兩個分別名為 CommandButton1 和 CommandButton2 的 CommandButton 控制項。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。