Объекты инструментальных панелей
Наряду с формами, основными элементами интерфейса, создаваемого для документов Office 2000, являются пользовательские инструментальные панели. Как объект, инструментальная панель принадлежит классу CommandBar. Ее свойство Controls возвращает коллекцию класса CommandBarControls. На панелях располагаются элементы разного типа - меню и команды меню, кнопки нескольких возможных видов. Как объекты, эти элементы принадлежат следующим классам: CommandbarButton, CommandBarComboBox, CommandBarControl, CommandbarPopUp. Объекты всех этих классов обладают свойствами HelpFile и HelpContextID. Оба свойства должны быть заданы для каждого элемента. Заметьте, файл, задающий справку, не связывается ни с панелью, ни с документом, а указывается для каждого отдельного элемента. В принципе это дает некоторую свободу и позволяет, например, иметь отдельный файл для каждой инструментальной панели. Устанавливаются эти свойства программно. Вот пример установления этих свойств у первых трех элементов одной пользовательской инструментальной панели:
Public Sub AddHelpProps() 'Добавление контекстных справок к элементам панели Dim panel As CommandBar Dim ctrl As CommandBarButton
Dim HelpFilePath As String HelpFilePath = "e:\O2000\DsCd\WhatThisHelpToWGC\HelpToWGC.chm"
Set panel = CommandBars("ButtonPanel") 'Устанавливаем свойства элементов панели 'Help Свойства кнопки Set ctrl = panel.Controls(1) ctrl.HelpFile = HelpFilePath ctrl.HelpContextId = 1000
Set ctrl = panel.Controls(2) ctrl.HelpFile = HelpFilePath ctrl.HelpContextId = 1001
Set ctrl = panel.Controls(3) ctrl.HelpFile = HelpFilePath ctrl.HelpContextId = 1002 End Sub
