проверяющая значение даты. Затем показан

Пример 3

Здесь объявляется процедура-функция, проверяющая значение даты. Затем показан пример вызова этой функции: Function Validate(myDate)
If IsDate(myDate)
Then Validate = True
Else Validate = False
End If
End Function
'Событийная процедура, вызываемая при нажатии пользователем кнопки cmdTest
Sub cmdTestDate_OnClick()
Results = Validate(myDate)
End Sub
Теперь Вы создадите Web-страницу, с которой мы будем работать в следующих упражнениях этого занятия. > Создание Web-узла в Microsoft Frontpage 98

1. Запустите Frontpage 98.
2. Выберите Create a New Frontpage Web и нажмите ОК.
3. Выберите One Page Web, измените название на Exercise9 и нажмите ОК.

> Редактирование главной страницы

1. Дважды щелкните значок Home Page, чтобы открыть редактор Frontpage Editor.
2. В меню Insert выберите команду Form Field и щелкните One Line Textbox.
3. Правой кнопкой мыши щелкните кнопку Submit и выберите Form Field Properties.
4. Измените свойство Name на btnSquareIt.
5. Измените свойство Value/Label на Square.
6. Измените свойство Button Type на Normal и нажмите кнопку ОК.
7. Щелкнув кнопку Reset, удалите ее клавишей Delete.
8. Правой кнопкой мыши щелкните кнопку Square и выберите Form Properties.
9. 9. Измените имя Form Name на Form1 и нажмите кнопку ОК.

> Добавление сценария VBScript к главной странице

1. Поместите курсор рядом с кнопкой Square на форме.
2. В меню Insert выберите команду Advanced, Script.
3. Введите приведенный ниже код и нажмите кнопку ОК: Function SquareIt(Num)
   Squarelt = (Num * Num)
   End Function
   
4. Правой кнопкой мыши щелкните кнопку Square и выберите в меню команду Script Wizard.
5. В дереве объектов раскройте объект Form1, а затем — объект btnSquareIt.
6. Щелкните событие btnSquareIt OnClick и нажмите кнопку Code View в ниж ней части диалогового окна.
7. Введите приведенный ниже код для события OnClick и нажмите кнопку ОК: Dim Result
   On Error Resume Next
   Result = SquareIt(T1.Value)
   MsgBox T1.Value & " в квадрате = " & Result
   

> Проверка

1. Сохранив страницу, в меню File выберите пункт Preview in Browser.
2. Когда Web-страница появится в окне Internet Explorer, введите в текстовое поле целое число и нажмите кнопку Square. Введенное число будет обработано созданной Вами функцией Squarelt, а результат работы функции появится в окне сообщений.
   
3. Закройте Internet Explorer и Frontpage 98.