Поделиться через

Пример использования свойств CanUndo и CanRedo, а также методов UndoAction и RedoAction

  • Статья

В следующем примере показано, как отменить или повторить редактирование текста в текстовом поле или в текстовой области объекта ComboBox. В нем проверяется возможность отмены или повтора редактирования, а затем выполняется нужное действие. В примере используются свойства CanUndo и CanRedo , а также методы UndoAction и RedoAction .

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

  • Объект TextBox с именем TextBox1.
  • Элемент ComboBox с именем ComboBox1.
  • Два элемента управления CommandButton с именами CommandButton1 и 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.