Шаг 4 - Проверяем ActiveX

Проверять мы будем его с использованием VBA и Excel. Если представления о VBA у Вас нет никакого, а у многих его нет из принципа :-).

Итак, открываем Excel и создаем макрос с именем MyMacro. Переходим в редактор VBA. Там надо создать пользовательскую форму. Правой кнопкой на Microsoft Excel, объекты в окне Проект. И пукт меню Add User Form.

После этого на панель элементов надо поместить наш элемент. Правой кнопкой на пустом месте в "Элементы управления" и пункт меню "дополнительные элементы". Там в списке будет наш элемент. Квадратик против него надо выделить галочкой.

4_1.gif (2512 b)

После этого он появится на панели. Вы его узнаете, на нем будет написано OCX и всё. Но это в следующих шагах поменяем. Возмите его и поместите на диалоговое окно. Вы должны увидеть белый квадрат, а внутри него строку:

MyActiveX 2

Если помните это начальная инициализация. А вот в окне Свойства DMyActive1 появилось наше свойство.

4_2.gif (3798 b)

Поменяйте его на - Привет :-). Закройте форму. И измените код макроса.

Sub MyMacro()
	UserForm1.Show
End Sub

Запустите его. Там будет привет. Но это еще не все. Опять поменяйте код макроса:

Sub MyMacro()
	UserForm1.DMyActive11.MyText = "God Active"
	UserForm1.Show
End Sub

И опять запустите. Всё работает как часы. Опять меняем код для интереса:

Sub MyMacro()
	MsgBox (UserForm1.DMyActive11.MyText)
End Sub

Вы должны увидеть - "Привет".

Закройте редактор VBA сохраните книгу под любым именем. Выйдите из Excel. Запустите его снова. Откройте книгу. Зайдите в редактор VBA и снова посмотрите свойство DMyActive11 на форме. Оно осталось неизменным, несмотря на все операции. Ведь не зря же мы описали функции DoPropExchange() для обмена с контейнером.

Не знаю какие эмоции данный факт вызывает у Вас, а по мне круто. Он работает как настощий элемент. Хотя пока много непонятного. Но всё равно, Работает !!!


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 05.01.2000