Читайте также:
|
Элемент управления ListBox применяется для хранения списка значений. В списке пользователь выбирает один или несколько элементов, которые затем используются в программе.
В VBA имеется возможность задать число элементов в списке, которые можно выбирать одновременно. Если допускается выделение нескольких пунктов, то имеется возможность указать также, что выбранные элементы списка расположены либо последовательно, либо их порядок является произвольным. Способ выбора элементов определяется значением свойства MultiSelect. Его можно задать как в окне свойств, так и в программе. В таблице показаны значения, которые соответствуют описанным вариантам выделения:
| Вариант | Значение | Константа |
| Один элемент | 0 | FmMultiSelectSingle |
| Последовательные элементы | 2 | FmMultiSelectExtended |
| Произвольно расположенные элементы | 1 | FmMultiSelectMulti |
Приведем пример задания варианта выбора:
ListBox1.MultiSelect = FmMultiSelectExtended.
Для добавления элементов списка используется метод AddItem, который задается с параметром - № пункта:
ListBox.AddItem строка_элемента
Например, Sub Pop_List()
For I = 1 to 100
ListBox1.AddItem «Номер элемента:» + Str$(i)
Next i
End Sub заполняет список числами.
Свойство Text элемента управления ListBox выделенный в объекте пункт, если в списке задан выбор только одного элемента. Если же в элементе ListBox допускается выбор нескольких элементов, то свойство Text равно пустой строке. Кроме того, для определения выбранного в списке элемента используется свойство ListIndex, оно содержит № выделенного пункта. При определении нескольких выделенных элементов списка, требуется проверить каждый пункт, чтобы выявить выбран он или нет. Для этого используется свойство Selected, которое при указании индекса проверяемого пункта, возвращает результат проверки: True или False. Свойство ListCount содержит общее число элементов в списке. Нижняя граница индексов этого объекта = 0, поэтому требуется просмотреть все пункты, начиная с нулевого и заканчивая элементом с № (ListCount-1), который является № последнего пункта в списке.
For i=0 to (ListBox1.ListCount-1)
If ListBox1.Selected(i) Then
ListBox2.AddItem ListBox1.List (i)
End If
Next i
В некоторых случаях требуется удалить элементы из списка с помощью метода RemoveItem объекта ListBox. Параметром метода является № удаляемого пункта: ListBox.RemoveItem (индекс_пункта). Например, для очистки списка
For i=1 to (ListBox1.ListCount-1)
LisBox1.RemoveItem i
Next i.
Дата добавления: 2014-12-23; просмотров: 23 | Поможем написать вашу работу | Нарушение авторских прав |