Использование кнопок

Элемент управления CommandButton инициирует выполнение некоторого действия, например, запуск, остановку или прерывание процесса. Имя объекта CommandButton задается аналогичным образом. Внешний вид кнопки можно изменить: имеется возможность задать текст, который выводится на кнопке, с помощью свойства Caption: CbMy.Caption = «Нажми меня!». Чтобы получить текст, выведенный на кнопке: Dim Str_My as String

Str_My= CbMy.Caption.

Если весь текст не умещается на кнопке, то он будет усекаться, но можно задать автоматическое изменение размеров объекта CommandButton с помощью свойства AutoSize: CbMy.AutoSize = True. В некоторых случаях требуется назначить кнопку, применяемую по умолчанию, например, при отображении окна сообщения, в котором выводится запрос на подтверждение удаления данных. Кнопка «ДА» задана по умолчанию, поэтому если по ошибке нажать клавишу Enter или Пробел, то информация уничтожается. В этом случае необходимо назначить применяемой по умолчанию кнопку Нет, присвоив свойству Default значение True. После этого свойству Default остальных кнопок формы автоматически присваивается значение False: CbMy.Default = True. Иногда требуется запретить пользователю нажатие кнопки, если оно приведет к опасным или нежелательным последствиям. При запрете доступа кнопка становится серой. Для отключения объекта CommandButton используется свойство Enabled. В программе показано, как заблокировать кнопку, инициирующую печать, если принтер не работает:

Public Sub CHeckPrinter()

If PrinterNotReady() Then

cbPrint.Enabled = False

GetPrinterReady()

End If

End Sub

Однако, в программе необходимо сразу после подготовки принтера к печати включить кнопку в функции GetPrinterReady(). Не забывать разрешить доступ к кнопке после её отключения.