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


Процедуры-функции - часть 2


Function SquareIt(Num)

Squarelt = (Num * Num)

End Function

  • Правой кнопкой мыши щелкните кнопку Square и выберите в меню команду Script Wizard.
  • В дереве объектов раскройте объект Form1, а затем — объект btnSquareIt.
  • Щелкните событие btnSquareIt OnClick и нажмите кнопку Code View в ниж ней части диалогового окна.
  • Введите приведенный ниже код для события 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.




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



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