Архитектура Microsoft Windows для разработчиков

       

Разработка событийных процедур


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

Вы расширите функциональные возможности Web-страницы списка товаров Products.htm (воспользуйтесь оригиналом, находящимся в папке WA\Practice\Ch09).

> Добавление тэгов SCRIPT в Web-страницу Products

  1. Запустите Microsoft Frontpage 98.
  2. Создайте новую пустую страницу (Empty Web) и назовите ее Lab09.
  3. В меню File выберите Import.
  4. Щелкните Add File, выберите файл Lab09.htm в папке WA\Practice\Ch09 и нажмите ОК.
  5. Дважды щелкните Lab09.htm, чтобы открыть этот файл в редакторе Frontpage Editor.
  6. Поместите точку вставки справа от кнопки Calculate.
  7. В меню Insert укажите на Advanced и выберите Script.
  8. Введите приведенный ниже код и нажмите ОК:

    Function TotalIt()

    Dim price

    On Error Resume Next

    price = txtQ1.Text * 2.99

    price = price + txtQ2.Text * 75.59



    price = price + txtQ3.Text * 1.75

    price = price + txtQ4.Text * 7.99

    price = price + txtQ5.Text * 4.99

    Totallt = price

    End Function

    > Применение мастера создания сценариев

    1. Щелкните правой кнопкой мыши кнопку Calculate и выберите в меню команду Script Wizard.
    2. В нижней части диалогового окна щелкните кнопку Code View.
    3. Свяжите с событием CalcTotal_OnClick формы frmButtonContainer приведенную ниже событийную процедуру:

      IblTotal.Caption = TotalItO

    4. Нажмите ОК, чтобы закрыть окно мастера создания сценариев.
    5. Сохраните изменения.
    6. Щелкните кнопку Preview in Browser на панели инструментов.
    7. Заполните поля заказа товаров и нажмите Calculate.
    8. Элементы управления для изменения значений пока не содержат сценарного кода, поэтому значения приходится вводить вручную.

      > Добавление событийной процедуры для элементов управления

      1. Переключитесь в окно Frontpage Editor.
      2. Правой кнопкой мыши щелкните счетчик в правом верхнем углу Web-стра ницы.
      3. Выберите Script Wizard.
      4. В событие spin1_SpinUp введите следующий код:

        txtql.text = txtql.text + 1

      5. В событие счетчика spinl_SpinDown добавьте следующий код:

        If txtql.text > 0 Then txtql.text = txtql.text - 1

      6. Повторите пункты 2—4 для каждой кнопки счетчиков Web-страницы, соответствующим образом изменяя имена текстовых полей (txtq2, txtq3, txtq4, и т.д.).
      7. Сохраните Web-страницу.
      8. Щелкните кнопку Preview in Browser на панели инструментов.

        Возможно, Вам придется нажать кнопку Refresh для перезагрузки страницы.

      9. Введите какие-нибудь значения и попробуйте поменять их с помощью кнопок.


      10. Содержание раздела