Масиви елементів керування

Масив елементів управління це група ідентичних елементів управління (командні кнопки, текстові поля і т.д.) мають загальні процедури обробки подій.

Робота з масивами елементів управління вимагає менших витрат на написання програми і надає їй більшу гнучкість у роботі.

Майже всі елементи управління (але лише ідентичні) можуть організовуватися в масиви.

На даний момент часу існує два способи створення масиву елементів управління:

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

Створення масиву елементів управління під час виконання програми;

Розглянемо процес створення масиву елементів управління.

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

Якщо Вам відомо конкретну кількість тих чи інших елементів управління, то буде доцільніше створити їх під час розробки. Зробити це дуже просто.

Створюємо на формі, наприклад, елемент керування CommandButton1, переконуємося, що він він виділено та копіюємо його в буфер обміну (Ctrl + C). Далі виконуючи операцію Ctrl + V, отримуємо на формі ще один елемент управління CommandButton1. У результаті цих дій Ви створили масив елементів з двох командних кнопок! Тепер уважно перегляньте вікно 'Properties', там Ви побачите, що створені командні кнопки, які відрізняються один від одного тільки своїм індексом. Index - це те властивість, яке дозволяє елементів керування організовуватися в масиви. Відкривши вікно коду, Ви побачите, що не дивлячись на те, що на формі знаходяться дві командні кнопки, в розділі Object присутня тільки - Command1. Вибравши її Ви потрапите в процедуру обробки події

Click, зверніть увагу, що в даному випадку процедура містить аргумент Index. Аргумент Index вказує на індекс того елемента керування, для якого Згенеровано подія.

Якщо Ви слідували опису і створили на формі командні кнопки, то впишіть наступний код в процедуру обробки Click і Вам стане ясно як це працює.

Private Sub Command1_Click (Index As Integer)

'У заголовку форми відображаємо індекс натиснутою кнопки

Me.Caption = "Натиснуто кнопка з індексом -- "& Index

End Sub

Створення масиву елементів управління під час виконання програми

Якщо Вам заздалегідь не відомо кількість тих чи інших елементів управління, що необхідно буде створити, то не хвилюйтеся, тому що і це дуже просто. Створюємо на формі, наприклад, елемент керування CommandButton1, у вікні 'Properties' для властивості Index встановлюємо значення 0 (нуль). В результаті виконаних Вами дій створюється масив елементів керування з одним елементом. Для створення подальших елементів управління (в даному випадку командних кнопок) Вам необхідно буде ввести відповідний код в процедуру обробки події виконанні при якій повинен (або повинні) виникнути нові елементи управління. У даному випадку ми вставляємо код в процедуру обробки події Form_Load форми.

Private Sub Form_Load ()

'Створюємо нову командну кнопку до існуючого масив

Load Command1 (1)

'Розміщуємо її там, де Вам необхідно ...

Command1 (1). Top = Command1 (0). Top + Command1 (0). Height

Command1 (1). Left = Command1 (0). Left

'Робимо нову кнопку видимої

Command1 (1). Visible = True

End Sub

От і все!

Якщо Ви слідували опису і створили на формі командні кнопки, то впишіть наступний код в процедуру обробки Click і Вам стане ясно як це працює.

Private Sub Command1_Click (Index As Integer)

'У заголовку форми відображаємо індекс натиснутою кнопки

Me.Caption = "Натиснуто кнопка з індексом -- "& Index

End Sub

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://visualprogs.narod.ru/