activebar控件

新客网 XKER.COM 2005-08-16 来源： 收藏本文

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 = "关闭工程"

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决