Создание массивов элементов управления на этапе разработки

Имеется несколько способов создания массивов элементов управления на этапе разработки:

• копирование и вставка элемента управления;

• присвоение двум существующим элементам управления одного типа одинаковых имен;

• присвоение существующим элементам управления одного типа одинаковых имен.

Алгоритм работы по созданию массива элементов управления путем копирования:

1. Поместите на форму первый элемент управления и задайте начальные значения свойств, общие для всех элементов управления.

2. Установите свойство Name этого элемента.

3. Скопируйте элемент управления и вставьте его в форму. На запрос программы: “Создать массив элементов управления?” ответьте утвердительно. Запрос выдается только при вставке первой копии элемента управления.

4. Повторяйте операцию вставки, пока на форму не будет добавлено нужное количество элементов управления.

Алгоритм работы по созданию массива элементов управления путем присвоения двум однотипным элементам управления одинаковых имен:

1. Поместите на форму два одинаковых элемента управления.

2. Присвойте имя первому элементу управления.

3. Присвойте такое же имя второму элементу управления. Программа выдаст запрос о создании массива элементов управления. Ответьте утвердительно.

Алгоритм работы по созданию массива элементов управления путем присвоения однотипным элементам управления одинаковых имен:

1. Создайте нужное количество элементов управления.

2. Присвойте второму элементу управления такое же имя, как и у первого элемента. Программа выдаст запрос о создании массива элементов управления – ответьте утвердительно.

3. Присвойте такие же имена остальным элементам управления. значения индексов устанавливаются автоматически.

Примечание. Индекс первого элемента управления может быть отличным от нуля.

При программировании массива элементов управления используется следующий синтаксис:

ИмяЭлементаУправления (Индекс).Свойство = Значение

Например:

txtText1(0).Text = “Фамилия”

txtText1(1).Text = ”Имя”

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

Для динамического добавления элементов управления на форму используется оператор Load и метод Add.

Создайте элемент управления и присвойте свойству Index начальное значение. Введите команду

Load объект(индекс)

Оператор Load копирует значения всех свойств объекта, кроме Visible, Index и TabIndex, из первого элемента массива. Поэтому вновь созданный элемент управления размещается под исходным элементом управления и недоступным. Чтобы сделать этот элемент управления доступным, необходимо сместить его в сторону используя свойства Top и Left, а также, присвоить свойству Visible значение True:

объект(индекс).Top = объект(индекс-1).Top + объект(индекс-1). Height

объект(индекс).Left = объект(индекс-1).Left + объект(индекс-1). Height

объект(индекс).Visible = True

Попытка загрузки уже существующего элемента управления вызывает ошибку периода выполнения. Если свойство Index у объекта не установлено, то также выдается сообщение об ошибке.

Удаление элементов массива элементов управления осуществляется оператором Unload. Нельзя удалять исходный (нулевой) элемент массива, так как после этого его нельзя будет восстановить программным путем:

Unload объект(Index)

.

Пример 3.11. Добавление элементов управления по щелчку мыши по

кнопке cmdAddTextbox:

Private Sub cmdAddTextBox_Click().

Dim i As Integer.

‘ищем следующий доступный индекс (индексация от 0)

i = txtMassiv().Count

‘помещаем новый элемент управления в форму

Load txtMassiv(i)

‘позиционируем новый элемент массива

txtMassiv(i).Top = txtMassiv(i-1).Top + txtMassiv(i).Height

’делаем новый элемент массива видимым

txtMassiv(i).Visible=True.

End Sub