2.5.Список (ListBox) и поле со списком (ComboBox)
Список (ListBox)
Поместите на форму список. Его имя - List1. Заполните список. Для этого зайдите в его свойство List и введите слово "Динамо" - первый элемент списка, после чего нажмите Ctrl-Enter. Теперь введите слово "Спартак" - второй элемент списка, нажмите Ctrl-Enter. И так далее. Запустите проект. Пощелкайте по элементам списка.
Если все элементы списка не умещаются в его видимом пространстве, то у списка автоматически возникает полоса прокрутки. А кнопку "Печать" я поместил на форму вот для чего:
Задача: Пусть вам нужно напечатать текст "Следующим соперником нашей команды будет команда …". На месте многоточия должно стоять название команды, выбранной вами из списка. Запустив проект, вы щелчком мыши выбираете нужную команду (на картинке выбран Спартак), а затем нажатием на кнопку печатаете текст.
Вот программа:
Private Sub Command1_Click()
Debug.Print "Следующим соперником нашей команды будет команда "; List1.Text
End Sub
Свойство Text списка List1 - это значение выбранного элемента списка List1. Пощелкайте по элементам списка, после каждого щелчка нажимая кнопку "Печать". Итак, мы нашли одно из применений списка: он облегчает ввод в компьютер часто встречающихся слов.
ComboBox (вариант "Раскрывающийся список")
ComboBox - это обогащенный новыми возможностями ListBox. Он существует в трех вариантах. Рассмотрим их по мере усложнения.
Поместите на форму ComboBox. Его имя - Combo1. Вариант ComboBox определяется значением его свойства Style. Выберите вариант Dropdown List - "Раскрывающийся список". Заполните ComboBox так же, как вы заполняли список ListBox. Запустите проект. Список выглядит так:
Щелкните по черной треугольной стрелке в правой части списка. Список раскроется и вы сможете выбрать из него любой элемент так же, как вы выбирали элементы из списка ListBox. Программа для ComboBox также будет совершенно аналогична программе для ListBox.
Private Sub Command2_Click()
Debug.Print "Следующим соперником нашей команды будет команда "; Combo1.Text
End Sub
Как видите, преимуществом раскрывающегося списка перед обычным является экономия места на форме.
ComboBox (вариант "Простой Combo")
Поместите на форму ComboBox (а проще - скопируйте старый). В его свойстве Style выберите вариант Simple Combo - "Простой Combo". Заполните ComboBox так же, как вы заполняли список ListBox. Запустите проект. Combo выглядит так:
Отличие ComboBox от ListBox в том, что сверху от списка имеется текстовое поле. Пока не вводите туда ничего, а просто выбирайте элементы из списка и печатайте, как в проекте с ListBox. Все получается по-старому. Зачем же нужно текстовое поле? А затем, что если вам вдруг понадобится распечатать команду, которой нет в списке, вы всегда можете ввести ее в текстовое поле и нажать кнопку печати.
Вариант "Раскрывающийся список" тоже имеет наверху текстовое поле, только вводить туда ничего нельзя.
ComboBox (вариант "Раскрывающийся Combo")
Раскрывающийся Combo объединяет в себе преимущества двух других вариантов ComboBox: он выглядит так же компактно, как раскрывающийся список, и позволяет редактировать текстовое поле, как простой Combo.
Свойства, события и методы элементов управления ListBox и ComboBox.
Все примеры, приведенные здесь относительно ListBox, относятся также и к любому варианту ComboBox.
Элементы списков нумеруются с нуля.
Оператор |
Смысл |
List1.AddItem "Бавария" |
В конец списка List1 метод AddItem добавляет элемент Бавария |
List1.AddItem "Боруссия", 3 |
Метод AddItem добавляет элемент Боруссия на место №3 в список List1. |
List1.RemoveItem 4 |
Метод RemoveItem удаляет элемент №4 из списка List1. |
List1.Clear |
Опустошить список List1 |
Debug.Print List1.Text |
Напечатать значение выбранного элемента в списке List1 |
Debug.Print Combo1.Text |
Напечатать значение текстового поля из ComboBox |
Debug.Print List1.List (5) |
Напечатать значение элемента №5 в списке List1 |
List1.List(0) = "Барселона" |
Присвоить элементу №0 в списке List1 значение Барселона |
Debug.Print List1.ListIndex |
Напечатать номер выбранного элемента в списке List1. Если элемент не выбран, то печатается -1. |
Debug.Print List1.ListCount |
Напечатать количество элементов в списке List1 |
Если вы хотите, чтобы элементы списка были отсортированы по алфавиту, то в режиме проектирования установите в True свойство Sorted. В режиме работы его менять нельзя. Сортировка нарушится, если вы будете использовать метод AddItem с индексом. Не забывайте, что сортировка - текстовая, а не числовая, поэтому 28 будет стоять выше, чем 5.
У ListBox есть некоторые преимущества перед ComboBox: он может состоять из нескольких столбцов и допускает множественный выбор. Но на этом мы останавливаться не будем.
Щелчок или двойной щелчок по элементу списка вызывают, как водится, события Click и DblClick.
Задача: Создать на форме простой Combo и 5 кнопок для разнообразной работы с его списком. Вот функции кнопок:
Кнопка "Печать" распечатывает содержимое текстового поля Combo
Кнопка "Удаление" удаляет выбранный элемент из списка
Кнопка "Добавить" добавляет содержимое текстового поля в список (удобно для быстрого внесения дополнений в список)
Кнопка "Перестановка" переставляет выбранный элемент в конец списка (удобно для произвольной сортировки списка)
Кнопка "Заменить" заменяет выбранный элемент содержимым текстового поля (удобно для небольших исправлений в написании элемента)
Кроме этого, элемент должен распечатываться двойным щелчком.
Попробуйте выполнить это задание самостоятельно. Если не получится, то вот программа:
Dim номер As String 'Номер выбранного элемента в списке
Private Sub Печать_Click()
Debug.Print Combo1.Text
End Sub
Private Sub Удаление_Click()
Combo1.RemoveItem Combo1.ListIndex
End Sub
Private Sub Добавить_Click()
Combo1.AddItem Combo1.Text
End Sub
Private Sub Перестановка_Click()
Combo1.AddItem Combo1.Text
Combo1.RemoveItem Combo1.ListIndex
End Sub
Private Sub Заменить_Click()
Combo1.List(номер) = Combo1.Text
End Sub
Private Sub Combo1_Click()
номер = Combo1.ListIndex
End Sub
Private Sub Combo1_DblClick()
Печать_Click
End Sub
Задание 123-1: "Англо-русский словарь". Поместите на форму два раскрывающихся списка. В левый запишите несколько десятков английских слов и упорядочте их по алфавиту. В правый запишите в том же порядке переводы этих слов на русский. При выборе слова в левом списке в правом должен появляться перевод.