Процедури

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

Istltems.Addltem " Widgets"

викликає метод Addltem з аргументом " Widgets" і додає цей рядок в кінець списку. Зверніть увагу: аргументи можуть відноситися практично до будь-якого типу. Конкретний тип залежить від того, як працює ця процедура.

Як ви незабаром переконаєтеся, процедури допомагають організувати багатократне використання коду. Замість того щоб наново вводити кожен рядок в декількох місцях програми для виконання одних і тих же завдань, можна створити одну процедуру і викликати її з декількох місць програми. Це не лише скоротить об'єм тексту, що вводиться, але і гарантує однакову роботу процедури при кожному виклику.

Щоб ви краще зрозуміли, як написати процедуру і використовувати її в програмі, ми створимо процедуру, яка замінює стандартний покажчик-стрілку пісочними годинами. Її слід викликати перед тим, як ваша програма займеться виконанням якого-небудь тривалого завдання. Покажчик у вигляді пісочного годинника підкаже користувачеві, що програма не " зависла", а робить щось корисне.

1. Відкрийте проект з попереднього розділу, якщо він не був відкритий раніше.

2. Якщо модуль MyLibrary відсутній в проекті, додайте його - для цього слід клацнути правою кнопкою миші у вікні проекту і виконати команду Add > Module з контекстного меню. Коли з'явиться діалогове вікно Add Module, перейдіть на вкладку Existing. Потім знайдіть файл MyLibrary.Bas і натисніть кнопку Open, щоб включити модуль в проект.

3. Двічі клацніть на файлі My Library. Bas у вікні проекту. Відкривається вікно програми.

4. У вікні програми введіть наступний код:

Public Sub ShowHourglass()

Screen.MousePointer = 11 End Sub

Процедура створює покажчик миші у вигляді пісочного годинника. Проте після того, як покажчик був змінений, ми повинні мати можливість повернути йому колишній вид.

5. Додайте в модуль наступний фрагмент:

Private Sub ShowMousePointer()

Screen.MousePointer = 0

End Sub

6. Виконаєте команду File > Save MyLibrary в меню Visual Basic.

Процедури ShowHourglass і ShowMousePointer згодяться в тих випадках, коли програма зайнята, а користувачеві доводиться чекати її звільнення. Викличте ShowHourglass на початку, a ShowMousePointer - у кінці періоду очікування, наприклад:

ShowHourglass

IndexLargeDatabase

ShowMousePointer

В майбутньому, коли ви почнете писати власні процедури і функції, їх теж можна буде додати в цей модуль.