Глава 4. ИСПОЛЬЗОВАНИЕ ЭЛЕМЕНТОВ

УПРАВЛЕНИЯ ActiveX

Циклы при использовании одного элемента ActiveX

Еще раз воспользуемся возможностями ActiveX Control Pad, чтобы на экране пользователя создать закладки, перемещение по которым позволяет, не покидая открытую страницу рассматривать различную информацию, которая находится на вкладке. Следует оговориться, что можно такую структуру создать с помощью фреймовой структуры, в которой ярлыки закладок собираются в верхнем фрейме, а при нажатии на одну из них, в нижнем фрейме открывается новая Web-страница, в этом случае никаких элементов ActiveX не понадобится. В данном примере, показан сценарий на стороне клиента, позволяющий использовать одну процедуру для отображения разнообразных ресурсов в открытой Web-странице. Процедура обрабатывает событие – щелчок левой клавиши мыши по ярлыку закладки, каждый ярлык проиндексирован, что позволяет в цикле контролировать номер индекса, и подключать необходимый ресурс. Под ресурсами понимаются сведения, которые отображаются в плавающем фрейме на экране компьютера. Плавающий фрейм создается с использованием тэга <IFRAME>. В реестре Windows существует элемент ActiveX под наименованием “Microsoft 2.0 TabStrip”, обладающий параметрами для установки шрифта, его размера и стиля отображения закладок. Поэтому, при формировании программного кода с помощью ActiveX Control Pad, потребуется ввести всего один параметр, который позволят создать эффект утопить ярлык закладки: <PARAM NAME="style" Value="1">.

Программный код Web- страницы представлен без включения в него программы на VBScript специально, чтобы наглядно показать, страницу, состоящую из двух элементов. Первый элемент – TabStrip (ID=ZT), загруженный в виде объекта, а второй элемент – плавающий фрейм, созданный тэгом <IFRAME> (ID=FR).

Листинг 13.

<HTML>

<HEAD>

<TITLE>Закладки на Web-странице</TITLE>

</HEAD>

<OBJECT ID=ZT

CLASSID="clsid:1EFB6596-857C-11D1-B16A-00C0F0283628"

Width=600 Height=40>

</OBJECT>

<BR>

</IFRAME>

</BODY>

</HTML>

На рис. 29 показана Web-страница, на которой изображены ярлыки с наименованием сведений, которые можно отобразить в плавающем фрейме. Обратите внимание на то, что параметр Width для обоих элементов имеет одинаковую величину, что создает иллюзию связи обоих элементов. Первоначальная информация в плавающем фрейме отображает содержимое диска C:/.

Рис. 29. Web-страница с отображением папок на диске C:/

Сценарий на VBScript представлен на листинге ниже. Следует напомнить, что расположение сценария внутри HTML-кодов не имеет жесткой привязки, главное его поместить после открытого тэга <SCRIPT Language=”VBScript>, а завершить – закрывающим тэгом </SCRIPT> (обычно программные коды сценария вставляются после тэга <HEAD>). Это объясняется тем, что при раскрытии Web-страницы интерпретатор последовательно читает все коды и готовит необходимые рабочие области операционной системы для выполнения событий. Листинг 14 программных кодов на VBScript:

Листинг 14.

Dim Zakl(3)

Zakl(0)="Файлы и папки на C:/"

Zakl(1)="Поиск на yahoo.com"

Zakl(2)="Просмотр пособия"

Zakl(3)="Primers VBScript"

Dim Soed(3)

Soed(0)="C:/"

Soed(1)="http://www.yahoo.com"

Soed(2)="VBScript-разработка приложений.doc"

Soed(3)="C:/Павлов/VBScript-Интерактивные приложения/"

Sub Window_OnLoad()

For i=1 To 4

ZT.Tabs(i).Caption=Zakl(i-1)

If i<4 Then

ZT.Tabs.Add()

End if

End Sub

Sub ZT_Click()

document.all.FR.src=Soed(ZT.SelectedItem.Index-1)

End Sub

</SCRIPT>

Особенностью объектов, которые используются в программе, является то, что при создании массивов индексы для переменных присваиваются, начиная с 0, в то время как, для объекта TabStrip, параметр ярлыков (Tabs) начинается с индекса равного 1, что отражено в строке: ZT.Tabs(i).Caption=Zakl(i-1).

При загрузке на экран пользователя (событие OnLoad()) осуществляется запись на ярлыках закладок текстовых значений, которые отражены в массиве Zakl(3). При щелчке мышью по ярлыку закладки (событие Click) производится передача параметра из массива Soed(3) объекту с именем FR. Можно создать структуру с ярлыками закладок на Web-странице для решения разнообразных задач, в приведенном примере, показано, как можно организовать подключение и просмотр в плавающем фрейме различных видов ресурсов (содержимое системного диска, подключение к поисковой системе в сети Интернет, открытие файла с текстом, подключение приложения с определенного места). Чтобы посмотреть, как работает программа, следует воспользоваться гиперссылкой: ПРИМЕР12.