activebar控件

王朝c#·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航