Урок 4. Объекты и VBScript

Объекты, будь то апплеты Java или элементы управления ActiveX, расширяют возможности HTML. Используя VBScript, вы можете работать с этими объектами, объединяя их и управляя их свойствами с помощью сценария. На этом уроке мы рассмотрим, как вы можете использовать возможности объектов с помощью VBScript.

Работа с объектом в сценарии включает две стадии:

добавление объекта на страницу;

написание программы обработки событий, связанных с данным объектом.

Добавление объектов на страницу

Это учебник по VBScript, а не по HTML, та кчто мы опишем этот процесс очень кратко. Объекты добавляются на страницу с помощью тега <OBJECT>. Свойства илихарактеристики объекта задаются в теге <PARAM>. Обычно мы можем увидеть в коде страницы теги <OBJECT> и </OBJECT>, в которые заключены несколько тегов <PARAM>, например:

<OBJECT id="lblTotalPay" WIDTH=45 HEIGHT=24

CLASSID="CLSID:978CE23 - D4B0 - 11CE - BF2D - 00AA003F40D0">

<PARAM NAME="ForeColor" VALUE="0">

<PARAM NAME="BackColor" VALUE="16777215">

<PARAM NAME="Caption" VALUE=" ">

<PARAM NAME="Size" VALUE="1582;635">

<PARAM NAME="SpecialEffect" VALUE="2">

<PARAM NAME="FontHeight" VALUE="200">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

Связывание кода на VBScript с объектами

После того как вы добавили элемент управления на страницу, вы можете изменять его конфигурацию, управлять им и обращаться к его содержимому с помощью его свойств, методов и событий. Свойства -- это характеристики объекта. Это может быть надпись на нем, цвет фона, размер шрифта и многое другое. Методы позволябтобъекту выполнять задачу. События -- это действия, которые "понимает" данный объект. например, кнопка понимает щелчок на ней -- событие OnClick.

По большей части вы будете работать с событиями и свойствами. Ниже приведен пример установки свойств для элемента управления label.

<SCRIPT LANGUAGE="VBScript">

Sub cmdCalculatePay_onClick()

Dim HoursWorked

Dim PayRate

Dim TotalPay

HoursWorked = InputBox("Введите часы работы: ")

PayRate = InputBox("введите тариф: ")

TotalPay = HoursWorked * PayRate

lblTotallPay.caption = TotalPay

End Sub

</SCRIPT>

Свойству caption этого объекта присваивается значение, равное результату вычисления в строке сценария:

document.frmPayRate.lblTotalPay.caption = TotalPay

Свойства объекта доступны с помощью такогоже синтаксиса, как и в упражнении 2.

Третье упражнение по VBScript

В третьем упражнении мы усовершенствуем страницу, созданную в упражнении 2. После этого мы сможем показывать результаты не в диалоговом окне VBScript, а с помощью элементов управления VBScript, являющихся частью страницы. Следуйте инструкциям, для того чтобы научитьс яработать с объектами ActiveX средствами VBScript.

Упражнение 3: работа с объектами

В этом упражнении вы создадите документ HTML, содержащий сценарий, который получает данные со страницы, делает с ними вычисления и возвращает результат обратно на страницу.

Исследование документа HTML

загрузите файл p0003a.txt в текстовый редактор. Это часть страницы, содержащая только HTML, уже созданная для вас. Этот документ содержит три элемента управления ActiveX типа label, которые нызваны lblSubtotal, lblTaxes и lblTotalCost. Сохраните файл под другим именем. Мы будем изменять исходный текст, так что лучше это делать с копией.

Заргузите файл в Internet Explorer(сохранив с расширением .HTM) . Результат будет таким. Вы, наверное, уже поняли, что после щелчка на кнопке ничего не произойдет. Теперь, как и в предыдущих упражнениях, добавим сценарий.

Добавление VBScript

Дополним документ выделенными строками сценария.

<HTML>

<HEAD>

<TITLE>Работа в VBScript: Упражнение 3</TITLE>

<SCRIPT LANGUAGE="VBScript">

<!--Эта инструкция добавляется для броузеров, не понимающих модули VBScript.

Option Explicit

Sub cmdCalculate_OnClick()

Dim AmountofTax

Dim Subtotal

Dim TAX_RATE

Dim TotalCost

'Определяем константы

TAX_RATE = 0.06

'Устанавливаем порядок расчета

Subtotal = document.frmExercise3.txtQuantity.value _

* document.frmExercise3.txtUnitPrice.value

AmountofTax = Subtotal * TAX_RATE

TotalCost = Subtotal + AmountofTax

'Отображение результатов.

document.frmExercise3.lblSubtotal.value = Subtotal

document.frmExercise3.lblTaxes.value = AmountofTax

document.frmExercise3.lblTotalCost.value = TotalCost

End Sub

-->

</SCRIPT>

</HEAD>

...

Сохраните файл и заргузите его в Internet Explorer. Введите 100 в поле Количество и 10 в поле Стоимость изделия.

Как это работает

Упражнение 3 -- всего лишь модификация упражнения 2. Так что мы сосредоточимся на отличиях, вместо того чтобы снова комментировать каждую строчку.

Минимальные изменения коснулись раздела, где объявляются и задаются переменные. Нам не нужно так много переменных и консант в данном примере, так что лишние просто убраны.

Dim AmountofTax

Dim Subtotal

Dim TAX_RATE

Dim TotalCost

'Определяем константы

TAX_RATE = 0.06

Метод вычислений предварительного итога , комиссионных и окончательного итога одинаков для обоих примеров, так что не будем на нем останавливаться.

Новая страница отличается способом вывода результата. Сценарий был изменен: была удалена функция MsgBox , а на ее место мы поместилисвойства caption трех элементов управления.

'Отображение результатов.

document.frmExercise3.lblSubtotal.value = Subtotal

document.frmExercise3.lblTaxes.value = AmountofTax

document.frmExercise3.lblTotalCost.value = TotalCost

Для обращения к нужным свойствам необходимо пройти несколько "ступеней".

document Наш Web-документ

frmExercise3 Форма, в которой находится искомый элемент ActiveX

lblTaxes Название элемента управления

value Свойство, которое устанавливаем

Хочется верить, что теперь вам стало проще понимать VBScript и работать с ним. Лучшим способом закрепить эти умения будет взять несколько примеров из первых уроков и переделать так, чтобы они выполняли ваши собственные задачи.

Резюме

Вот и третий урок позади. Понятно, что объекты -- слишком большая тема для такого маленького урока. С другой стороны, его целью было лишь познакомить вас с объектамии показать общие моменты в использовании с помощью VBScript.

Вы узнали:

что такое объекты и как они могут быть использованы с помощью VBScript;

о свойствах, методах и событиях.

Следующий урок посвящен циклам и условным переходам.