Факультет Математики и Информатики ГрГУ: Закрытые и открытые процедуры

Вход

Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Основы программирования >> Именованные аргументы >> Закрытые и открытые процедуры

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by

[Назад] [Содержание ] [Вперед]

Закрытые и открытые процедуры

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

Private Sub Test1()
MsgBox "This is the Test1 procedure running"
End Sub

Private Function AddThree(OriginalValue As Long)
AddThree = OriginalValue + 3
End Function

А эти ? открытые:

Public Sub Test1()
MsgBox "This is the Test1 procedure running"
End Sub

Public Function AddThree(OriginalValue As Long)
AddThree = OriginalValue + 3
End Function

Если в объявлении процедуры не указано ни Private, ни Public, то по умолчанию она считается открытой. Таким образом, следующие процедуры тоже открытые:

Sub Test1()
MsgBox "This is the Test1 procedure running"
End Sub

Function AddThree(OriginalValue As Long)
AddThree = OriginalValue + 3
End Function

Хотя для создания открытой процедуры использовать ключевое слово Public не обязательно, включение его в объявление процедуры упрощает понимание того, какие процедуры открытые, а какие закрытые. Подробнее на эту тему см. ключевые слова Public и Private в справочной системе.

[Назад] [Содержание ] [Вперед]

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997