谁能告诉我activebar控件的用法？

Question

制作带图标的菜单
2001年05月15日 21:14:01
 
 
    我不是一个编程高手，可也总喜欢编些程序，自从学习了对象化编程，自己编的程序也越来越像模像样。可我一看到那些呆板的菜单便如鲠在喉。我曾几次试图改变这一切，可凭借自己的编程技术都无功而返。一看到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 

Answer 1

跟我学用ActiveBar
 喜爱编程的朋友们，想不想轻轻松松就制作出类似于office97、ie5这样的专业级界面来？activebar就可以实现大家的梦想。该软件是由datadynamics公司开发的，运行于windows 95/98、windows nt 的环境下，可用于vb、 vc、 delphi以及web界面的开发，能在design time和runtime两种方式下生成界面。好了，赶快下载activebar，到http://www.net.edu.cn的“eduction on line”-“软件大本营”处，下载actbar10.exe文件，大小为1354kb。安装完成后，就随我一起开始activebar之旅。启动vb(5.0/6.0都可以)，建立一个新工程，选择菜单“工程”-“部件”，打开“部件”对话框，选择控件acticebar control，将activebar控件添加到vb的工具箱中，这时vb的工具箱中会出现这样 一个控件。在vb的新工程中建立一个mdi窗体，一定要把这个mdi窗体设置为首先启动的窗体。将 控件添加到窗体上，如图1所示，选择 图标，单击鼠标右键，在菜单中点击“designer”来启动activebar，如图2所示。在tools的窗体上单击图标来打开manage categories对话框，在new category的文本框中输入file后，单击旁边的add按钮。按照此方法依次输入edit、help、built-in menus后，如图3所示。完成后单击ok按钮，来保存manage categories对话框的内容。回到tools窗体，在下拉列表框中选择file，点击 图标，出现 tool properties的对话框，在caption文本框中输入：新建(&f) ，name文本框中输入mifnew，tooltip text文本框中输入: 新建文件，在shortcut key下拉列表框中选择ctrl-n，其他的选项可以不进行改动。接着我们可以为这个new子项添加图标，点击tool properties对话框下方的image按钮，这时会出现一个图标编辑窗口，如图4所示。点击capture image图标，屏幕上会出现一个带有网格的正方形框，并且鼠标的指针变为一个小放大镜，按住鼠标左键，将小放大镜放在自己感兴趣的图标上时，该图标会出现在正方形框中，调整好图标的位置后，松开左键捕获这个图标，图标编辑窗体再次出现，单击apply按钮进行确认。此时，file项中的new子项已经完成。如法炮制，点击 图标继续添加子项，输入的内容请见表1。表1：file项内容name caption tooltip text shortcut keymifopen 打开(&o) 打开文件 ctrl-omifsave 保存(&s) 保存文件 ctrl-smifprint 打印(&p) 打印文件 ctrl-pmifexit 退出(&x) 关闭程序 f11接下来我们按照表2、3的内容，依次完成edit项和help项的制作。表2：edit项内容name caption tooltip text shortcut keymiecut 剪切(&t) 剪切 ctrl-xmiecopy 复制(&c) 拷贝 ctrl-cmiepaste 粘贴(&p) 粘贴 ctrl-v表3：help项内容name caption tooltip textmihcontents 内容(&c) 内容mihsearch 搜索(&s) 搜索mihabout 关于(&a) 关于在bond窗体上点击 create popup图标来添加一个新的子菜单，此时bond窗体上出现popupbond1项，双击此项，屏幕上出现一个名为popupbond1的窗体，用鼠标右键单击此窗体，在弹出的菜单中选择bond properties，在bond properties对话框的name文本框中输入file，caption框中输入myfile。此时，popupbond1窗体已改名为myfile窗体，然后切换到tools窗体，在下拉列表框中选择file项，将其所属的各子项都拖入到file窗体里，结果如图6所示。依照上述方法，为edit、help项添加popupmenu2、popupmenu3窗体，分别在name文本框中输入edit、help，在caption框中分别输入myedit、myhelp，完成这两项的制作。切换到tools窗体，在下拉列表框中选择built-in menu项，依次点击 newtool图标，来生成3个子项，分别填写tool properties对话框，内容请参见表4表4：built-in menu项内容name caption submenumnufile 文件(&f) filemnuedit 编辑(&e) editmnuhelp 帮助(&h) help回到bonds窗体，点击 menu bar图标，会出现mnuband1子项，双击鼠标打开该子项的窗体，选定这个窗体，单击鼠标右键单出窗体菜单，将此窗体的name改为mainmenu，将tools窗体上的built-in menu项所属的所有子项都拖到新建的窗体上，具体方法同上述相似，不再赘述。最后一步是为这个制作好的菜单界面添加工具条：在bonds窗体上点击 toolbar 图标，双击产生的band1项，打开band1窗体，将窗体的name改为standard，可以把你制作过的图标统统都拖到这个窗体上。