Элемент управления Toolbar (панель инструментов) содержит коллекцию кнопок (объектов Button), которые обычно служат для ускоренного доступа к наиболее часто вызываемым функциям и командам программы. Нажатие на кнопку связывается с определенными действиями с помощью события ButtonClick.
Публикуется с разрешения авторов. (С) Андрей Колесов, Ольга Павлова Вперые опубликовано в электронной версии журнала "Мир ПК" N 3/99 | | Элемент управления Toolbar (панель инструментов) содержит коллекцию кнопок (объектов Button), которые обычно служат для ускоренного доступа к наиболее часто вызываемым функциям и командам программы. Нажатие на кнопку связывается с определенными действиями с помощью события ButtonClick. Кнопки Кнопка может содержать как текст, так и изображение; текст задается с помощью свойства Caption, изображение - с помощью свойства Image. Изображения для кнопок хранятся в элементе управления ImageList. Во время разработки программы кнопки добавляются в коллекцию в окне свойств Toolbar; во время выполнения добавление и удаление кнопок можно производить с помощью методов Add и Remove. Поведение и внешний вид кнопок определяются с помощью свойства Style (стиль). В частности, предусмотрен стиль ButtonGroup. Если приписать его, например, четырем разным кнопкам, то в любой момент будет нажата одна и только одна из них. Применение стиля PlaceHolder позволяет размещать на панели инструментов другие элементы управления (не кнопки): вы создаете кнопку, приписываете ей этот стиль, задаете требуемые размеры и перетаскиваете на кнопку нужный элемент управления (например, раскрывающийся список). Панель инструментов Объект Toolbar допускает пользовательскую настройку во время выполнения программы (соответствующее окно вызывается двойным щелчком по панели инструментов). Эта возможность включается и отключается с помощью свойства AllowCustomize. Кроме того, окно настройки можно открыть, используя метод Customize. Отметим, что это окно содержит кнопку Help для вызова справки. Справочный файл определяется с помощью свойств HelpFile и HelpContextID. Дополнительно с каждым объектом Button можно связать всплывающую подсказку ToolTip, которая будет появляться при наведении указателя мыши на соответствующую кнопку, если для свойства ShowTips задано значение True. Чтобы создать такую подсказку, выделите кнопку и введите нужный текст в окне свойств в поле Description. Методы SaveToolbar и RestoreToolbar обеспечивают сохранение текущего состояния панели инструментов и его восстановление. Для активизации метода SaveToolbar обычно используется событие Change, генерируемое при изменении объекта Toolbar. Внутри компонентов Microsoft Office для работы с меню и панелями инструментов можно применять раздел CommandBars объектной модели Office. Пример использования Toolbar Добавьте к пользовательской форме элемент управления Microsoft Toolbar Control, version 5.0, после чего выполните следующие шаги: - Добавьте к той же форме элементы управления ImageList и TextBox ("Поле").
- Установите значения свойств Name и Caption для формы и элементов управления так, как показано в таблице:
Объект | Свойство | Значение | UserForm | Name | usfContainer | UserForm | Caption | Элемент управления ToolBar | ImageList | Name | imgTlbExample | Toolbar | Name | tblODE | TextBox | Name | txtDisplay | - В окне свойств Toolbar выделите элемент (Custom), после чего нажмите кнопку (...).
- В появившемся диалоговом окне выберите закладку Buttons и нажмите кнопку Insert Button.
- В поле Caption введите слово "Красный", а в поле Key - a.
- Аналогично добавьте еще две кнопки, задав для свойства Caption значения "Зеленый" и "Синий", а для свойства Key - b и c.
- Внесите три изображения в элемент управления ImageList.
- Щелкните по элементу управления ImageList на пользовательской форме.
- В окне кода введите следующий текст:
Private Sub tlbODE_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.Key ' Осуществляется выбор в соответствии с кнопкой Case "a" txtDisplay.ForeColor = vbRed Case "b" txtDisplay.ForeColor = vbGreen Case "c" txtDisplay.ForeColor = vbBlue End Select End Sub Private Sub UserForm_Initialize() Dim btnODE As Button ' Связывает элементы управления ImageList и ToolBar usfContainer.tlbODE.ImageList = imgTlbExample ' Связывает кнопки с изображениями usfContainer.tlbODE.Buttons(1).Image = 1 usfContainer.tlbODE.Buttons(2).Image = 2 usfContainer.tlbODE.Buttons(3).Image = 3 End Sub - Запустите пример на выполнение. Введите в текстовом поле какой-либо текст и посмотрите, что будет происходить при нажатии кнопок на панели инструментов.
Просмотров: 6948
Ваш коментарий будет первым | | |