End Sub. Global User As string

Public Sub InitApp

Global ACL As string

Global User As string

Option Explicit

Область видимости переменных

Переменные могут быть объявлены в модулях, формах или процедурах.

· Если переменная объявлена внутри процедуры, то доступ к ней возможен,

только из кода данной процедуры, даже если она объявлена как Static.

· Переменная, объявленная в секции General ( общая ) формы доступна в пределах всей формы.

Область видимости переменных, объявленных на уровне модуля, зависит от ключевых слов, использованных при их объявлении.

· Если переменная используется во всех процедурах модуля или формы, то её объявляют в разделе определения формы. Область видимости её в этом случае форма, где она объявлена. Если переменная должна быть доступна всему приложению, то она объявляется как Public (вместо оператора Dim). Она имеет глобальную видимость.

Кроме типа и области видимости переменные характеризуются временем жизни. Переменная, объявленная в процедуре, по завершении процедуры прекращает своё существование и выделенная ей память возвращается системе. Так же ведут переменные, объявленные в модуле. При повторном вызове процедуры или модуля эти переменные создаются вновь и инициализируются.

· Если переменная объявлена посредством Dim, то область ее видимости - модуль.

Dim Res as string

Global Your Name as string.

Чтобы лучше понять, чем отличаются области видимости, выполним следующее упражнение.

Упражнение 5

1 Добавьте в проект модуль – для этого следует щелкнуть правой кнопкой мыши в окне проекта и выбрать из контекстного меню Add ►Module.

2 В диалоговом окне Add Module выберите значок Module. Созданный модуль Module1 открывается в окне программы.

3 В окно программы добавьте следующий фрагмент:

4 Добавьте в Module1 следующую процедуру:

User =”Павел”

ACL = 255

Объявление переменных User и ACL с ключевым словом Global позволяет обратиться к ним из любой процедуры или модуля данного приложения.

Поскольку функция InitApp находится внутри модуля и сопровождается ключевым словом Pudlic, она является глобальной и может быть вызвана из любой процедуры приложения. В ней происходит инициализация приложения – переменной User присваивается значение “Павел”, а переменной ACL – 255.

5 Добавьте в проект новую форму.

6 В окне свойств задайте свойству Name формы Form1 значение frmLogon, свойству Caption – значение Регистрация пользователя.

7 Создайте на форме надпись. Задайте свойству Name значение lblUser, а свойству Caption - Имя пользователя:.

8 Создайте под надписью lblUser еще одну надпись, задайте имени Name значение lblPassword, а свойству Caption - значение Пароль.

9 Добавьте текстовое поле от первой надписи и задайте свойству Name значение txtUser.

10 Добавьте текстовое поля справа от второй надписи и задайте свойству Name значение txtPassword, а свойству PasswordChar –символ звездочки «*».

11 Разместите на середине нижней части формы кнопку. Задайте свойству Name значение cmdLogon, а свойству Caption значение Регистрация.

После выполнения всех вышеуказанных действий ваша форма должна выглядеть примерно, как показано на рис 6

12 Откройте окно программы двойным щелчком на форме frmLogon/

13 Расположите курсор слева от строки Option Explicit секции (General)(Declrations) формы FrmLogon.

14 Дважды нажмите на жмите на клавишу Enter, чтобы поставить перед Option Explicit две пустые строки

15 Введите следующие строки перед Option Explicit/

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