日期:2012-02-26  浏览次数:20497 次

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