Разработка событийных процедур
В этом упражнении Вы создадите код VBScript для подсчета общей стоимости товаров, выбранных в таблице Product.
Вы расширите функциональные возможности Web-страницы списка товаров Products.htm (воспользуйтесь оригиналом, находящимся в папке WA\Practice\Ch09).
> Добавление тэгов SCRIPT в Web-страницу Products
- Запустите Microsoft Frontpage 98.
- Создайте новую пустую страницу (Empty Web) и назовите ее Lab09.
- В меню File выберите Import.
- Щелкните Add File, выберите файл Lab09.htm в папке WA\Practice\Ch09 и нажмите ОК.
- Дважды щелкните Lab09.htm, чтобы открыть этот файл в редакторе Frontpage Editor.
- Поместите точку вставки справа от кнопки Calculate.
- В меню Insert укажите на Advanced и выберите Script.
- Введите приведенный ниже код и нажмите ОК:
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
> Применение мастера создания сценариев
- Щелкните правой кнопкой мыши кнопку Calculate и выберите в меню команду Script Wizard.
- В нижней части диалогового окна щелкните кнопку Code View.
- Свяжите с событием CalcTotal_OnClick формы frmButtonContainer приведенную ниже событийную процедуру:
IblTotal.Caption = TotalItO
- Нажмите ОК, чтобы закрыть окно мастера создания сценариев.
- Сохраните изменения.
- Щелкните кнопку Preview in Browser на панели инструментов.
- Заполните поля заказа товаров и нажмите Calculate.
- Переключитесь в окно Frontpage Editor.
- Правой кнопкой мыши щелкните счетчик в правом верхнем углу Web-стра ницы.
- Выберите Script Wizard.
- В событие spin1_SpinUp введите следующий код:
txtql.text = txtql.text + 1
- В событие счетчика spinl_SpinDown добавьте следующий код:
If txtql.text > 0 Then txtql.text = txtql.text - 1
- Повторите пункты 2—4 для каждой кнопки счетчиков Web-страницы, соответствующим образом изменяя имена текстовых полей (txtq2, txtq3, txtq4, и т.д.).
- Сохраните Web-страницу.
- Щелкните кнопку Preview in Browser на панели инструментов.
Возможно, Вам придется нажать кнопку Refresh для перезагрузки страницы.
- Введите какие-нибудь значения и попробуйте поменять их с помощью кнопок.
Элементы управления для изменения значений пока не содержат сценарного кода, поэтому значения приходится вводить вручную.
> Добавление событийной процедуры для элементов управления
Содержание раздела