9. Комбинированный объект "Окно список-редактирование"

Комбинированное окно список-редактирование объединяет окно списка и окно редактирования. Эти два окна связываются таким образом, что если выбирать элемент в окне списка, то он автоматически появится в окне редактирования, где этот элемент можно изменить. В комбинированном окне список-редактирование окно списка и окно редактирования являются двумя отдельными окнами с различными именами и отдельными свойствами. Доступ к свойствам каждого окна осуществляется независимо, с помощью методов доступа к окнам списка и окнам редактирования, описанных выше.

Sub prog()

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

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

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

End Sub

Sub add()

Dim txt As String

txt = Sheets("Диалог1").EditBoxes("q3").text 'ввод элемента для добавления

Sheets("Диалог1").ListBoxes("q4").AddItem txt, 3 'добавление элемента в список из поля ввода

End Sub

Sub del()

Dim а As Integer

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

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

End Sub

10. Комбинированный объект "Окно выпадающий список-редактирование"

Комбинированное окно выпадающий список-редактирование представляет собой выпадающий список с элементами, которые можно редактировать. Хотя это окно имеет те же возможности, что и комбинированное окно список-редактирование, оно не является объединением двух отдельных объектов. Это окно представляет собой выпадающий список, доступ к которому подобен доступу к другим выпадающим спискам, с тем отличием, что данное окно обладает свойством Text, позволяющим редактировать содержимое элементов.

Если выбран элемент из списка, то свойства списка Value и ListIndex содержат индекс выбранного элемента, а конструкция .List(ListIndex) обеспечивает доступ к тексту выбранного элемента. Если вы редактируете элемент или пишете в редактируе­мую часть окна, то свойства Value и ListIndex равны 0, а свойство Text содержит текст отредактированного элемента.

Sub prog()

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

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

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

End Sub

Sub add()

Dim txt As String

txt = Sheets("Диалог1").DropDowns("q5").text 'ввод элемента для добавления

Sheets("Диалог1").DropDowns("q5").AddItem txt, 3 'добавление элемента в список из поля ввода

End Sub

Sub del()

Dim à As Integer

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

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

End Sub

11. Объект "Линейка прокрутки"

Пиктограмма Scroll Bar создает на бланке вертикальную или горизонтальную линейку прокрутки. Линейка прокрутки может рассматриваться как индикатор прокрутки. Ее свойство Value содержит число, определяющее положение ползунка на линейке прокрутки. Когда перемещаете, ползунок линейки прокрутки (т.е. прокручиваете окно), свойство линейки Value пропорционально изменяется. Линейку прокрутки можно также использовать в качестве индикатора вывода, так как при изменении значения свойства Value ползунок линейки пропорционально перемещается Доступ к линейкам прокрутки можно получить, используя набор ScrollBars().

Свойства Min и Мах, управляющие диапазоном значений, возвращаемых свойством Value, доступны как из программы, так и с помощью диалогового окна Формат/Объект. Присвоенные этим двум свойствам минимальная и максимальная величины определяют диапазон значений, возвращаемых свойством Value линейки прокрутки. Свойства Large-Change и SmallChange содержат величину изменения свойства Value при нажатии на тело линейки (прокрутка страницы) или на кнопку со стрелкой (инкрементная прокрутка). Все эти свойства обычно содержат значения в виде целых чисел, которые при необходимости могут быть преобразованы в нужный программе тип.