Основы офисного программирования и язык VBA


Пример 5.8


Sub TestOfCollection()

'Так объявляются объекты (переменные) типа Collection

Dim MyCollection As New Collection

'Объявление обычных локальных переменных

Dim i As Integer

Dim N As Long

'Оператор With позволяет избежать многократного указания имени объекта

With MyCollection

N =.Count

Debug.Print" Число элементов пустой коллекции =", N

' Добавление элементов в конец списка.

'Элементы имеют индексы, но не имеют ключа.

.Add (2)

.Add (4)

.Add (6)

'Добавление нечетных элементов на свои места.

'Заметьте, как указывается позиция

'добавления c использованием параметров - before и after

' Добавляемые элементы имеют строковый тип и обладают ключом

.Add" один"," first", 1 ' before (перед первым элементом)

.Add" три"," third",, 2 'after (после второго)

.Add" пять"," fifth",, 4

N =.Count

Debug.Print" Число элементов после 6-и вызовов метода Add", N

Debug.Print" Элементы коллекции:"

' Отладочная печать созданной коллекции из шести элементов.

For i = 1 To MyCollection.Count

Debug.Print MyCollection(i)

Next

' Удаление 4-го и 5-го элементов по заданному индексу и ключу.

.Remove 4

.Remove" fifth"

N =.Count

Debug.Print" Число элементов после двух вызовов метода Remove=", N

Debug.Print" Элементы коллекции:"

'И снова печать коллекции, в которой теперь четыре элемента.

For i = 1 To MyCollection.Count

Debug.Print MyCollection(i)

Next

End With

End Sub




Начало  Назад  Вперед



Книжный магазин