|
实用技巧
用Active Bar制作带图标菜单
湖北省丹江口职工大学
杨勇
----
我不是一个编程高手，可也总喜欢编些程序，自从学习了对象化编程，自己编的程序也越来越象模象样。可我一看到那呆板的菜单时便象有一根鱼刺如哏在喉，我曾几次试图改变这一切，可凭我的编程技术都无功而返。一看到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还能够制作其他的很多东西，各位朋友可要细细品位。
|
