Запись алгоритмов

Folder

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

Files

Семейство Files содержит все объекты File, каждый из которых ассоциируется ровно с одним файлом в заданной папке.

File

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

TextStream

Обеспечивает проведение операций чтения/записи для текстового файла открытого в режиме последовательного доступа.

объект FileSystemObject обеспечивает доступ к файловой системе компьютера. Будучи объектом верхнего уровня объектной модели FileSystemObject является "точкой входа" в файловую систему компьютера. Только после его создания возможен доступ к другим объектам модели, их методам и свойствам.

Dim objFSO As FileSystemObject

Set objFSO = CreateObject("Scripting.FileSystemObject")

или

Set objFSO = New FileSystemObject

Элемент	Тип данных	Тип данных
objFSO	FileSystemObject	Идентификатор (имя) объекта FileSystemObject

Свойства объекта FileSystemObject

Свойство	Тип данных	Чтение/запись	Описание
Drives	Drives	Только чтение	Содержит ссылку на семейство Drives, содержащую объекты для каждого устройства дисковой памяти компьютера

Методы объекта FileSystemObject

Метод	Назначение
BuildPath	Создание строки путем слияния аргументов и добавления между ними, если его нет, разделителя "\" (обратной косой черты).
CopyFile	Копирование одного или нескольких файлов из одной папки в другую.
CopyFolder	Копирование содержимого папки со всеми содержащимися в ней папками (подкаталогами) в заданное место.
CreateFolder	Создание новой папки с заданным именем.
CreateTextFile	Создание файла и открытие его в режиме текстового файла последовательного доступа для записи как объекта TextStream
DeleteFile	Удаление одного или нескольких заданных файлов.
DeleteFolder	Удаление одной или нескольких заданных папок вместе со всем их содержимым.
DriveExists	Проверка существования диска с заданным именем на локальной машине или в сети.
FileExists	Проверка существования файла с заданным именем на локальной машине или в сети.
FolderExists	Проверка существования папки с заданным именем на локальной машине или в сети
GetAbsolutePathName	Получение полного имени файла или папки по относительному имени.
GetBaseName	Получение поcледнего компонента - имени папки или файла (без расширения) по его полному или относительному имени.
GetDrive	Получение ссылки на объект Drive, связанный с заданным диском.
GetDriveName	Получение имени диска из имени папки или файла.
GetExtensionName	Получение расширения из заданного имени файла.
GetFile	Получение ссылки на объект File, связанный с заданным файлом.
GetFileName	Получение имени (с расширением) файла из полного имени (пути) файла.
GetFolder	Получение ссылки на объект Folder, связанный с заданной папкой.
GetParentFolderName	Получение имени папки, являющейся предпоследним компонентом полного имени (пути) файла или папки.
GetSpecialFolder	Получение ссылки на объект Folder, связанный с одной из трех специальных папок - папки Windows, системной папки и папки временных файлов.
GetTempName	Получение имени для временного файла.
MoveFile	Перемещение одного или нескольких файлов из одной папки в другую.
MoveFolder	Перемещение содержимого папки со всеми содержащимися в ней папками (подкаталогами) в заданное место.
OpenTextFile	Открытие файла как объекта TextStream для проведения операций чтения/записи в режиме последовательного доступа.

У каждого из прочих вышеперечисленных семейств и объектов имеются свои свойства и методы. Для ознакомления с ними следует обратиться к справочной литературе.

ЭЛЕМЕНТЫ УПРАВЛЕНИЯ В ПРИЛОЖЕНИЯХ VBA

Кнопки как основа выполнения действий

Наиболее простой путь обеспечить взаимодействие пользователя с приложением - предусмотреть наличие кнопок, нажатие которых будет вызывать необходимые действия. Для этих целей можно использовать элемент управления Command Button (Кнопка управления), предоставляемый системой VBA, или разработать собственную "кнопку", используя элемент управления Image (Изображение), содержащий графику (значок).

Кнопки управления

Большинство приложений VBA имеет кнопки управления, простым нажатием которых пользователь может выполнять разнообразные действия. Когда пользователь нажимает кнопку, то не только выполняется соответствующее ей действие, но и она сама выглядит так, как будто ее вдавливают, а потом отпускают. При щелчке на кнопке вызывается событие click (Щелчок). Для выполнения определенных действий при щелчке на кнопке в процедуру обработки события click помещается соответствующий код.

Существует много способов "нажать" кнопку управления во время выполнения:

- Использовать мышь, щелкнув на кнопке

- Переместить фокус на кнопку, нажимая клавишу ТаЬ, и затем выбрать эту кнопку, нажав клавишу Spacebar (пробел) или Enter (ввод) .

- Нажать клавишу доступа (Аlt+<подчеркнутая буква в названии клавиши>) к данной для кнопки управления.

- Нажать кнопку управления программным путем, для чего любым способом (вручную с помощью окна свойств или с помощью оператора в программе) установить значение свойства value (Значение) кнопки управления равным True (Истина), а затем с помощью оператора в программе вызвать процедуру обраьотки события click для этой кнопки.

- Если кнопка управления является кнопкой управления по умолчанию , выбрать эту кнопку, нажав клавишу Enter даже если в фокусе в данный момент оказывается другой элемент управления.

- Если кнопка управления no умолчанию является кнопкой отказа (cancel button), то, где бы не находился фокус, выбрать эту кнопку можно, нажав клавишу Esc.

Все эти действия заставляют систему VBA вызывать процедуру обработки события click.

Элементы управления для отображения и ввода текста

Элементы управления Label (Метка) и TextBox (Текстовое поле) применяются для отображения или ввода текста. Метки используются для отображения текста на форме, а текстовые поля - когда необходимо предоставить пользователю возможность вводить текст. Текст в метках можно только читать, тогда как текст в текстовых полях можно редактировать. Назначение элементов управления поясняет табл.

Таблица - Назначение элементов управления для отображения и ввода текста

Элемент управления	Назначение
Текстовое поле (TextBox)	Ввод и отображение текста. Текст может редактироваться (изменяться) пользователем.
Метка (Label)	Отображение не редактируемого текста, например, для обозначения поля на форме или отображения инструкции пользователю

Метки

Элемент управления Label отображает текст, который пользователь не может изменять. Метки можно использовать для идентификации элементов управления, например, текстовых полей и полос прокрутки, не имеющих собственного свойства caption (Надпись). Текст, отображаемый в элементе Label (метка), задается свойством Caption этого элемента. Оно может быть установлено во время разработки в окне Properties или во время выполнения оператором присваивания в программном коде.

По умолчанию надпись - единственная видимая часть элемента управления Label. Однако, если значение свойства BorderStyle установлено равным 1 (это можно сделать во время разработки), то метка появляется вместе с границей, что придает ей вид, похожий на вид текстового поля. Изменить внешний вид метки можно установкой свойств BackColor (цвет фона), BackStyle (Стиль фона), ForeColor (цвет букв) и Font (Шрифт).

Подгонка размеров метки к ее содержимому

Однострочные надписи в метке можно задавать во время выполнения в окне Properties. Но что делать, если необходимо вывести более длинные надписи, или надпись будет меняться во время выполнения? Метки имеют два свойства, которые помогают подгонять их размер для отображения надписей переменной длины. Это свойства AutoSize (авторазмер) и Wordwrap (ПереносСлов).

Свойство AutoSize определяет, следует ли автоматически изменять размер элемента управления, чтобы он соответствовал выводимым данным. Если значение этого свойства равно True, то горизонтальный размер метки увеличивается, чтобы на ней поместилась надпись. Свойство wordwrap увеличивает высоту метки, при этом ее ширина не меняется.

Текстовые поля

Текстовые поля являются гибкими элементами управления и применяются как для получения вводимых пользователем данных, так и для отображения текста. Их не следует использовать для отображения текста, который пользователь не должен изменять, если только значение свойства Locked (Заблокирован) не установлено равным True.

Текст, отображаемый в текстовом поле, управляется свойством Text (Текст). Его можно установить тремя различными способами: во время разработки в окне Properties, во время выполнения из программного кода или во время выполнения на основании данных, введенных пользователем. Текущее содержимое текстового поля можно получить во время выполнения, считывая значение свойства Text.

Многострочные текстовые окна и перенос слов

По умолчанию в текстовом поле отображается одна строка текста, полосы прокрутки не отображаются. Если текст длиннее доступного пространства, будет видна только часть текста. Вид и поведение текстового поля можно изменить, установив значения свойств Multi-Line и scroliBars, которые доступны только во время разработки.

Примечание

Свойство ScrcllEars не следует путать с элементом управления Scroll Bar (Полоса прокрутки), который не присоединяется к текстовым полям и имеет свой собственный набор свойств.

Установка значения свойства MultiLine равным True позволяет текстовому полю принимать и отображать много строк текста во время выполнения. Так как в многострочном текстовом поле нет горизонтальной полосы прокрутки, то оно автоматически управляет переходом на новую строку, если текст не помещается. По умолчанию значение свойства ScroliBars равно None (Нет). Автоматический переход на новую строку избавляет пользователя от необходимости вводить в конце строк символ разрыва строки. Если строка текста длиннее строки текстового поля, то текстовое поле переносит вывод строки на следующую строку.

Символ разрыва строки нельзя вводить в окне Properties во время разработки. В процедуре разрыв строки моделируется вводом символа возврата каретки, за которым следует символ перевода строки (символы с кодами ANSI 13 и 10 соответственно). Можно также использовать константу vbCrLf для ввода комбинации символов возврат каретки/перевод строки. Например, следующая процедура обработки события вводит две строки текста в многострочное текстовое поле (Textl) при загрузке формы:

Sub Fom_Load (}

Textl.Text = "Here are two lines" & vbCrLf & "in a text box" End Sub

Работа с текстом в текстовом поле

Управлять точкой ввода и поведением выделенного фрагмента (selection behavior) в текстовом поле можно с помощью свойств selstart, SelLength и SelText. Эти свойства доступны только во время выполнения.

Когда текстовое окно впервые получает фокус, по умолчанию точка ввода (положение курсора) в текстовом поле находится слева от текста, находящегося в поле. Пользователь может его изменить с клавиатуры или с помощью мыши. Если текстовое окно теряет и затем снова приобретает фокус, точка ввода будет находиться там, где пользователь установил ее в последний раз.

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

Значением свойства selStart является число, которое указывает место вставки в строке текста, причем 0 соответствует крайней левой позиции. Если значением свойства selStart является число, равное или больше, чем число символов в текстовом окне, точка ввода находится сразу за последним символом.

Число, равное значению свойства SelLength, задает ширину точки ввода. Если это число больше 0, то равное ему количество символов, начиная от текущей точки ввода, выбирается и выделяется.

Если пользователь начинает печатать при выделенном блоке текста, то последний будет замещен вводимым текстом. При необходимости можно заменить выделенный текст новым с помощью команды Paste (Вставить) меню Edit (Правка). Значением свойства SelText является строка текста, кото рую можно присвоить во время выполнения и которая заменит выделенный текст. Если такового нет, то в текущую точку ввода будет помещено значение свойства SelText.

Элементы управления, организующие выбор пользователя

В большинстве приложений пользователю предоставляется возможность выбора, начиная от простейшего "да/нет", до сложного выбора из списка, состоящего из сотен возможностей. VBA содержит несколько стандартных элементов управления для организации выбора.

Таблица - Элементы управления для организации выбора

Элемент управления	Возможности
Check boxes (Флажки)	Небольшой набор возможностей выбора, из которых пользователь может выбрать одну или более
Option buttons	Небольшой набор возможностей, из которых пользователь может выбрать только одну
List box (Список)	Прокручиваемый список возможностей выбора, из которого пользователь может выбрать только одну возможность
Combo box (Комбинированное окно)	Прокручиваемый список возможностей выбора вместе с полем ввода. Пользователь может либо выбрать из списка, либо напечатать свой выбор в поле ввода

Флажки

Флажок показывает, включено или нет определенное условие. В приложении флажки используются, чтобы дать пользователю возможность выбора типа "правда/ложь" или "да/нет". Так как флажки работают независимо друг от друга, пользователь может установить любое их число одновременно.

Группирование возможностей с помощью переключателей

Переключатели предоставляют пользователю выбор из двух или более возможностей. В отличие от флажков, однако, они всегда работают как часть группы: выбор одного из них немедленно сбрасывает все другие переключатели группы. Объединение переключателей в группу означает для пользователя, что он может выбрать одну и только одну возможность из заданного набора.

Создание групп переключателей

Все переключатели, размещенные непосредственно на форме (т- е. не внутри рамки (frame) или графического окна (picture)), составляют одну группу. Если необходимо создать дополнительные группы переключателей, некоторые из них надо поместить внутрь рамок или графических окон.

Все переключатели внутри данной рамки составляют отдельную группу, то же само относится и к переключателям в графическом окне. При создании отдельной группы переключателей всегда сначала следует создать рамку или графическое окно, а затем поверх них- переключатели.

Пользователь может выбрать только один переключатель в группе внутри рамки.

Для группирования элементов управления с помощью рамки следует:

1. Выбрать элемент управления Frame (Рамка) на Панели элементов управления (Toolbox), нарисовать рамку и поместить ее на форму.

2. Выбрать переключатель на Панели элементов управления и нарисовать его внутри рамки.

3. Повторить шаг 2 для остальных переключателей, добавляемых в группу.

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

Примечание

Чтобы сгруппировать существующие элементы управления, следует выбрать все элементы, которые будут составлять группу, вырезать их и вставить в рамку или графическое окно.

Контейнеры для элементов управления

Элементы управления являются независимыми объектами, однако между ними и формами существуют отношения подчиненности (parent and child relationships).

Для понимания идеи контейнеров необходимо четко осознавать, что все элементы управления являются подчиненными по отношению к форме, на которой они нарисованы. Фактически большинство элементов управления поддерживает свойство parent (Родитель) в режиме "только чтение" (readonly), т. е. значением этого свойства является форма, на которой расположен элемент управления, и это значение невозможно изменить. Положение элемента управления ограничено родительской формой, по отношению к которой он является подчиненным. Свойства Left и тор элемента управления связаны с родительской формой, и поэтому элемент управления нельзя переместить за границы этой формы. Перемещение контейнера также перемещает и элементы управления, и не изменяет значений свойств Left и тор элемента управления.

Выбор переключателей

Переключатель можно выбрать:

- Щелчком на нем кнопкой мыши во время выполнения

- Клавишей <ТаЬ> выбрать группу переключателей и затем клавишами со стрелками выбрать переключатель в группе

- Установив значение его свойства value равным True в программном коде: optChoice.Value = True

- С помощью клавиши быстрого доступа, определенной в надписи метки

Сделать переключатель в группе переключателем по умолчанию можно во время разработки. Для этого надо установить значение его свойства value равным True. Он остается выбранным, пока другой переключатель не будет выбран пользователем или программно.

Можно сделать переключатель недоступным, установив значение его свойства Enabled (Доступный) равным False. При выполнении программы такой переключатель выделен серым цветом, и это означает, что он не доступен пользователю.

Комбинированные окна и списки

Списки и комбинированные окна предоставляют пользователю список возможных вариантов выбора, по умолчанию отображаемых вертикально в одну колонку, хотя возможно отображение и в несколько колонок. Если число элементов превышает возможности отображения в комбинированном окне или списке, автоматически появляется полоса прокрутки. Пользователь в этом случае может просматривать список элементов, прокручивая его вверх и вниз или влево и вправо.

Комбинированное окно совмещает возможности списка и текстового поля. В этом элементе управления пользователь может производить выбор либо вводом текста в поле ввода комбинированного списка, либо выбором элемента из его списка.

По сравнению с другими элементами управления, которые содержат одно значение, например, значение свойства caption метки или значение свойства Text текстового поля, списки и комбинированные окна содержат набор значений. Для них существуют встроенные методы добавления, удаления и получения значений из этого набора во время выполнения. Программный код для добавления нескольких элементов в список с именем Listi мог бы выглядеть следующим образом:

Listl.Addltem "Paris" Listl.AddItem "New York" Listl.AddICem "San Francisco"

Списки и комбинированные окна - это эффективный способ представления большого числа вариантов выбора для пользователя в ограниченном пространстве на форме.

Полосы прокрутки как устройства ввода

В основном полосы прокрутки используются в текстовых полях или окнах, но иногда их применяют в качестве устройств ввода. Полосы прокрутки показывают текущую позицию на масштабной линейке, поэтому их можно использовать самостоятельно для управления вводом в программу, например, регулировать цветовую палитру в картинке или уровень громкости. Элементы управления HScrollBar (Горизонтальная полоса прокрутки) и VScrollBar (Вертикальная полоса прокрутки) функционируют независимо от других элементов управления и имеют собственные наборы событий, свойств и методов. Элементы управления "Полоса прокрутки" - это не то же самое, что встроенные полосы прокрутки, присоединяемые к текстовым полям, спискам, комбинированным окнам.

Руководящие принципы построения интерфейса Windows теперь предлагают применять полосы-регуляторы (slider controls) вместо полос прокрутки (scroll bars). Примеры регуляторов можно увидеть в панели управления Windows 95. Элемент управления "Регулятор" в стиле Windows 95 включен в версии VBA Professional и Enterprise.

Графические элементы управления. Отображение картинок и графики

В состав VBA включен объект для работу с графикой: image (Изображение).

Примечание

Объекты Form также имеют свойство Picture, которое можно установить для отображения картинки непосредственно в виде фона (заднего плана) формы.

Для отображения или замены картинки во время выполнения следует установить значение свойства picture при помощи функции LoadPicture. Ей передается только имя (с необязательным путем) файла картинки, и далее эта функция управляет деталями загрузки и отображения картинки:

picMain.Picture = LoadPicture("VAHGOSH.BMP")

Объект picture имеет свойство AutoSize, которое, если его значение равно True, автоматически изменяет размеры окна вывода картинки, чтобы оно соответствовало размерам выводимой картинки. Следует быть очень внимательным при разработке формы, если ее свойство AutoSize равно True. Размеры окна вывода картинки изменяются независимо от других элементов управления на форме. В результате картинка может, например, закрыть другие элементы управления. Во время разработки следует протестировать вывод каждой картинки, которую предполагается использовать в приложении.

Графическое окно в качестве контейнера

Графическое окно может также выполнять функции контейнера для других элементов управления. Как и в случае с рамкой (frame control) можно поместить другие элементы управления в графическое окно. Помещенные элементы управления будут перемещаться вместе с графическим окном, а их свойства тор и Left будут подчинены ему, а не форме,

Обыкновенно графическое окно в качестве контейнера используют для того, чтобы создать панель инструментов или строку состояния. Туда можно поместить элементы управления Image, чтобы они выступали в качестве кнопок, или добавить метки для отображения сообщений о состоянии. Устанавливая значение свойства Align (Выровнять) равным тор (Верх), Bottom (Низ), Left (Лево) или Right (Право) можно "прикрепить" графическое окно к соответствующему краю формы.

Элемент управления Image

Картинки загружаются в объект image: во время разработки - назначением имени файла и пути свойству picture, во Время выполнения - посредством функции LoadPicture.

При изменении размеров элементы управления Image и Picture ведут себя по-разному. Установка значения свойства Autosize объекта picture равным True приводит к тому, что размеры Графического окна изменяются в соответствии с размерами выводимой картинки; если значение этого свойства равно False, то картинка усекается (видна только ее часть). Объект Image не имеет свойства Autosize, а обладает свойством Stretch (Растягивание). Присвоение этому свойству значения False (значение по умолчанию) приводит к тому, что размеры элемента управления изменяются в соответствии с размерами картинки. Если свойство stretch равно True, то размеры картинки изменяются до размеров элемента управления Image, что может привести к искажению картинки при ее отображении.

Создание кнопок

Объект image распознает событие click, что предоставляет удобный способ создания кнопок с картинками вместо кнопок с надписями. Объединение нескольких элементов управления Image в горизонтальном направлении вверху экрана (обычно внут ри графического окна) в группу позволяет создавать панели инструментов приложения.

Примечание

В отличие от кнопок управления, элементы управления image не вдавливаются, если на них выполняется щелчок.

Другие элементы управления

В Панель элементов управления VBA включены несколько других стандартных элементов управления. Некоторые из них полезны для работы с большим объемом данных, содержащихся во внешних базах данных. Другие полезны для доступа к файловой системе Windows. Третьи элементы управления не подходят ни под одну из категорий, однако достаточно полезны при разработке приложений.

В приложениях VBA можно использовать элементы управления АсtiveX, называвшихся ранее элементами управления OLE, точно таким же образом, как используются и стандартные элементами управления. В версии VB Professional и Enterprise включены некоторые элементы управления ActiveX, а также возможность построения собственных элементов управления программиста. Дополнительные элементы управления ActiveX для любых вообразимых целей можно приобрести у многочисленных поставщиков этого продукта.

Остальные элементы управления

В VBA также включены некоторые другие полезные элементы управления, которые, однако, не относятся ни к одной из рассмотренных выше групп;

- Элемент управления Timer (Таймер) можно использовать для создания в приложении события через повторяющийся интервал времени. Это удобно для выполнения кода без взаимодействия с пользователем.

- Элемент управления OLE Container (Контейнер OLE) обеспечивает легкий способ добавления в приложение возможностей связывания (linking) и внедрения (embedding). Посредством этого элемента управления можно обеспечить доступ к выполняемым функциям любого приложения, поддерживающего OLE технологию, например Microsoft Excel, Word и многих других.

- Элемент управления Common dialog (Общий диалог) добавляет в приложение встроенные диалоговые оюна (built-in dialog boxes) для выбора файлов, цветов, шрифтов, функций печати.

Что такое фокус?

Объект, имеющий фокус, может получать вводимую пользователем с помощью мыши и клавиатуры информацию. В системе Microsoft Windows одновременно могут выполняться несколько приложений, но только у приложения, имеющего фокус, будет активный заголовок окна (active title bar) (выделен повышенной яркостью), и только оно может взаимодействовать с пользователем. На форме приложения VBA с несколькими полями ввода только поле ввода, имеющее фокус, будет отображать вводимый с клавиатуры текст.

Когда объект получает или теряет фокус, происходят соответственно события GotFocus и LostFocus. Формы и большинство элементов управления поддерживают эти события.

Объекту можно передать фокус несколькими способами:

- Выбрать объект с помощью мыши во время выполнения

- Выбрать объект с помощью клавиши доступа во время выполнения

- Из программного кода с помощью метода set Focus

Всегда можно определить, имеет ли объект фокус. Например, когда кнопка управления имеет фокус, обрамление ее надписи отображается с повышенной яркостью.

Объект может получить фокус, только если его свойства Enabled (Разрешено) и visible (Видимый) установлены в True. Свойство Enabled (Разрешено) позволяет объекту реагировать на инициированные пользователем события, например, ввод с клавиатуры и нажатие кнопок мыши. Свойство visible (Видимый) определяет, виден ли объект на экране-

Событие Validate элементов управления

Элементы управления имеют событие validate (Проверка достоверности), которое происходит перед тем, как элемент управления теряет фокус. Однако это событие возникает, только если свойство CausesValidation элемента управления перед получением фокуса имеет значение True. Событие Validate происходит перед потерей фокуса, поэтому во многих случаях оно более подходит для проверки достоверности данных (data validation), чем событие LostFocus.

Элементы управления, которые не могут получить фокус

Некоторые элементы управления не могут получать фокус. К ним относятся облегченные графические элементы управления:

- Frame (Рамка)

- Image (Изображение)

- Label (Метка)

Кроме этих элементов управления не могут получить фокус и неотображаемые элементы управления.

Установка последовательности перехода

Последовательность перехода (tab order) - это последовательность перехода от одного элемента управления к другому при нажатии клавиши ТаЬ. У каждой формы своя последовательность перехода. Обычно она соответствует последовательности создания элементов управления.

Пусть создаются два поля ввода, Textl и Text2, а затем - кнопка управления Commandl. При запуске приложения поле ввода Textl имеет фокус.

Нажатие клавиши Tab перемещает фокус между элементами управления в той последовательности, в которой они создавались.

Для изменения последовательности перехода необходимо установить свойство TabIndex элемента управления, которое определяет его позицию в последовательности перехода при нажатии клавиши Таb. По умолчанию значение свойства Tabindex элемента управления, созданного на форме первым, равно 0, элемента, созданного вторым - 1 и т. д. При изменении позиции элемента управления в последовательности переходов VBA автоматически перенумеровывает позиции других элементов управления, отражая вставку в другую позицию или удаление из последовательности перехода элемента управления. Например, если кнопка управления command1 в предыдущем примере становится первой в последовательности переходов, то значения свойства TabIndex других элементов управления автоматически перенумеровываются.

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

Примечание

Элементы управления, которые не могут получить фокус, как и недоступные и невидимые элементы управления, не имеют свойства Tabindex и не могут быть включены в последовательность перехода. Когда пользователь нажимает клавишу <ТаЬ>, эти элементы управления пропускаются.

Удаление элемента управления из последовательности перехода

Обычно последовательное нажатие клавиши Таb во время выполнения выбирает каждый элемент управления из заданной последовательности перехода. Можно убрать элемент управления из последовательности перехода, установив значение его свойства TabStop равным False (или 0).

Элемент управления, свойство TabStop которого равно False, сохраняет свою позицию в последовательности перехода, хотя при переходе от одного элемента управления к другому по клавише Таb он пропускается.

Примечание

Группа переключателей имеет один табуляторный ограничитель (tab stop) Для выбранной кнопки, т.е. кнопки, значение свойства Value которой равно True, значение свойства TabStop автоматически равно True, тогда как значение этого свойства для других кнопок равно False.

ПРОГРАММИРОВАНИЕ ОБЪЕКТОВ ПРИЛОЖЕНИЯ

Освоив, как работают объекты, можно рассмотреть, как использовать их в программах VBA. Однако сначала полезно обсудить программирование объектов приложений. Рассмотрим следующие четыре этапа:

- Определение требований.

- Добавление ссылок на проект.

- Изучение модели объектов.

- Написание кода.

Определение требований. Данный этап весьма прост: требуется понять задачу, которую необходимо решить с помощью VBA. При этом следует максимально точно определить требования, предъявляемые к создаваемому проекту. При детальной разработке необходимо определить назначение конкретных процедур.

Располагая требованиями, можно определить необходимые инструменты. Например, если следует вывести данные в таблице Ехсеl, то требуется работать в Ехсеl. Всестороннее понимание назначения процедур и проекта позволяет сэкономить время и избежать большинства ошибок.

Использование ссылок

Определив используемые в проекте приложения, требуется убедиться, что ним имеется доступ из проекта VВА. Чтобы использовать объекты не только из основного приложения, необходимо добавить ссылки на другие программы в проект VВА.

Чтобы вставить ссылку на библиотеку объектов другого приложения: I

1. Выберите в окне редактора VВА команду Сервис\Ссылки (Тооls\Rеfегеnсеs). В появляющемся диалоговом окне Ссылки выводятся названия доступных библиотек объектов. Имена библиотек, уже используемых в проекте, отмечаются галочкой.

2. Установите флажок напротив имени требуемой библиотеки объектов, чтобы добавить ссылки на нее.

3. Если требуемая библиотека объектов отсутствует в списке, надо нажать на кнопку Обзор (Вгоwsе), чтобы отыскать нужную библиотеку и поместить ее в список.

4. Нажмите кнопку ОК.

Примечание

Объекты хранятся в файлах с расширениями DLL, ТLВ, OLВ, OCX (элементы управления АсtiveХ) и ЕХЕ.

Модель объектов приложения

Для большинства приложений, поддерживающих механизм ОLЕ, число объектов, используемых для поддержки их функциональных возможностей и данных, весьма велико. Простой документ Мicrosoft Wоrd или Microsoft Excel, можно при программировании разделить на множество элементов. Поэтому, прежде чем приступать к написанию программ, которые, например, автоматизируют работу со средствами приложения или обеспечивают доступ к данным, сохраненным в документе, необходимо ознакомиться с моделью объектов (иерархией классов) приложения.

Иерархия классов определяет связь между объектами, содержащимися в библиотеке типов используемого приложения. В модели объектов хранятся очень важные сведения, такие как данные, необходимые для обеспечения доступа к другим объектам. Например, прежде чем работать с содержимым ячеек некоторого диапазона, требуется получить доступ к рабочей книге Excel, а затем к нужному рабочему листу в этой книге.

Почти каждое приложение, поддерживающее механизм ОLЕ, поставляется вместе с описанием иерархии классов. Программы Microsoft Office не являются исключением. В них модель объектов содержится в системе справочной информации. Перед работой с объектами приложения необходимо изучить модель объектов.

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

Использование окна просмотра объектов

Количество приложений, использующих ОLЕ Automation, непрерывно растет. К сожалению, обычно доступен только ограниченный объем справочной информации по работе с объектами этих программ. По этой причине легко понять назначение и использовать средства окна просмотра объектов. Окно Просмотр объектов (Objесt: Вrоwser) - средство VВА, которое позволяет вывести список компонентов требуемой библиотеки, а также свойства и методы заданного объекта.

Окно просмотра объектов легко использовать. Необходимо задать требуемую библиотеку объектов, а затем выбрать нужный объект для вывода его свойств и методов.

Чтобы просмотреть объекты и вывести их свойства и методы:

1. Выберите команду Вид\Просмотр объектов (View\Object Browser), либо на жмите клавишу <F2>. Выводится окно Просмотр объектов.

2. Выберите требуемую библиотеку в списке, расположенном в верхнем правом углу окна. Чтобы просмотреть все библиотеки, участвующие в проекте, выделите в списке элемент Все библиотеки (Аll Libraries). Если нужная библиотека отсутствует в списке, требуется добавить на неё ссылку .

3. Выделите в списке Классы (Class) требуемый класс. Для этого либо щелкните по имени класса, либо несколько раз нажмите клавишу <Таb> для перемещения к списку Классы, а затем используйте клавиши < >, < >, < >, < >, чтобы передвигаться по списку. После выбора класса просмотрите в списке, расположенном в правой части окна просмотра, компоненты класса, т. е. его свойства, константы и методы. Если щелкнуть по элементу, то в нижней части диалогового окна выводится дополнительная информация.

4. Для поиска определенного объекта, метода или свойства, введите их название в списке, расположенном под списком библиотек, а затем нажмите кнопку Поиск (Search). Результаты поиска отображаются в окне Результаты поиска (Search Results).

Проблемы и решения

Не удается найти требуемые объекты и свойства. Вероятно, в проекте не задана ссылка на библиотеку типов, содержащую требуемые объекты. Откройте диалоговое окно Ссылки, и убедитесь, что напротив имени нужной библиотеки стоит галочка.

5. Чтобы увеличить или уменьшить пространство, отведенное для вывода описания объекта, свойства или метода, перетащите полосу, разделяющую списки и дополнительную информацию.

6. Чтобы последовательно перемещаться назад по списку выбранных в ходе работы элементов, нажмите кнопку Назад (Back). Для перемещения вперед по этому списку нажмите кнопку Вперед (Forward).

Написание кода

Описание и создание экземпляров объектов. Чтобы работать с объектами, требуется описать их. Как уже отмечалось ранее, для описания переменных используется инструкция Dim. Экземпляр класса описывается точно так же:

Dim объект as класс

Например, чтобы использовать экземпляр класса Datafile с именем WorkFile, требуется задать следующую инструкцию:

Dim WorkFile as Datafile

Рассмотрим описание экземпляра объекта презентации PowerPoint:

Dim BudgetPresentation as Presentation

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

Dim BudgetPresentation as Object

Dim BudgetPresentation as Variant

Dim BudgetPresentation

Dim WorkingFile as Object

Dim WorkingFile as Variant

Dim WorkingFile

Кроме того, при явном описании нового объекта можно также использовать ключевые слова Private, Public или Static.

Однако явное описание типа указывает только на то, что объект WorkingFile имеет тип DataFile. Чтобы действительно создать экземпляр класса Datafile, необходимо использовать инструкцию Set:

Set объект = New класс

Например, чтобы явно описать объект WorkingEile, а затем создать экземпляр класса Datafile:

Dim WorkFile as Datafile

Set WorkingFile = New Datafile

Чтобы явно описать объект BudgetPresentation, а затем создать экземпляр

презентации PowerPoint:

Dim BudgetPresentation as Presentation

Set BudgetPresentation = New Presentation

В данном примере ключевое слово New используется для создания экземпляра объекта Presentation с именем BudgetPresentation.

Присваивание переменной ссылки на объект. Присваивание переменной ссылки на объект всегда выполняется с помощью инструкции Set:

Set ObjectVariable = SomeObject

Например, чтобы присвоить переменной MyNewTemplate ссылку на объект шаблона Microsoft Word, используйте следующую инструкцию:

Set MyNewTenvplate = Template

Кроме того, некоторые методы возвращают ссылки на объекты. В этом случае также требуется использовать инструкцию Set. Например, метод New класса Microsoft Excel Workbook возвращает ссылку на объект рабочего листа:

Set MyNewWorksheet = ThisWorkbook.new

Удаление объектов. В некоторых случаях требуется удалить как сам экземпляр класса, так и все относящиеся к нему данные. Для этого используется инструкция Set и ключевое слово Nothing:

Set объект = Nothing

Например, чтобы удалить объект WorkingFile, введите следующую инструкцию:

Set WorkingFile = Nothing

Создание модулей класса

Одно из наиболее мощных средств VBA - это возможность создавать собственные классы. Таким образом можно сократить текст программ и многократно использовать методы созданных объектов, что обычно позволяет исключить множество ошибок.

Разработка объектов

Объектно-ориентированное программирование требует от программиста принципиально другого способа мышления, чем при использовании процедурных языков. При разработке структуры объектов необходимо предварительно провести тщательное планирование, т. к. без детального анализа создать класс чрезвычайно трудно, а иногда и весьма долго. Для создания модели объекта можно использовать следующие программы: Rational Rose, Logic Works OOwin/CRT, OMT. Такие же возможности имеет программа Visual Modeler фирмы .Rational Rose, входящая в пакет Visual Studio 6.0

Создание свойств

Для создания свойства требуется предусмотреть возможность выполнения двух операций:

- Получение текущего значения свойства.

- Установка значения свойства.

Эти две операции выполняются с помощью двух взаимодополняющих друг друга процедур Property Let и Property Get, которые необходимо написать программисту.

Процедура Property Let. Процедура Property Let используется для установки значения свойства, например, для примера с объектом WorkingFile:

WorkingFile.delimiter = "@"

Одна из наиболее важных функций процедуры Property Let заключается в проверке того, является ли устанавливаемое значение допустимым или нет, и если нет, то требуется вывести сообщение об ошибке.

Устанавливаемое значение всегда является в инструкции Property Let пoследним параметром. В следующем примере переменная vNewValue передает значение, которое присваивается свойству Description:I

Public Property Let Description(ByVal vNewValue As Variant)

Description = vNewValue

End Property

Возвращаясь к примеру с объектом Datafile, допустим, что записи содержат числа, буквы, а также точки, поэтому требуется, чтобы разделителем не был ни один из символов, который входит в содержимое полей. Для этого напишем следующую процедуру Property Let, которая перед присваиванием проверяет устанавливаемое значение:

Public Property Let Delimiter(ByVal vNewValue As Variant)

Dim AscChar as integer

AscChar = Asc(ucase(str$(vNewValue)))

If (IsNumeric(vNewValue)) Or (vNewValue = ".") _

[Or ((AscChar > 64) And (AscChar < 91)) Then

Err.Raise 5, "Datafile object: Delimiter Property", "Invalid value"

Else

Delimiter = vNewValue

End If

End Property

Процедура Property Get. Процедура Property Get используется для получения значения свойства, например, для примера с объектом WorkingFile:

MyFilename = WorkingFile.name

Текущее значение свойства обычно хранится в переменной уровня модуля, поэтому процедура Property Get должна присвоить требуемому свойству значение, равное значению этой переменной.

Предположим, что текущее значение свойства Filename хранится в переменной уровня модуля m_filename, поэтому она доступна в любой процедуре класса. Процедура Property Get просто присваивает свойству значение переменной m_filename:

Public Property Get Filename( ) As Variant

Filename = m_filename

End Property

Процедуру Property Get, как и любую другую подпрограмму, можно описать с помощью ключевых слов Public, Private или Static.

Автоматическое создание свойств

С помощью диалогового окна Вставка процедуры (Add Procedure), редактор VBA автоматически создает первую и последнюю инструкции процедур Property Let и Property Get. Затем требуется самостоятельно написать код для установки и получения значений свойства.

Чтобы создать свойство объекта:

1. Откройте окно требуемого модуля класса.

2. Выберите команду Вставка\Процедура (Insert\Procedure). Появляется диалоговое окно Вставка процедуры.

3. Введите имя свойства в поле Имя (Name).

4. Выберите переключатель Свойство (Property).

5. Если свойство имеет общую область определения, т. е. доступно программисту, использующему объект, выберите переключатель Общая (Public). Если же свойство предполагается использовать только в модуле класса, выберите переключатель Личная (Private).

Примечание

Свойства с личной областью определения используются только в модуле класса и не доступны пользователю. Они предназначены для хранения данных, требуемых для выполнения служебных операций, например, запуска методов или установки значения других свойств. Кроме того, если требуется запретить изменение некоторой информации в модуле класса, назначьте этой информации личную область определения.

6. Нажмите кнопку ОК. В модуле класса создается описание процедур

Property Let и Property Get, например, для свойства Inuse:

Public roperty Get Inuse() As Variant

End Property

Public Property Let Inuse(ByVal vNewValue As Variant)

End Property

Создание методов

Создание методов объектов осуществляется просто. Если метод возвращает данные, то необходимо написать функцию. В обратном случае, требуется подпрограмма. Так или иначе, эти функции или подпрограммы ничем не отличаются от процедур в модулях формы или в простых модулях. Покажем реализацию метода Delete для объекта Datafile. Обратите внимание, что в подпрограмме используется переменная уровня модуля для хранения имени файла. Кроме того, процедура проверяет, используется ли файл другим пользователем или нет.

Public Sub Delete()

If Not (Inuse(m_filename)) Then

Kill m_filename

End If

End Sub

Пример создания объекта

Покажем, как можно создать объекты на примере объекта pedometer. Этот объект используется для вычисления расстояния, которое пешеход может пройти при заданной величине шага и указанном числе шагов. Свойствами объекта pedometer являются число шагов, средняя величина шага, а также используемая при расчетах система мер (метрическая или английская).

Для создания объекта pedometer:

1. Выберите команду Вставка\Модуль класса (Insert\Class Module). Открывается окно нового модуля класса.

2. Нажмите клавишу <F4> и введите имя класса в окне свойств.

3. В разделе описаний модуля опишите переменные уровня модуля, которые используются для хранения текущего значения числа шагов, их величины и выбранной системы мер, продуманно выбирая типы данных.

Например:

Dim m_steps As Long Dim m_size As Single Dim m_system As Integer

4. Чтобы повысить восприятие текста программ, задайте две константы, соответствующие типу используемой системы мер, например:

Const METRIC =1

Const USE = 2

5. Создайте процедуры Property Let и Property Get для свойства Steps (число шагов). В процедурах требуется проверить, что заданный параметр является числом, и, если так, то он больше или равен 0:

Public Property Get Steps( ) As Integer

Steps = vNewSteps

End Property

Public Property Let Steps(ByVal vNewSteps As Integer)

If IsNumeric(vNewSteps) Then

If vNewSteps > -1 Then

m_steps = vNewSteps

Else

Err.Raise 5, "Pedometer: свойство Steps","Значение должно быть больше или равно 0"

Else

Err.Raise 5, "Pedometer: свойство Steps", "Параметр не является числом"

End If

End Property

6. Создайте процедуры Property Let и Property Get для свойства Size (величина шага). В процедурах требуется проверить, что заданный параметр является числом:

Public Property Get Size () As Variant

Size = m_size

End Property

Public Property Let Size(ByVal vNewValue As Variant)

If Not (IsNumeric (vNewValue)) Then

Err.Raise 5, "Pedometer: свойство Size ", "Параметр не является числом"

Exit Property

End If

m_size = vNewValue

End Property

7. Создайте процедуры Property Let и Property Get для свойства System (система мер). В процедурах требуется проверить, что заданный параметр имеет допустимое значение:

Public Property Get System () As Variant

System = m_system

End Property

Public Property Let System(ByVal vNewSystem As Variant)

If vNewSystem <> METRIC And vNewSystem <> USE Then

Err.Raise 5, "Pedometer: свойство System", "Недопустимое значение"

Exit Property

End If

m_system = vNewSystem

End Property

8. Создайте метод, который вычисляет пройденное расстояние. При расчете требуется учесть различия в системах измерений:

Public Function CalculateDistance() As Single

If m_system = USE Then

CalculateDistance = ((m_steps * m_size) * 3) / 1760

Else

CalculateDistance = (m_steps * m_size) / 1000

End If

End Function

МОДЕЛЬ ОБЪЕКТОВ EXCEL

Необходимость применения Visual Basic для приложений в Excel продиктована тем, что в Excel имеется множество средств. Используя возможности Excel, например, по работе с диаграммами, финансовыми функциями и сводными таблицами, можно создать сложные приложения. VBA позволяет шить Excel новыми средствами и упростить его интерфейс.

Далее рассмотрим:

- Модель объектов Excel

- Работа с основными объектами Excel

- Создание и использование форм

Модель объектов Excel

Из всех моделей объектов Microsoft Office модель объектов Excel является наиболее зрелой. Excel 5.0 был первым офисным приложением, в котором VBA использовался как язык разработки приложений. Модель объектов Excel совершенствуется в течение нескольких лет, а теперь она стала более удобной и полной. По сравнению с Excel 5.0 в Excel 97 добавлено несколько новых объектов.

Если вы работали с предыдущими версиями Excel, то некоторые объекты будут вам знакомы. Однако некоторые элементы, например, объекты WorksheetFunction, VBE и Assistant являются новыми.

В модели объектов Excel имеются более 100 объектов и семейств. Не следует пугаться этого. Вероятно окажется, что приблизительно 10 процентов объектов и семейств достаточно, чтобы выполнить 90 процентов всех возможных действий. Примерами наиболее часто используемых объектов и семейств объекты Application, Workbook и Workbooks, Worksheet Worksheets, а также объект Range. С помощью только этих объектов и семейств можно произвести огромное множество операций.

Использование объекта Application

Исходным элементом любой модели объектов Office является объект Application. Он представляет все приложение в целом. С помощью свойств и методов элемента Application, можно установить параметры работы программы, такие как задаваемые с помощью команды Сервис\Параметры (Tools\Options). В свойствах объекта Application, например, ActiveWorkbook, ActiveSheet и ActiveCell хранится информация об объекте, с которым в текущий момент работает пользователь. Кроме того, данный объект имеет полезные методы, например, метод Application.InputBox, который удобнее, чем стандартная функция VBA InputBox().

Использование свойств объекта Application

Как уже отмечалось выше, свойства объекта Application позволяют задавать общие параметры работы приложения Excel. Рассмотрим некоторые свойства элемента Application.

Свойства ActiveWorkbook, ActiveSheet и ActiveCell. В данных свойствах хранится информация об активном объекте. Активный объект - это объект, с которым в текущий момент взаимодействует пользователь. Значение свойства ActiveCell хранится в свойстве ActiveSheet, а величина свойства ActiveSheet - в свойстве ActiveWorkbook. Приведем пример использования свойства ActiveCell:

With ActiveCell

.FontBold = True

.Value = "Отчет о продажах"

End With

Свойство Caption. В свойстве Caption объекта Application хранится имя, которое появляется в заголовке окна приложения Excel. Данное свойство доступно как для чтения, так и для установки. Если требуется скрыть, что приложение в действительности работает в Excel, то можно вместо значения "Microsoft Excel" указать другую строку:

Application.Caption = "Корпорация АБВ. Продажи"

Чтобы вернуть заголовок "Microsoft Excel", укажите ключевое слово Empty:

Application.Caption = Empty

Свойство Cursor. Свойство Cursor используется для задания внешнего вида указателя мыши во время выполнения макроса. При задании значения данного свойства можно указать одну из четырех констант Excel:

- Константа XlDefault определяет использование указателя, заданного по умолчанию в приложении Excel. *

- Константа xlWait определяет использование указателя мыши в виде песочных часов. Рекомендуется присвоить свойству Cursor это значение в начале обработки данных (например, извлечения информации), чтобы сообщить пользователю, что ему требуется подождать завершения операции.

- Константа XlNorthwestArrow используется реже. Она определяет вывод указателя мыши в виде стрелки основного режима.

- Константа xlBeam используется также не очень часто. Она определяет вывод указателя мыши в виде стрелки выделения текста.

Необходимо отметить, что после изменения свойства Cursor необходимо восстановить исходный вид мыши, присвоив свойству Cursor значение xlDefault, т. к. это не производится автоматически по завершении работы

...