开发手记（八）—— ActiveBar控件中的利器（1）
－ 为保证文章完整性，谢绝对某篇而非全部手记的转载（ mi6236）
Data Dynamics ActiveBar是由 Data Dynamics 开发的一款 设计用户界面必不可少的 ActiveX 控件，如果你想让自己的程序变得更专业，就必须用它。使用它可以制作出像 Word 一样的个性化菜单、“自定义”对话框；像 Outlook 的快捷按钮栏；像 CorelDRAW 的入坞式窗口；像 Delphi 的控件选择页面。并且使用十分简单，保存设计图和加载设计图都十分简单，只用几个方法既可。SP3 中全面支持了 XP 样式，可以在非 XP 操作系统中实现 XP 的介面。这个控件可以在 VB6 、 VC++ 、 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
<td style="BORDER-RIGHT: #d4d0c8; PADDING-RIGHT: 0cm; BORDER-TOP: #d4