29.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

29.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

29.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

а = Sheets("Діалог1").DropDowns("q5").Value

'визначення номера вибраного елементу

Sheets("Діалог1").DropDowns("q5").RemoveItem а, 1

'видалення із списку вибраного

End Sub