ActiveBar控件.pdfVIP

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 oTool.ToolTipText = \关闭工程\ ‘来源：/bc 用Active Bar制作带图标菜单 我不是一个编程高手，可也总喜欢编些程序，自从学习了对象化编程，自己编的程序也越来越象模象样。可我一看 到那呆板的菜单时便象有一根鱼刺如哏在喉，我曾几次试图改变这一切，可凭我的编程技术都无功而返。一看到OFFICE 中的那带有图标的的菜单，我不由的发出这样的感慨，难道 MicroSoft 在开发编程工具的时候还留了一手??作出具有图 标的菜单便成了我一时的心愿。 但是当你从中下载ActiveBar Designer以后，这种心愿马上就可以变成现实。 安装ActiveBar控件后，启动VB建立一个新的工程文件。选择工程 部件 控件 ActiveBar Control,调出工具箱窗 口，在窗口的最下方便可以看到ActiveBar控件。点击此控件，在窗体中画出它，大小位置随意。在窗体中的控件上右 击鼠标，选择Designer选项，弹出控件设计程序。 1 点取Tools窗口中的按钮，在弹出的Manage Categories 对话框