Compartir a través de

Ejemplo de métodos CanUndo, propiedades de CanRedo, UndoAction, RedoAction

  • Artículo

En el ejemplo siguiente se muestra cómo deshacer o rehacer la edición de texto dentro de un cuadro de texto o dentro del área de texto de un ComboBox. En el ejemplo se comprueba si puede producirse una operación de deshacer o rehacer y se realiza la acción correspondiente. En el ejemplo se usan las propiedades CanUndo y CanRedo y los métodos UndoAction y RedoAction .

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un control TextBox denominado TextBox1.
  • Un control ComboBox denominado ComboBox1.
  • Dos controles CommandButton denominados CommandButton1 y 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.