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