К

Мал. 4.8. Зміна властивості Caption в програмі.

рім того, можна створити спеціальну функцію, яка перевірятиме комбінацію імені і пароля користувача і повертатиме значення, що визначає правильність даних. Наприклад, це може виглядати так:

Dim UserlD As String

Dim Password As String

UserlD = "Джон Доу"

Password = "123456"

If ValidUser(UserID, Password) = True Then

'Зробити щось корисне

Else

'Вивести повідомлення про помилку

End If

Зверніть увагу на те, що параметри поміщені в дужку і розділені комами. Кількість параметрів визначається при оголошенні функції. Одні функції викликаються з декількома параметрами, інші - взагалі без параметрів.

Ключове слово Optional

При визначенні функції можна вказати, що деякі з параметрів є необов'язковими. Для цього перед визначенням параметра ставиться ключове слово Optional:

Public Function CreateUser (UserlD As String, Password As String, Optional Description As String) As Boolean

Третій параметр, Description, необов'язковий. За бажання функції CreateUser можна передати опис користувача, але функція працюватиме і без нього. Єдине, про що слід пам'ятати при оголошенні необов'язкових параметрів, - всі наступні аргументи теж мають бути необов'язковими і оголошуватися з ключовим словом Optional.

Перед ім'ям оголошуваного параметра можуть вказуватися ще три префікси -

ByRef, ByVal і ParamArray.

Ключове слово ByRef

Префікс ByRef означає, що параметр передається по посиланню (за умовчанням в Visual Basic використовується саме такий спосіб передачі). Коли змінна передається по посиланню, функція або процедура отримує її адресу в пам'яті і може змінити фактичне значення змінної. Передача по посиланню дозволяє передати або отримати декілька результатів при одному виклику функції. Синтаксис виглядає таким чином:

Function FunctionName(ByRef AVariable As String) As Boolean

чи

Function FunctionName(AVariable As String) As Boolean

Ключове слово ByVal

Префікс ByVal говорить про те, що параметр передається за значенням. В цьому випадку Visual Basic передає копію поточного вмісту змінної замість її адреси в пам'яті, і функція або процедура не зможе безпосередньо модифікувати початкове значення. Синтаксис виглядає таким чином:

Function FunctionName(ByVal AVariable As String) As Boolean

Ключове слово ParamArray

Ключове слово ParamArray дозволяє передати функції невизначена кількість параметрів. Наприклад, з його допомогою можна передати функції CreateUser зведення про довільну кількість користувачів. Одна з вимог, пов'язаних з ключовим словом ParamArray, полягає в тому, що масив даних який передається повинен мати тип Variant. Оголошення функції повинне мати наступний синтаксис:

Function FunctionName(ParamArray AnArray() As Variant) As Boolean

В цьому випадку функція може викликатися так:

Dim rc As Boolean

rс = FunctionName("Джон", "Джейн", "Джим", "Джені")

rс = FunctionName("Джеймс")

rс = FunctionName("Джері", "Джеки")

Зверніть увагу: таку функцію можна викликати з будь-якою кількістю параметрів, вам не доведеться включати в програму декілька окремих викликів. Ключове слово ParamArray робить функції більше універсальними, але за це доводиться розплачуватися швидкістю виконання програми: дані типу Variant обробляються повільніше, ніж інші типи Visual Basic.