Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Процедуры. В предыдущих уроках вы познакомились с процедурами, которые принимают некоторые

Читайте также:
  1. Аттестация: цели, задачи, принципы, функции, процедуры и методы
  2. Водные процедуры
  3. Задание 1. Процедуры.
  4. на период проведения процедуры внешнего управления
  5. Общая характеристика понятия. Логические процедуры образования понятий.
  6. Основные этапы процедуры создания нового поведения
  7. Панчакарма: (30 Дней) Все вышеуказанные процедуры, но без перерывов между лечениями.

В предыдущих уроках вы познакомились с процедурами, которые принимают некоторые аргументы, выполняют программный код и изменяют значения передаваемых аргументов. Аргументами называются переменные, которые передаются процедуре. Например, методу 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

 

В будущем, когда вы начнете писать собственные процедуры и функции, их тоже можно будет добавить в этот модуль.

 


Дата добавления: 2015-07-20; просмотров: 72 | Нарушение авторских прав


Читайте в этой же книге: Интерфейс в стиле Windows 95 | Вкладка General | События деревьев | Свойства табличных списков | Вкладка General | События табличных списков | Все вместе | Строка состояния | Работа со строкой состояния | Что нового мы узнали? |
<== предыдущая страница | следующая страница ==>
Модули и классы| Функции

mybiblioteka.su - 2015-2024 год. (0.005 сек.)