Основы офисного программирования и язык VBA


Пример 13.3


Private Sub CommandButton1_Click () If UndoAndRedo. CanUndo = True Then ' отмена возможна UndoAndRedo. UndoAction Else ' отмена невозможна Beep End If

End Sub

Private Sub CommandButton2_Click () If NewText. Text <> "" Then ' вставка новой рубрики ListBox1. AddItem (NewText. Text) Else ' текст не введен Beep End If End Sub

Private Sub CommandButton3_Click () If UndoAndRedo. CanRedo = True Then ' восстановление возможно UndoAndRedo. RedoAction Else ' восстановление невозможно Beep End If End Sub

Private Sub UserForm_Initialize () ListBox1. AddItem "черный" ListBox1. AddItem "белый"

End Sub

Пример 13.3.

Закрыть окно






Начало  Назад  Вперед