Изменение набора изображений в элементе
управления ImageList, связанном с элементом
управления Toolbar
В режиме разработки проекта вам может
пригодиться возможность свободно добавлять
изображения в элемент управления ImageList,
связанный с элементом управления Toolbar, или
удалять их оттуда. И поскольку VB не позволяет
изменять набор изображений в ImageList, пока он
связан с панелью инструментов, мы покажем вам
способ, как обойти данное ограничение
Шаг 1. Заполнение элемента управления
ImageList.Поместите элемент управления ImageList на
форму.(Если данный компонент не входит в комплект
инструментальных средств вашего проекта, то его
можно добавить так, как показано в Совете 187.)
Щелкните по нему правой кнопкой мыши, а затем
выберите команду Properties для открытия диалогового
окна Property Pages. Выберите вкладку Images и щелкните
кнопку Insert Picture. В диалоговом окне Select Picture
найдите изображение, которое хотите добавить в
элемент управления ImageList. Присвойте ему
уникальное свойство Key. Повторите эти операции,
пока не заполните элемент управления ImageList так,
как вам хочется.
Шаг 2. Добавление кнопок к панели
инструментов.Щелкните правой кнопкой мыши
элемент управления Toolbar и затем выберите команду
Properties. В раскрывшемся диалоговом окне Property Pages
выберите вкладку Buttons. Щелкните кнопку Insert Button и в
текстовом поле Key введите уникальное имя,
присвоенное изображению в элементе управления
ImageList. Каждая кнопка с изображением должна иметь
то же свойство Key, что и соответствующее
изображение в компоненте ImageList. Каждая кнопка без
изображения, например tbrSeparator или tbrPlaceholder, не
должна иметь свойства Key.
Шаг 3. В событии Load для формы установите связь
элементов управления ImageList и Toolbar:
Set ToolBar1.ImageList = ImageList1
Шаг 4. Присвойте изображения кнопкам на панели
инструментов:
Dim myButton as Variant
For Each myButton in ToolBar1.Buttons
If myButton.Key <> Empty Then
myButton.Image = myButton.Key
' если значение свойство Key имеет
' какой-либо смысл, используйте его
' для описания и текста подсказки
myButton.Description = myButton.Key
myButton.ToolTipText = myButton.Key
End If
Next
(Источник: Компьютер-пресс'1999)
|