VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 制作带图标的菜单(使用第3方的控件)
发表评论(0)作者:杨勇, 平台:VB6.0+Win98, 阅读:10817, 日期:2000-12-03
制作带图标的菜单
2000-10-15 10:39:53  

--------------------------------------------------------------------------------


我不是一个编程高手,可也总喜欢编些程序,自从学习了对象化编程,自己编的程序也越来越像模像样。可我一看到那些呆板的菜单便如鲠在喉。我曾几次试图改变这一切,可凭借自己的编程技术都无功而返。一看到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 为变量名mi New,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 为mi Name ,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 "mi New"?
NewFile 'Create a newdocument?
Case "mi Open"?
OpenFile 'Open an existingfile?
Case "miSave"?
SaveFile 'Save File?
Case "mi Print"?
PrintFile 'Print current openfile?
End Select?
End Sub
? 编译运行,大功告成了,我终于看到了具有图标的下拉菜单,用Active Bar 还能够制作其他很多东西,各位朋友可要细细品味。?
(湖北省丹江口职工大学机电科杨勇442700)