ActiveBar控件的使用

Data Dynamics ActiveBar是由Data Dynamics开发的一款设计用户界面必不可少的 ActiveX 控件，如果你想让自己的程序变得更专业，就必须用它。使用它可以制作出像 Word 一样的个性化菜单、“自定义”对话框；像 Outlook 的快捷按钮栏；像 CorelDRAW 的入坞式窗口；像 Delphi 的控件选择页面。并且使用十分简单，保存设计图和加载设计图都十分简单，只用几个方法既可。SP3 中全面支持了 XP 样式，可以在非 XP 操作系统中实现 XP 的介面。这个控件可以在 VB6 、 V C++ 、Delphi、 PB等开发工具上使用。

1、对象ActiveBar

         Tools

         Tool

        Bands

          Band

  Tools

     Tool

  ChildBands

     Band

             Tools

       Tool

    CustomizeListBox

       2、添加主菜单：

       在Form中添加一个ActiveBar―＞对其右单击选中快捷菜单中的属性―＞弹出ActiveBar设计器界面（左侧的TreeView中显示当前ActiveBar的资源，右侧显示选中资源的属性－＞右单击资源栏中的Bands添加一个MenuBar为工程的主菜单项－＞右单击刚刚添加的主菜单添加若干Button作为主菜单的各个显示项。

       其中：AlignToForm确定ActiveBar是否填充整个Form

       3、添加一级菜单

       右单击资源栏中的Bands添加一个PopUpMenu为工程的一级子菜单项－＞右单击一级子菜单添加若干Button作为一级子菜单的各个显示项。－＞将主菜单的相应显示项的SubBands值设置为此一级子菜单的Name值。

       4、添加二级菜单

       右单击资源栏中的Bands添加一个PopUpMenu为工程的二级子菜单项－＞右单击二级子菜单添加若干Button作为二级子菜单的各个显示项。－＞将一级子菜单的相应显示项的SubBands值设置为此二级子菜单的Name值。

       5、实现菜单的Check选项

       在程序相应的菜单中使用ABar.Bands("MenuTool").Tools.item("…").Checked = Not AABar.Bands("MenuTool").Tools.item("…").Checked来实现Check选项的乒乓。

       6、工具栏

       工具栏的实现方法与菜单相似

       CaptionPostion――工具栏中的文字相对于图标的位置

       Style――工具栏中显示文字或图标还是文字图标都显示

       DisplayMoreToolsButton――Determines if the More Tools button is displayed on the band.

5.重要属性

ActiveBand	返回包含一个带有输入焦点按钮的带区（例如一个文本框或组合框）。数据类型为 Band。	ActiveBar
Align	返回/设置一个值，决定对象在窗体上的显示位置。数据类型为 Integer。	ActiveBar
AlignToForm	决定 ActiveBar 是否填充整个 SDI 窗体的客户区。数据类型为 Boolean。	ActiveBar
AutoSizeChildren	龆?ActiveBar 是否在 SDI 窗体上重新配置子控件。数据类型为 Boolean。	ActiveBar
AutoUpdateStatusBar	决定如果一个是当前的 ActiveBar 是否自动更新状态栏。数据类型为 Boolean。	ActiveBar
ClientAreaHeight	返回客户区的高度。数据类型为 Long。	ActiveBar
ClientAreaLeft	返回客户区的左边距。数据类型为 Long。	ActiveBar
ClientAreaTop	返回客户区的上边距。数据类型为 Long。	ActiveBar
ClientAreaWidth	返回客户区的宽度。数据类型为 Long。	ActiveBar
ControlFont	返回/设置组合框和文本框的字体。数据类型为 StdFont。	ActiveBar
DisplayToolTips	决定是否当用户悬停载按钮上方时显示工具提示。数据类型为 Boolean。	ActiveBar
Font	返回/设置显示在按钮上文字的字体。数据类型为 StdFont。	ActiveBar
MenuAnimation	设置 ActiveBar 菜单显示的样式。数据类型为 Integer。	ActiveBar
MenuFontStyle	决定菜单的字体是使用字体属性或者操作系统的设置。数据类型为 Integer。	ActiveBar
PersonalizedMenus	决定个性化（最近使用）菜单项的行为。数据类型为 Integer。	ActiveBar
picture	返回/设置工具栏的纹理图片。数据类型为 StdPicture。	ActiveBar
ShadowColor	返回/设置 3D 阴影颜色。数据类型为 Long。	ActiveBar
ThreeDDarkShadow	弹出式带区的 3D 阴影颜色。数据类型为 Long。	ActiveBar
Tools	返回在使用运行时自定义的一个按钮集合。数据类型为 Tool。	ActiveBar
UserDefinedCustomization	决定当用户在系统上下文菜单中单击“自定义”时是否使用默认自定义对话框。数据类型为 Boolean。	ActiveBar
Caption	一个显示在页、窗口标题和带区头柄区的字符串。数据类型为 String。	Band/Tool
DisplayMoreToolsButton	显示“更多按钮”按钮或仅仅只是一个指示器。数据类型为 Boolean。	Band
Flags	一个双精度值来定义带区的某一些属性。数据类型为 Double。	Band
GrabHandleStyle	如果要，表示带区头柄的的样式。数据类型为 Integer。	Band
Tools	返回带区上的按钮对象的集合。数据类型为 Tool。	Band
Type	表示带区的样式。数据类型为 Integer。	Band
BackColor	滑行页面的背景颜色。数据类型为 Long。	ChildBands
ChildBandBackgroundStyle	滑行页子带区的背景样式。数据类型为 Integer。	ChildBands
ChildBandCaptionAlignment	滑动页子带区的文字对齐样式。数据类型为 Integer。	ChildBands

6.重要方法

ApplyAll	应用这个按钮的属性到所有与它有相同的编号的控件。	ActiveBar
Customize	在运行时开始自定义。	ActiveBar
GetToolFromPosition	设置一个屏幕位置，获得在这个位置上的带区或按钮。	ActiveBar
GetBandFromPosition
LoadLayoutChanges	从一个字节数组中加载设计图信息。	ActiveBar
LoadMenuUsageData	加载菜单的使用数据。	ActiveBar
PlaySound	从一个文获系统声音播放声音。	ActiveBar
RecalcLayout	重新计算入坞和浮动的带区的设计图。	ActiveBar
Refresh	重绘所有的工具栏。	ActiveBar
Re GISterChildMenu	注册一个带有 ActiveBar 的子菜单带区。	ActiveBar
SaveLayoutChanges	保存正确的设计图信息到一个字节数组中。	ActiveBar
SaveMenuUsageData	保存菜单使用数据。	ActiveBar
GetToolIndex	返回一个按钮的编号。	Band
PopupMenu	弹出菜单。	Band
PopupMenuEx	不考虑区域地显示弹出菜单。	Band
Refresh	重新绘制工具栏。	Band
CBAddItem	添加一项到组合框控件中。	Tool
CBClear	清除组合框中的内容。	Tool
SetPictureMask	设置按钮图片的蒙蔽色。	Tool

　

7.重要事件

BandClose	当用户使用弹出菜单或浮动时关闭一个所选的带区时发生。
BandDock	当带区入坞时发生。
BandMove	当一个工具栏在屏幕被移动时发生。
BandOpen	当用户用弹出菜单打开一个所选的带区时发生。
BandResize	当带区被重新调整大小时发生。
BandUndock	当带区出坞时发生。
ChildBandChange	当一个子带区被单击时发生。
ComboDrop	当用户单击组合框的下拉箭头时发生。
ComboSelChange	当在组合框中当前的所选项被改变时发生。
CustomizeBegin	开始自定义时发生。
CustomizeEnd	自定义结束时发生。
Error	当一个 ActiveBar 的内部的错误发生时发生。
MouseEnter	当一个按钮移动到一个按钮的区域时发生。
MouseExit	当指针从一个按钮区域移动出来时发生。
NewToolbar	当用户按下在“自定义”对话框中的“新建工具栏”按钮时发生。
QueryUnload	当一个应用程序被关闭时发生，用异于 0 的值设置取消来告诉 ActiveBar 释放关闭的窗体和控件。
Reset	当从“自定义”对话框中按下“重新设置”按钮或者在 ActiveBar 控件上使用重新设置方法时发生。
TextChange	当文本框或组合框中的文字改变时发生。
ToolClick	当用户在一个按钮或选择菜单按下鼠标左键时发生。
ToolDblClick	当双击工具栏中的按钮时发生。