Использование компонентов ActiveX

Можно форму со всеми объектами или отдельный ее элемент оформить в виде ActiveX‑элемента (п.14.1) и включить его в HTML‑страницу. Это позволяет использовать язык Visual Basic при создании страниц.

Доступ к компонентам (элементам и формам) ActiveX, выполняемым на клиентской машине, реализуется тегом: <OBJECT>...</OBJECT> с атрибутами: ID (идентификатор компонента на странице), ClassID (после текста “CLSID:” указывается идентификатор GUID, идентифицирующий компонент и хранящийся в системном реестре), Codebase (файл с компонентом, если компонент отсутствует в системном реестре), AccessKey, Align, Class (класс стиля), Data (URL данные для компонента времени выполнения), Datasrc (идентификатор элемента управления, с которым связывается компонент), Events, Standby (сообщение, выводимое при загрузке объекта), Height, Language (язык, используемый в атрибутах событий), Name (имя компонента), Style (атрибуты стиля компонента), Type (MIME‑тип процессора сценариев), TabIndex, Width.

Для компонента необходимы атрибуты: ID, ClassID или Codebase.

После загрузки компонент обычно устанавливает свои свойства и их значения путем использования тега <PARAM атрибуты> с атрибутами: ID (имя элемента), Name и Value (имя и значение свойства), Datafld (поле базы, связанное с компонентом, ValueType (тип значения: data (строка), ref (URL), object (ID объекта). Один тег описывает один параметр. Эти теги располагаются между <OBJECT>и </OBJECT>.

Пример вывода AciveX‑элемента Calendar (календарь) для выбора нужной даты (рис.1.2.12.1). Вызовем редактор реестра из строки запуска программ командой RegEdit. Найдем идентификатор GUID для календаря в колонке Data или в строке статуса. Для поиска компонента по его имени можно воспользоваться командой поиск ^F.

Рисунок - 1.2.12.1. Вид страницы с ActiveX Calendar

<HTML><HEAD><TITLE>Работа с кнопками</TITLE>

Sub Knopka1_OnClick процедура обработки нажатия кнопки Knopka1

Alert “Выбрана дата “ & Form1.calendar.Value ‘ вывод выбранной даты

End Sub 'конец процедуры кнопки “Вывести выбранную дату”

Sub Knopka2_OnClick 'процедура обработки нажатия кнопки Knopka

Form1.calendar.Value=DateValue(date()) ‘установка текущей даты

End Sub 'конец процедуры “Установить текущую дату”

</SCRIPT></HEAD>

<OBJECT ID=“calendar“ width=“250“ height=“150“

ClassID=“CLSID:8E27C92B-1264-101C-8A2F-040224009C02“>

</OBJECT> </P> <P ALIGN=“Center“>

<INPUT TYPE=“button“ NAME=“Knopka1“

VALUE=“Вывести выбранную дату“>

<INPUT TYPE=“button“ NAME=“Knopka2“

VALUE=“Установить текущую дату“></P>

</FORM></BODY></HTML>