1.1.8. Передача аргументов в процедуру

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

Объявляя аргумент, можно задать его тип данных с помощью ключевого слова As (изменяет ли процедура значение аргумента, определяется ключевыми словами ByVal и ByRef), а также определить, обязателен ли аргумент, для чего предназначено ключевое слово Optional.

Взгляните, как объявлена процедура Sub, принимающая 3 аргумента:

Sub UpdateRecord(ByVal custId As Long. ByRef custName As String, _ Optional custRepeat As Boolean)

Первый аргумент, custId, обязателен и передается по значению как тип Long. Если аргумент передается в процедуру по значению, процедура получает лишь копию переменной, переданной вызывающей процедурой. Если вызываемая процедура модифицирует это значение, то изменится только копия, а не сама переменная в вызывающей процедуре.

Второй аргумент, сustName, тоже обязателен, но передается по ссылке как тип String. В этом случае процедура имеет доступ к исходной переменной в памяти, и поэтому способна изменить ее значение.

Третий аргумент, custRepeat, не обязателен и передается по ссылке как тип Boolean. (По умолчанию аргументы всегда передаются по ссылке.)

Вот пример вызова процедуры UpdateRecord:

Dim newld As Long Dim newMame As String Dim newRepeat As Boolean newld = 3452 newName = "Mary Boyd" newRepeat = True UpdateRecord newld, newName, newRepeat

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

1.1.9. Именованные аргументы

Если у созданной Вами процедуры или у встроенных функции, оператора, метода есть несколько необязательных параметров, то, возможно, Вам будет удобнее передавать аргументы по их именам, а не позициям.

Например, метод Open объекта Workbooks в Microsoft Excel, открывающий рабочую книгу, принимает 13 аргументов. Если Вам нужно написать код, открывающий рабочую книгу Book2.xls и добавляющий ее в список последних открытых файлов, Вы могли бы использовать оператор:

Workbooks.Open "book2.xls" , , , , , , , , , , , , True

Но он так и провоцирует на ошибки, ведь в такой массе запятых запутаться немудрено. Да и код читать очень трудно — не понятно, к чему относится конкретный аргумент. Поэтому гораздо лучше написать так:

Workbooks.Open FileName:="books2.xls", AddToMru:=True

В этом случае, так как у каждого аргумента свое имя, можно присвоить значение аргументу, используя его имя и операцию :=. Работая с именованными аргументами, нет нужды запоминать порядок их следования. Скажем, в предыдущем операторе аргументы можно указать в обратном порядке:

Workbooks.Open AddToMru:=True, FileName:="books2.xls"

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

Sub FormatList(startRow As Integer, startCol As Integer, _ Optional redText, Optional sortList)

Другая процедура (DoList) вызывает FormatList с передачей аргументов по именам:

Sub DoListO FormatList redText :=True, startCol :=2, startRow:=2 End Sub

Здесь аргументы расставлены не в том порядке, в каком они объявлены, а один аргумент опущен.

Примечание: Использование именованных аргументов не отменяет необходимости передачи обязательных аргументов.