Метод AddItem (Добавить элемент)

Этот метод позволяет добавлять элементы в списки и комбинированные списки. В списки с несколькими столбцами метод AddItem добавляет строку элементов. Его вызов имеет вид:

Перем = объект. AddItem ([Item [, varindex]])

или

объект. AddItem [Item [, varindex]]

Здесь Перем - переменная типа Variant, объект - объект-список, в который добавляется элемент, Item - добавляемый элемент, varindex - номер добавляемого элемента или строки. Первый элемент (строка) в списке имеет номер 0. Значение varindex не должно превышать числа элементов списка ListCount. Если этот параметр не задан, элемент вставляется в конец списка. Поскольку в первом случае Перем в результате вызова получает пустое значение Empty, чаще используется второй вариант вызова.

Если в списке несколько столбцов, вставляемая непустая строка содержит непустое значение элемента для первого столбца и пустые значения для остальных. Чтобы установить непустые элементы во втором и остальных столбцах, можно использовать свойство List. Например, если в примере с добавлением списка NewList требуется, чтобы этот список содержал два столбца: "имя" и "фамилия", то блок операторов для его создания может выглядеть так:

Else ' добавляем список

AddElem. Width = 350 'Расширяем форму

Set NewCtrl = Controls. Add ("Forms. ListBox. 1", "NewList")

NewCtrl. ColumnCount = 2 'число столбцов списка

NewCtrl. Left = 96

NewCtrl. Top = 12

NewCtrl. Width = 200

NewCtrl. Height = 70

NewCtrl. AddItem ("Анна") '1-ая строка, 1-ый столбец

NewCtrl. List (0, 1) = "Павлова" '1-ая строка, 2-ой столбец

NewCtrl. AddItem ("Елена") '2-ая строка, 1-ый столбец

NewCtrl. List (1, 1) = "Образцова" '2-ая строка, 2-ой столбец

NewCtrl. AddItem ("Ирина") '3-я строка, 1-ый столбец

NewCtrl. List (2, 1) = "Архипова" '3-я строка, 2-ой столбец

NewCtrl. AddItem ("Мария") '4-ая строка, 1-ый столбец

NewCtrl. List (3, 1) = "Каллас" '4-ая строка, 2-ой столбец

Теперь диалоговое окно после добавления списка будет выглядеть так:

Рис. 13. 10.  Список с двумя столбцами

Для элементов, у которых установлен источник списка (свойство RowSource), метод AddItem неприменим.

Метод Clear (Очистить)

Этот метод удаляет все объекты, входящие в некоторый объект или коллекцию объектов. Из списка и комбинированного списка Clear удаляет все элементы списков, т. е. делает их пустыми. Из элементов набор страниц и полоса вкладок им удаляются все страницы и вкладки. Из коллекции элементов управления Controls метод Clear удаляет элементы, созданные при исполнении программы методом Add. Попытка удалить элементы, созданные на этапе проектирования приводит к ошибке. Нельзя также "чистить" элементы, данные которых связаны с основным объектом приложения, например, списки с установленным свойством RowSource. Вызов метода имеет вид:

объект. Clear

где объект - очищаемый объект или коллекция объектов.

Метод Copy (Копировать)

Этот метод выполняет копирование содержимого объекта в буфер обмена. Что именно копируется, зависит от объекта. Для поля ввода и комбинированного списка копируется выделенный в текущий момент текст. Для диалогового окна, страницы и рамки копируются активные (выбранные) в данный момент элементы. Вызов метода имеет вид:

объект. Copy

где объект - объект, для которого вызывается метод.

Копирование объекта не изменяет его.