
- •Оглавление
- •Справочная информация Элементы управления и пользовательская форма Элементы управления
- •Режим конструктора
- •Установка свойств элемента управления
- •Редактор кода
- •Пользовательская форма UserForm
- •Семейство Controls
- •Создание пользовательской формы
- •Общие свойства элементов управления
- •Соглашения об именах
- •Общие методы и события элементов управления
- •Объект DataObject
- •Надпись
- •Заполнение списка
- •Выбор нескольких элементов из списка
- •Поле со списком
- •Полоса прокрутки и счетчик
- •Переключатель
- •Флажок и выключатель
- •Ссылки на ячейки и диапазоны
- •Набор страниц
- •Набор вкладок
- •Дополнительные элементы управления
- •Последовательность выбора элементов управления
- •Последовательность перехода
- •Закрытие диалогового окна
- •Отображение встроенных диалоговых окон
- •Примеры Заполнение базы данных Пример 1
- •Пример2
- •If Sheets("БазаДанных").Cells(НайденнаяЗапись, 3)
- •If Sheets("БазаДанных").Cells(НайденнаяЗапись, 6)
- •If Sheets("БазаДанных").Cells(НайденнаяЗапись, 7)
- •Пример: Опросчик Задача:
- •Разработка программы
- •Заключение
- •Задание.
- •Литература
Ссылки на ячейки и диапазоны
Элемент управления RefEdit (редактирование ссылок) создается с помощью кнопки RefEdit (рис. 24). Элемент управления RefEdit обычно используется для ввода ссылок на ячейки или диапазоны. Основным свойством элемента управления RefEdit является Text, возвращающее строку, введенную в поле ввода этого элемента управления.
Рис. 24. Элемент управления RefEdit в форме
Набор страниц
Элемент управления MultiPage (набор страниц) создается с помощью кнопки Набор страниц (MultiPage) (рис. 25). Этот элемент управления реализует многостраничные диалоговые окна. Заголовки страниц отображаются на вкладках. Переход от страницы к странице осуществляется выбором вкладки посредством щелчка кнопкой мыши.
Рис. 25. Набор страниц в форме
Создать, переименовать, удалить или переместить страницу элемента управления MultiPage можно вручную, выбрав ярлык соответствующего листа и вызвав щелчком правой кнопки мыши контекстное меню. Используя это контекстное меню, можно произвести одно из перечисленных действий.
Объект MultiPage содержит в себе семейство Pages, являющееся набором всех страниц, входящих в этот объект.
Перечислим свойства объекта MultiPage.
Value и BoundValue |
Возвращают номер активной страницы. Нумерация производится с нуля |
MultiRow |
Допустимые значения: True (если ярлыки не помещаются ; в одну строку, то они выводятся в несколько строк) и False (если ярлыки не помещаются в одну строку, то появляется полоса прокрутки, позволяющая переходить от страницы к странице) |
Selectedltem |
Возвращает выбранную страницу |
Семейство Pages, содержащее все страницы, входящие в объект MultiPage, имеет единственное свойство count, возвращающее число элементов семейства. Кроме того, у семейства Pages имеются следующие методы.
Add |
Создает новую страницу. Синтаксис: Set Object = object. Add ( [ Name [, Captitsn [, index]]]) Oobject — семейство Pages Name — имя страницы Caption — текст, отображаемый на ярлыке страницы Iindex — номер страницы, нумерация страниц производится с 0 |
Clear |
Удаляет все страницы из семейства Pages |
Remove |
Удаляет страницу из семейства Pages |
Item |
Возвращает страницу со специфицированным индексом. Синтаксис: Set Object = object . Item(collectionindex) |
Набор вкладок
Элемент управления Tabstrip (набор вкладок) создается с помощью кнопки Набор вкладок (TabStrip) (рис. 26). Он позволяет создать несколько вкладок в диалоговом окне. Объект TabStrip содержит в себе семейство Tabs, представляющее собой набор всех вкладок. Объект Tabstrip и семейство таБз обладают теми же свойствами и методами, что и объект MuitiPage и семейство Pages .
Рис. 26. Набор страниц 6 форме
Дополнительные элементы управления
В VBA, кроме перечисленных стандартных элементов управления, имеется ряд дополнительных. Дополнительные элементы управления являются самостоятельными объектами, обладающие как общими для всех элементов управления свойствами и методами, так и присущими только им свойствами и методами. Для добавления дополнительных элементов управления на панель элементов необходимо:
Выбрать команду Сервис, Дополнительные элементы (Tools, Additional Controls).
В появившемся на экране окне Дополнительные элементы (Additional Controls) (рис. 27) в списке Доступные элементы (Available Controls) установить флажок напротив добавляемого элемента.
Нажать кнопку ОК.
Удаление ненужного элемента управления из панели элементов почти аналогично добавлению, а именно, надо:
Выбрать команду Сервис, Дополнительные элементы (Tools, Additional Controls).
В появившемся на экране окне Дополнительные элементы (Additional Controls) (рис. 27) в списке Доступные элементы (Available Controls) снять флажок напротив удаляемого элемента.
Нажать кнопку ОК.
Рис. 27. Диалоговое окно Дополнительные элементы
Среди дополнительных элементов управления очень полезным является элемент управления Calendar (календарь) (рис. 28). Этот объект представляет средство для организации удобного интерфейса по вводу дат. Элемент управления конструируется в форме с помощью кнопки Календарь (Calendar)
Рис. 28. Календарь в форме
Перечислим основные свойства элемента управления calendar.
Day |
Возвращает выбранный день |
DayFont , DayFontColor |
Устанавливают шрифт и цвет шрифта для названий дней недели |
DayLenght |
Допустимые значения: Длинный (Long) (отображаются полные названия дней) Средний (Medium) (в русской версии — отображаются две буквы из названий дней, в английской -три буквы) Короткий (Short) (отображается только по первой букве из названия дня) |
FirstDay |
Первый день недели. Допустимые значения от воскресенье (Sunday) до суббота (Saturday) |
Month |
Возвращает выбранный месяц |
MonthLenght |
Допустимые значения: длинный ( Long ) (отображаются полные названия месяца) и короткий (short) (отображаются только первые три буквы из названия месяца) |
ShowDays |
Допустимые значения: True (отображаются названия дней недели) и False (в противном случае) |
ShowDataselected |
Допустимые значения: True (отображается выбранная дата в верхней части календаря) и False (в противном случае) |
Value |
Возвращает выбранную дату |
Year |
Возвращает выбранный год |
Перечислим основные методы элемента управления calendar.
NextDay, NextWeek, NextMonth и NextYear |
Устанавливает следующий день, неделю, месяц и год |
PreviousDay, PreviousWeek, PreviousMonth и PreviousYear |
Устанавливает предыдущий день, неделю, месяц и год |
Today |
Устанавливает текущую дату в календаре |
В качестве примера использования календаря приведем следующую процедуру, которая считывает из календаря выбранную дату и вводит ее в ячейку рабочего листа:
Private Sub Calendarl_Click()
Cells (1, 1).Value = Calendar1.Value
End Sub