Page 60 - 6735

'якщо елемент вибраний, додати його в ListBox2
If ListBox1.Selected(i) Then ListBox2.AddItem
ListBox1.List(i, 1)
Next i
End If
End Sub

Рисунок 2.13 – ListBox з кількома колонками і мультивибір

Клас ComboBox – список із текстовим полем

В прикладі UserForm10 показано використання елемента
керування ComboBox (комбінований список), який являє собою
поєднання TexBox і ListBox (рис. 2.14). Має ті ж властивості, що
ListBox і додатково має властивість Text (рядок у текстовому
полі).

Private Sub UserForm_Initialize()
ComboBox1.List = Array(1, 2, 3, 4, 5, 6, 7) 'заповнити
список
ComboBox1.ListRows = 4 'у списку показувати 4 рядка
ComboBox1.MatchRequired = True 'заборона введення у
текстове поле значень, яких немає у списку
End Sub

'процедура обробки події Change (зміна значення текстового
поля)
Private Sub ComboBox1_Change()
'вивести у надпис форми текст текстового поля і індекс
60