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


Процедуры-функции


Процедура-функция — это последовательность выражений VBScript, заключенных между операторами Function и End Function. Процедуры-функции аналогичны подпрограммам, но, в отличие от них, способны возвращать значение. Процедура-функция может принимать аргументы (константы, переменные или выражения), передаваемые ей вызывающей процедурой. Если она не имеет аргументов, определяющий ее оператор Function должен содержать пустые скобки. Процедуpa-функция возвращает значение, присваивая его своему имени в одном или нескольких операторах. Тип возвращаемого значения — всегда Variant.

 

Пример Здесь объявляется процедура-функция, проверяющая значение даты. Затем показан пример вызова этой функции:

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. Введите приведенный ниже код и нажмите кнопку ОК:




    Начало  Назад  Вперед



    Книжный магазин