Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.47
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.47

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

Public Sub CheckPrinter() If PrinterNotReady() Then _

cbPrinter.Enabled=False

GetPrinterReady() End If End Sub

11.4. Список (ListBox)

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

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

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

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

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

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

Вариант

Значение

Константа

FmMultiSelect

FmMultiSelectExtended

FmMultiSelectMulti

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

11. Панель инструментов «Элементы управления»

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

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 с помощью инструкции


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta