日期:2008-12-06  浏览次数:20499 次

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选项的乒乓。