VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用Active Bar制作带图标菜单
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:12628, 日期:2001-03-22
---- 我不是一个编程高手,可也总喜欢编些程序,自从学习了对象化编程,自己编的程序也越来越象模象样。可我一看到那呆板的菜单时便象有一根鱼刺如哏在喉,我曾几次试图改变这一切,可凭我的编程技术都无功而返。一看到OFFICE中的那带有图标的的菜单,我不由的发出这样的感慨,难道MicroSoft在开发编程工具的时候还留了一手??作出具有图标的菜单便成了我一时的心愿。

---- 但是当你从http://www.datadynamics.com中下载ActiveBar Designer以后,这种心愿马上就可以变成现实。

---- 安装ActiveBar控件后,启动VB建立一个新的工程文件。选择工程 部件 控件 ActiveBar Control,调出工具箱窗口,在窗口的最下方便可以看到ActiveBar控件。点击此控件,在窗体中画出它,大小位置随意。在窗体中的控件上右击鼠标,选择Designer选项,弹出控件设计程序。

---- 点取Tools窗口中的按钮,在弹出的Manage Categories对话框中增加两个新的category分别为File和Main。在Tools窗口中选择File,点取Insert Tools,在弹出的对话框中输入Caption为&New,Name 为变量名miNew,Shortcut Key为Ctrl+N,最关键的是点取Description中的Image按钮,自己创作或从剪贴板上粘贴一副图片,单击Apply应用按钮。同时建立Open、Save、Print等菜单项。

---- 点Bands窗口,选Insert Band Popub Menu。在PopupBand1上右击鼠标,选择Edit Properties,输入Caption为File按OK。双击Bands窗口中的PopupBand1,选取Tools中的File选项,将刚才建立的图标按钮依次拖动到File窗口中。

---- 在Tools窗口中选取Main选项,选Insert Tools,输入Caption为&File,Name为miName,Shortcut Key为Ctrl+F,SubBand为PopubBand1。选择Insert Band Menu Bar,双击Bands中的MnuBand1,将Tools窗口中的Main选项下的File图标按钮拖入MnuBand1窗口中。结果如下所示,可以将这个过程保存起来。



---- 回到VB工程窗口中,右击鼠标右键,查看ActiveBar1的代码并加入如下内容:

Private Sub ActiveBar1_Click(ByVal
Tool As ActiveBarLibraryCtl.Tool)
Select Case Tool.Name
Case "miNew"
NewFile ' Create a new document
Case "miOpen"
OpenFile ' Open an existing file
Case "miSave"
SaveFile ' Save File
Case "miPrint"
PrintFile ' Print current open file
End Select
End Sub

---- 编译,运行,大功告成了,我终于看到了那具有图标的下拉菜单,用Active Bar还能够制作其他的很多东西,各位朋友可要细细品位。