Учебник по VBScript
Dynamik HTML
© Питер, 2000  

Урок 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;
  • о свойствах, методах и событиях.

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

[ назад | на главную | начало | дальше ]


 

 
Hosted by uCoz