ActiveBar控件

ActiveBar 是一款设想用户界面必不可少的 ActiveX 控件，如果你想让本人的程序变得更专业，就必须用它。使用它能够制造出像 Word 一样的个性化菜单、“自定义”对话框；像 Outlook 的快速按钮栏；像 CorelDRAW 的入坞式窗口；像 Delphi 的控件选择页面。并且使用十分简单，保存设想图和加载设想图都十分简单，只用几个方法既可。SP3 中全面支持了 XP 样式，能够在非 XP 操做系统中实现XP 的介面。这个控件能够用在 VB5、VB6 和 VC++ 上。 以下是在程序中使用的部分代码： Dim oTool As Tool acbToolBar.Bands.Add \"系统工程\" With acbToolBar.Bands(\"系统工程\") set oTool = .Tools.Add(0, \"miProjLoad\") oTool.Caption = \"&ProjLoad\" oTool.SetPicture Index:=0, Picture:=LoadPicture( _ App.Path & \"\图标配置\工具栏图标\系统工程\ProjLoad.ico\"), Color:=&HC0C0C0 oTool.Width = 15 oTool.ToolTipText = \"载入工程\" oTool.BeginGroup = True Set oTool = .Tools.Add(1, \"miProjSave\") oTool.Caption = \"&ProjSave\" oTool.SetPicture Index:=0, Picture:=LoadPicture( _ App.Path & \"\图标配置\工具栏图标\系统工程\ProjSave.ico\"), Color:=&HC0C0C0 oTool.Width = 15 oTool.ToolTipText = \"保存工程\" Set oTool = .Tools.Add(2, \"miProjClose\") oTool.Caption = \"&ProjClose\" oTool.SetPicture Index:=0, Picture:=LoadPicture( _ App.Path & \"\图标配置\工具栏图标\系统工程\ProjClose.ico\"), Color:=&HC0C0C0 oTool.Width = 15 来源：www.va1314.com/bc oTool.ToolTipText = \"关闭工程\" 用Active Bar制作带图标菜单 ---- 我不是一个编程高手，可也总喜欢编些程序，自从学习了对象化编程，自己编的程序也越来越象模象样。可我一看到那呆板的菜单时便象有一根鱼刺如哏在喉，我曾几次试图改变这一切，可凭我的编程技术都无功而返。一看到OFFICE中的那带有图标的的菜单，我不由的发出这样的感慨，难道MicroSoft在开发编程工具的时候还留了一手??作出具有图标的菜单便成了我一时的心愿。 ---- 但是当你从中下载ActiveBar Designer以后，这种心愿马上就可以变成现实。 ---- 安装ActiveBar控件后，启动VB建立一个新的工程文件。选择工程 部件 控件 ActiveBar Control,调出工具箱窗口，在窗口的最下方便可以看到ActiveBar控件。点击此控件，在窗体中画出它，大小位置随意。在窗体中的控件上右击鼠标，选择Designer选项，弹出控件设计程序。 ---- 点取Tools窗口中的按钮，在弹出的Manage Categories对话框中增加两个新的category分别为File和Main。在Tools窗口中选择File,点取Insert Tools,在弹出的对话框中输入Caption为&New，Name 为变量名miNew，Shortcut Key为Ctrl+N，最关键的是点取Description中的Image按钮，自己创作或从剪贴板上粘贴一副图片，单击Apply应用按钮。同时建立Open、Save、Print等菜单项。 ---- 点Bands窗口，选Insert Band Popub Menu。在PopupBand1上右击鼠标，选择Edit Properties，输入Caption为File按OK。双击Bands窗口中的PopupBand1，选取Tools中的File选项，将刚才建立的图标按钮依次拖动到File窗口中。 ---- 在Tools窗口中选取Main选项，选Insert Tools,输入Caption为&File，Name为miName，Shortcut Key为Ctrl+F，SubBand为PopubBand1。选择Insert Band Menu Bar，双击Bands中的MnuBand1，将Tools窗口中的Main选项下的File图标按钮拖入MnuBand1窗口中。结果如下所示，可以将这个过程保存起来。 ---- 回到VB工程窗口中，右击鼠标右键，查看ActiveBar1的代码并加入如下内容： Private Sub ActiveBar1_Click(ByVal Tool As ActiveBarLibraryCtl.Tool) Select Case Tool.Name Case "miNew" NewFile ' Create a new document Case "miOpen" OpenFile    ' Open an existing file Case "miSave" SaveFile    ' Save File Case "miPrint" PrintFile  ' Print current open file End Select End Sub ---- 编译，运行，大功告成了，我终于看到了那具有图标的下拉菜单，用Active Bar还能够制作其他的很多东西，各位朋友可要细细品位。 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.重要方法