омпонентів елемента управління») (рис.12).
Рис. 12
Це вікно містить список «My Custom Members» («Мої власні компоненти»), спочатку він порожній. Для додавання власних властивостей (методів, подій) натискаємо на кнопку «New ...». З'являється вікно «Add Custom Members» («Додавання власного компонента») (рис.13).
У поле Name за допомогою клавіатури вводимо ім'я властивості - «Caption» .Це інформує Майстри, що саме цим ім'ям буде називатися - властивість, метод чи подію. У рамці «Type» (Тип) натискаємо відповідно рядок (Property - властивість, Method - метод, Event - подія). Після введення імені компонента і визначення його типу, натискаємо кнопку OK.
Рис.13. Вікно додавання власного компонента.
Введене ім'я з'являється в списку «My Custom Members» («Мої власні компоненти») (рис.14).
Рис.14. Вікно Майстра (крок 3) з введеними іменами властивостей.
Натискаємо на кнопку Next для переходу до четвертого етапу.
З'являється вікно «ActiveX Control Interface Wizard - Set Mapping (Майстер елементів управління ActiveX - Встановлення відображення) (рис.15).
Рис.15. Вікно Майстра - крок 4.
Це вікно містить два поля. Ліве поле «Public Name» (Глобальне ім'я) - це список імен власних компонентів, які були введені на попередньому кроці. Праве поле «Maps to» (Відображення на) містить комбінований список «Control» (Елемент управління) і комбінований список «Member» (Компонента).
На цьому кроці можна встановити зв'язок між виділеним в лівому полі властивістю або властивістю будь-якого елементу управління, з якого складається елемент управління, який розробляється. Розроблюваний мною елемент управління - Label, складається з стандартного елемента керування Label. За допомогою цього вікна я покажу, що властивість Caption елементу управління - це властивість Caption елементу управління Label1, який входить до складу Label1.
Для того, щоб встановити таке відображення, виділяємо ім'я в лівому полі, наприклад, Caption (Натискаємо на нього ЛКМ). У правому полі відкриваємо список «Control» і вибираємо значення Label1. Відкриваємо нижче розташований список «Member», в ньому вибираємо рядок «Caption» (рис.16).
Рис.16. Відображення властивості Caption елемента керування Label на властивість Caption елементу управління Label1.
Натискаємо на кнопку Next для переходу до п'ятого етапу.
На п'ятому етапі з'являється останнє вікно. Майстер має всю необхідну інформацію для автоматичної генерації відповідного програмного коду. Для завершення роботи Майстра необхідно натиснути на кнопку «Finish» (Кінець) (рис.17).
Рис.17. Вікно Майстра - крок 5, останній.
Після завершення роботи Майстра можна переглянути програмний код.
Private Sub UserControl_Initialize ()
Встановлюємо положення мітки .Left=0.Top=0
Розмір меткі'.Width=UserControl.Width/4.Height=UserControl.HeightSubSub UserControl_Resize () UserControl_InitializeSub
WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=Label1, Label1, - 1, CaptionProperty Get Caption () As String=Label1.CaptionPropertyProperty Let Caption (ByVal New_Caption As String) .Caption ()=New_Caption Caption Property
'Load property values ??from storageSub UserControl_ReadProperties (PropBag As PropertyBag) .Caption=PropBag.ReadProperty ( Caption raquo ;, Label1 ) Sub
'Write property values ??to storageSub UserControl_WriteProperties (PropBag As PropertyBag) PropBag.WriteProperty ( Caption raquo ;, Label1. Caption, Label1 ) Sub
. 3 Тестування елемента керування на етапі проектування
Для тестування розробленого елемента керування на етапі проектування прикладної програми (design time) в середовищі ООП VB 6 був створений новий проект Standard EXE, до якого був підключений розроблений елемент керування. Відповідний значок UserControl з'явився на панелі стандартних елементів (рис.18)
Рис.18. Значок UserControl на панелі стандартних елементів.
Після подвійного клацання миші на цьому значку розроблений елемент управління був розміщений на формі в початковому вигляді, що свідчить про те, що процедура ініціалізації відпрацювала коректно і без збоїв (рис.19).
Рис.19.
