End Sub. Процедуры, управляемые событиями

Процедуры, управляемые событиями

Общие процедуры

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

Приложения Visual Basic состоят из небольших автономных сегментов. Создаваемый программный код также не является монолитным набором операторов. Он состоит из небольших сегментов, называемых процедурами.

Процедура – это совокупность операторов, которая выполняется системой как единое целое. В системе Visual Basic те процедуры, которые получают управление, когда происходит некоторое события, называются событийными процедурами, или процедурами обработки событий. Все другие процедуры называются общими.

Процедуры могут быть определены как подпрограммы (Sub - процедуры) или функции (Function).

Процедура, которая не вызывается в качестве реакции на происшедшее событие, называется общей процедурой:

· Происходящие события часто вызывают необходимость выполнения каждый раз одних и тех же действий. Чтобы избежать повторения кода, можно вызывать одну единственную общую процедуру вместо вызова некоторого множества процедур, управляемых событиями.

· Если общая процедура определена в модуле формы, она может быть вызвана любой процедурой, управляемой событием этой формы.

· Если общая процедура должна вызываться в любом месте приложения, она должна размещаться в модуле кода, т.е. в BAS – файле.

Когда в системе VB происходит событие, например при помощи мыши нажимается кнопка, вызывается событийная процедура, соответствующая нажатой кнопке и происходящему событию (щелчок мыши). Visual Basic автоматически создает шаблон событийной процедуры с соответствующим именем, которое образуется из имени объекта управления и типа события.

Формат событийной процедуры:

Private Sub Имя Объекта Управления_ Имя События ()

Операторы

Имя процедуры состоит из:

· Имени объекта управления;

· Символа подчеркивания;

· Имени события.

Например, если кнопка называется NewBotton и нажимается один раз кнопка мыши (производится щелчок), происходит событие Click. В этом случае событийная процедура будет называться NewBotton_Click

Замечание: Для именования процедуры используется имя Name ( имя ) объекта управления, но не свойство Caption (заголовок).

Упражнение 2

1. Добавьте в проект новый файл. Присвойте ему имя FrmPr и заголовок Caption = процедуры и функции.

2. Добавьте в проект модуль с именем MyLibrary. Для этого в окне проекта вызовите контекстное меню и выполните команду Add ► Module. Когда появится диалоговое окно Add Module, перейдите на вкладку Новые (New)., нажмите кнопку Открыть, чтобы включить его в состав вашего приложения. Задайте свойству Name Значение MyLibrary.

3. Дважды щелкните по файлу MyLibrary.bas в окне проекта. Откроется окно программы.

4. В окне проекта введите следующий код:

Public Sub ShowHourglass()

Screen.MousePointer =11

End Sub

Процедура создает указатель мыши виде песочных часов. Однако указатель подобного вида необходимо по возможности вернуть к исходному виду, поскольку рн обычно используется, чтобы показать что приложение работает.

5. Добавьте в модуль следующий фрагмент:

Public Sub ShowMousePointer()

Screen.MousePointer =0

End Sub

6. Выполните команду File ►Save MyLibrary в меню VB.

Процедуры ShowHourglass и ShowMousePointer пригодятся в тех случаях, когда программа занята, а пользователю приходится ждать ее освобождения. Вызовите ShowHourglass в начале, а ShowMousePointer в конце периода ожидания. Чтобы смоделировать эту ситуацию, выполним следующие действия.

7. Установим на форму кнопку управления, свойству Name, которой присвоим значение cmdPointer, а свойству Caption значение Покажи.

8. Установите на форму элемент управления Timer. Присвойте свойству Interval = 10000

9. Дважды щелкните по кнопке. В появившемся программном окне напишем фрагмент кода события Click

Private Sub CmdPointer_Click()

Dim OldTimerAs Integer

CmdPointer.Caption = "Песочные часы"

ShowHourglass

OldTime = Timer()

While Timer() - OldTime < 5

Wend

CmdPointer.Caption = "Стрелка - мышь"

ShowMousePointer

End Sub

9. Запустите приложение. Нажав кнопку Показать, вы поймете, что делает приложение. В программный. код события Click включен объект Timer, который дает нам возможность имитировать задержку загрузки виртуального программного кода, которая по нашим данным равна 5 секундам. Строки ShowHourGlass и ShowMousePointer сдужат для вызова процедур «Песчные часы» и «Стрелка - мышь». Назначение остальных операторов ясно из программы. Вид работающего приложения имеет примерно такой как на рис 2.

Дата добавления: 2015-05-10