Объекты, будь то апплеты 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;
- о свойствах, методах и событиях.
Следующий урок посвящен циклам и условным переходам.