7. Объект "Окно списка"

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

Существует несколько способов добавить элементы в окно списка. Свойство списка ListFillRange содержит ссылку на область таблицы, в ячейках которой записаны элементы списка. Установив это свойство равным строке, содержащей ссылки на некоторые ячейки таблицы, вы поместите содержимое этих ячеек в список. Кроме того, свойство ListFillRange можно установить с помощью директивы Формат/Объект.

Более общим методом заполнения списка является использование свойства List() окна списка. Свойство List() аналогично массиву строк, каждый элемент которого содержит элемент окна списка. Изменение любого элемента свойства List() изменяет соответствующий элемент в окне списка, как будто все элементы окна списка заме­няются на соответствующие элементы свойства List(). Применение свойства List(), таким образом, является значительно более удобным, так как список полностью инициализируется и все элементы, оставшиеся в нем от предыдущих применений, Удаляются.

Еще одним общим способом добавления элементов к списку является применение метода AddItem. Этот метод использует два аргумента — строку текста, вставляемую в список, и индекс, определяющий место нового элемента в списке. Если индекс опущен, новый элемент будет добавлен в конец списка.

Для удаления элементов из списка применяется метод RemoveItem, использующий два аргумента — индекс и счетчик. Аргумент индекс определяет номер элемента списка, с которого начинается удаление, а счетчик — количество элементов, подлежащих удалению. Если аргумент счетчик опущен, то по умолчанию он принимается равным 1. Для удаления всех элементов списка применяется метод RemoveAllItems или RemoveItem. с индексом, равным 1, и счетчиком, превышающим количество элементов списка.

Для определения номера элемента, выбранного из списка пользователем, применяются свойства ListIndex или Value окна списка. Эти свойства содержат номер элемента, выбранного из списка. Чтобы увидеть сам элемент, выберите его из свойства List с помощью свойства ListIndex:

Sub prog()

'определение списка

Sheets("Диалог1").ListBoxes("q1").List = Array("p-05", "p-04", "p-01")

Sheets("Диалог1").Show

End Sub

Sub add() 'добавление элемента в список

Sheets("Диалог1").ListBoxes("q1").AddItem "p-03", 3

End Sub

Sub del()

Dim а As Integer

а = Sheets("Диалог1").ListBoxes("q1").ListIndex 'определение номера выбранного элемента

Sheets("Диалог1").ListBoxes("q1").RemoveItem а, 1 'удаление из списка выбранного

End Sub

8. Объект "Выпадающее окно"

Выпадающее окно практически аналогично окну списка, за исключением того, что окно списка размещает список в прокручиваемом окне, а выпадающее окно создает выпадающий список. Доступ к выпадающему окну отличается от доступа к окну списка только тем, что вместо набора ListBoxes() применяется набор DropDowns().

Sub prog()

'определение списка

Sheets("Диалог1"). DropDowns("q2").List = Array("p-05", "p-04", "p-01")

Sheets("Диалог1").Show

End Sub

Sub add() 'добавление элемента в список

Sheets("Диалог1"). DropDowns("q2").AddItem "p-03", 3

End Sub

Sub del()

Dim а As Integer

а = Sheets("Диалог1"). DropDowns("q2").ListIndex 'определение номера выбранного элемента

Sheets("Диалог1"). DropDowns("q2").RemoveItem а, 1 'удаление из списка выбранного

End Sub