Архитектура 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 и нажмите ОК.
  4. > Редактирование главной страницы

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

  15. Поместите курсор рядом с кнопкой Square на форме.
  16. В меню Insert выберите команду Advanced, Script.
  17. Введите приведенный ниже код и нажмите кнопку ОК:


    Function SquareIt(Num)

    Squarelt = (Num * Num)

    End Function

  18. Правой кнопкой мыши щелкните кнопку Square и выберите в меню команду Script Wizard.


  19. В дереве объектов раскройте объект Form1, а затем — объект btnSquareIt.


  20. Щелкните событие btnSquareIt OnClick и нажмите кнопку Code View в ниж ней части диалогового окна.


  21. Введите приведенный ниже код для события 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.



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