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。ActiveBarAlign返回/设置一个值，决定对象在窗体上的显示位置。数据类型为 Integer。ActiveBarAlignToForm决定 ActiveBar 是否填充整个 SDI 窗体的客户区。数据类型为 Boolean。ActiveBarAutoSizeChildren龆?ActiveBar 是否在 SDI 窗体上重新配置子控件。数据类型为 Boolean。ActiveBarAutoUpdateStatusBar决定如果一个是当前的 ActiveBar 是否自动更新状态栏。数据类型为 Boolean。ActiveBarClientAreaHeight返回客户区的高度。数据类型为 Long。ActiveBarClientAreaLeft返回客户区的左边距。数据类型为 Long。ActiveBarClientAreaTop返回客户区的上边距。数据类型为 Long。ActiveBar ClientAreaWidth 返回客户区的宽度。数据类型为 Long。ActiveBar ControlFont返回/设置组合框和文本框的字体。数据类型为 S