Можно задать текст, который будет выводиться на кнопке вместо установленного по умолчанию значения CommandBut-ton n (где п - порядковый номер данной кнопки в общем списке кнопок в соответствии с очередностью их создания). Для этого установите новое значение свойства Caption. Например:

CbMyButton.Caption="MoH новая программа"

Чтобы получить текст, выведенный на кнопке, можно использовать следующие инструкции:

Dim Str My Button Caption As String Str My Button Caption= CbMyButton.Caption

Можно задать автоматическое изменение размеров элемента управления CommandButton с помощью свойства AutoSize. Если установлено значение этого свойства, равное True, то весь текст надписи, заданный свойством Caption, будет умещаться на кнопке. Например:

CbMyButton.AutoSize=True

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

CbMyButton.Default=True

С нажатием кнопки можно связать выполнение некоторого действия, если назначить эту кнопку некоторому событию Нажатие кнопки (Click). Процедура обработки события Click не имеет параметров. Например, следующая процедура обработки события выводит в окне отладки Debug сообщение «Моя новая программа», после того как нажата кнопка CommandButtonl.

Способ выбора элементов в списке определяется свойством MultiSelect, значение которого можно задать в окне свойств или в программе.

Private Sub CbMyButton Click() Debug.Print "Моя новая программа" End Sub

Можно изменить состояние кнопки: запретить пользователю нажатие кнопки, если оно приведет к опасным или нежелательным последствиям. Например, можно отключить кнопку печати, пока не выбран принтер. При запрете доступа кнопка выглядит серой. Для отключения объекта используется значение False свойства Enabled.

Например, процедура запрета печати, пока не выбран принтер, имеет вид ([1]):

Public Sub CheckPrinter() If PrinterNotReadyO Then

cbPrinter.Enabled=False

GetPrinterReady() End If End Sub

11.4. Список (ListBox)

Элемент управления ListBox предназначен для хранения списка значений, из которого можно выбрать один или несколько элементов.

По умолчанию списки имеют имена ListBoxl, ListBox2 и т. д. Существуют следующие варианты выбора элементов в списке (табл. 11.1):

• один элемент,

• несколько последовательно расположенных элементов,

• несколько произвольно расположенных элементов. Таблица 11.1. Варианты выбора элементов в списке

Например, следующая инструкция позволяет вьщелить в списке несколько последовательно расположенных элементов:

ListBoxl.MultiSelect=fmMultiSelectExtended

Для добавления новых элементов в список используется метод Addltem. При этом нужно задать параметр, который определяет строку с названием добавляемого в список элемента:

ListBoxl.Addltem элемент

В следующей процедуре метод Addltem добавляет в список названия месяцев года:

Public Sub Months О

ListBoxl.Addltem "January" ListBoxl.Addltem "February"

ListBoxl.Addltem "December" End Sub

Для заполнения списка последовательными числами можно использовать процедуру

Public Sub NumberListO For i=l To 20

ListBoxl.Addltem

"Номер элемента:"+str$(i) Next i

End Sub

Пусть в программе требуется определить выбранные элементы списка. Если в списке задан выбор только одного элемента, то свойство Text элемента управления ListBox содержит выделенный элемент, в противном случае свойство Text равно пустой строке. Свойство Listlndex содержит номер выделенного пункта в списке. Выбранный в списке элемент можно вывести, например, в окне отладки Debug с помощью инструкции

Debug. Print ListBoxl.Text

Если известно, что в списке выделено несколько элементов, то необходимо проверить каждый пункт списка, чтобы определить, выделен он или нет. Для этого используется свойство Selected, которое по индексу пункта возвращает значение True, если пункт выбран, и значение False - в противном случае.