activebar控件
2024-07-21 02:24:08
供稿：网友
国内最大的酷站演示中心!
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 = "关闭工程"
