Основы офисного программирования и язык 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




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