End Sub. Переменные уровня проекта

End Sub

Переменные уровня проекта

Переменная уровня проекта (или общего уровня) доступна и сохраняет свое значение в любом модуле проекта, содержащего ее описание. Чтобы сделать переменную доступной на уровне проекта, объявите ее с ключевым словом Public в разделе описаний любого модуля проекта, перед любыми подпрограммами и функциями. Мы написали две процедуры и разместили их в различных модулях. Одна из них присваивает значение переменной уровня проекта, а другая выводит его в информационном окне:

Public Var3 As String

Sub ПрисвоениеЗначения()

Var3 = "Эта переменная была объявлена в Модуль2."

Sub ПеременнаяУровняПроекта()

ПрисвоениеЗначения

MsgBox Var3

В этом примере программа ПеременнаяУровняПроекта вызывает из другого модуля программу ПрисвоениеЗначения, присваивающую значение переменной уровня проекта Var3. Затем значение этой переменной в ПеременнаяУровняПроекта выводится на экран. Доступ на уровне проекта проиллюстрирован на Рис. 7‑3 и Рис. 7‑4.