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 = "關閉工程"
