Список (ListBox)

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

События:

Click - щелчок мыши. это событие вызывается, если пользователь с помощью мыши или клавиш управления курсором выбирает элемент в списке.

Методы:

Необходимы для обработки элементов списка - добавления или удаления.

AddItem - для добавления новых элементов:

ListBox.AddItem Элемент[, Индекс]

Параметр Элемент задает добавляемый элемент списка. С помощью параметра Индекс указывается место вставки в список нового элемента. Данный метод должен вызываться при вставке каждого элемента. Как правило, заполнение списка выполняется при загрузке формы.

Пример: Создание списка разрядов

Private Sub Form_Load()

lstRasr.AddItem "10"

lstRasr.AddItem "11"

lstRasr.AddItem "12"

lstRasr.AddItem "13"

lstRasr.AddItem "14"

lstRasr.AddItem "15"

lstRasr.AddItem "16"

lstRasr.AddItem "17"

End Sub

RemoveItem - для удаления элемента из списка:

ListBox. RemoveItem Индекс_элемента

Индекс_элемента - индекс удаляемого элемента. Индексация
начинается с 0.

Clear - для удаления всех элементов списка

ListBox.Clear

Text - текст выбранного элемента списка.

List() - определение текста элементов списка в окне свойств (переход на новую строку в списке выполняется командой Ctrl+Enter).

Sorted - определяет способ расположения элементов в списке (по алфавиту).

ListIndex - определение индекса выбранного элемента. Если в списке не выбран ни один элемент, то значе­ние свойства = -1.

Пример. Обращение по индексу к элементу списка с помощью свойства List()

ls = lstBox.List(lstBox.ListIndex)

ListCount -текущее количество элементов в списке. Используется при обработке содержимого всех элементов списка в цикле.

For i=0 to lstBox.ListCount-1

‘ обработка lstBox.List(i)

Next i

Style – определяет внешний вид списка: стандартный список (0) или список флажков (1).

Columns – определяет количество колонок в тексте:

0 – обычный список;

1 – одна колонка с горизонтальной линейкой;

2 – две колонки.

MultiSelect - одновременный выбор нескольких элементов списка: 0 - множественный выбор невозможен.

1 - простой множественный выбор. Элементы списка выбираются щелчком мыши или нажатием Space

2 - расширенный множественный выбор. Пользователь может выбрать несколько элементов с помощью мыши или клавиш управления курсором с использованием клавиш Shift и Ctrl.

Selected() - показывает, выделен данный элемент списка или нет. Свойство Selected содержит массив значений, соответствующих количеству элементов в списке. Если значение элемента в массиве равно True, то данный элемент выбран.

Пример:

For i=0 to lstBox.ListCount-1

If lstBox.Selection(i) then

‘ обработка lstBox.List(i)

EndEf

Next i

Itemdata – позволяет задать список значений (тип Long Integer), элементы которого соответствуют элементам списка ListBox.

Пример. Создать список lstFam. Элементами списка являются фамилии студентов существующего файла данных. Свойству ItemData присвоить список значений – номера зачетной книжки студентов.

Private Sub Form_Load()

Open “Stud” For Random As#1 Len=Len(Stud)

For i=1 to Lof(1)\Len(Stud)

Get#1,i,Stud

LstFam.AddItem Stud.Fam

LstFam.ItemData(lstFam.NewIndex)=Stud.NomSt

Next

End Sub

‘ Свойства NewIndex содержит индекс последнего добавленного в список элемента

Private Sub lstFam_Click()

‘ действие над значением – номер зачетной книжки, полученным после выбора фамилии студента из списка

n=lstFam.ItemData(lstFam.ListIndex)

End Sub