Для проверки созданного ActiveX-элемента сделайте следующие шаги.
1.Запустите Visual Basic.
2.Создайте самый обычный проект типа Standard EXE.
3.Щелкните правой кнопкой мыши на панели элементов и в появившемся контекстном меню выберете Components.
4.В появившемся диалоговом окне найдите элемент Osco do Casco Stars (разумеется в том случае, если Вы задали именно такое описание в Project Description при задании свойств ActiveX-элемента - см. рис. 7). Если описание задали своё - то ищите его на соответствующем алфавитном месте. Если Вы забыли, что за описание дали, тогда дело не так хорошо, хотя, разумеется, не смертельно. Один из способов в этом случае - попытаться найти именно Ваш ActiveX-элемент по подсказке Location. Она показывает, где сохранён наш ocx-файл (Уж это-то Вы должны помнить - это был предыдущий раздел.))
5.Поставьте галочку рядом Osco do Casco Stars и нажмите кнопку OK.
6.Обратите внимание, что на панели элементов появился новый элемент. Если Вы поднесёте к нему мышку, то появится всплывающая подсказка Star. Двойным щелчком на элементе Star перенесите его на форму. На форме должен возникнуть треугольник.
7.Убедившись, что наш треугольник (он же Star1) на форме выделен, задайте в окне свойств для него новые n и m (любые, на Ваше усмотрение. Скажем задайте n=8 и m=3). Новые свойства тут же повлияют на внешний вид нашего Star1 - он из треугольника превратится в восьмиугольную звезду.
8.Для перехода в окно кода сделайте двойной щелчок на Star1. В появившейся заготовке кода для события Click нашего элемента Star1 введите следующий код:
Private Sub Star1_Click() Star1.m = Star1.m + 1 Star1.n = Star1.n + 1 End Sub
9.Запустите Вашу программу, нажав F5
10.Сделайте несколько щелчков на звезде и полюбуйтесь на происходящие изменения.
11.Закройте программу и возвратитесь к режиму разработки. Обратите внимание, что значения для n и m (8 и 3) сохранились.
12.Сохраните Вашу программу, и закройте Visual Basic.
13.Запустите Visual Basic и откройте только что сохранённый проект. Обратите внимание, что свойства n и m (8 и 3) для нашего элемента Star1 сохранились.
Далее