请问怎么实现对vb60上的窗体控件的一次_懒猪编程实例七：Visual Basic实现带美丽图标的菜单...

一般在程序中，菜单是以文本形式来显示的，如下图所示，很单调和乏味的文字

如果在菜单的前面加上图标,那么这个程序界面就显得高大上了,怎么加呢,说实话在VB里面加这种图标还算是比较麻烦的,它需要用到各种API函数进行调用，一大堆的莫名参数等着你去理解，很是头疼，下面来看看你的头是怎么疼的吧

图标菜单

这里面用到了几个关于菜单添加图标的API函数,其中包括GetMenu、GetSubMenu、GetMenuItemID和SetMenuItemBitmaps，利用这几个函数可以将图标添加到菜单上

在编写代码前，我们要加入一个ImageList控件，这个控件是实现菜单图标化的关键，没它不行，大家可以在工具栏中找到这个控件图标，放到窗体上即可。如果工具栏中没有这个控件，还是老方法，通过"工程"菜单下的"部件"进行添加

将ImageList控件添加到窗体后，右键属性弹出窗口后，通过插入图片添加四个我们需要用到的小图像

搞定之后，开始编写代码了，首先要声明我们需要用到的几个API函数，以便我们在程序中可以直接调用

双击窗体进入到窗体加载代码区域，编写如下代码

代码解释

GetMenu负责获得弹出菜单的句柄，说白了，就是靠它来判断窗体上到底有没有菜单控件，如果没有则返回Null值，其中这里面的hwnd参数就是来指定有菜单的窗口

GetSubMenu负责获得弹出菜单的句柄，它有两个参数，hmenu参数用来指定父菜单，npos菜单用来指定弹出菜单在主菜单中的位置

SetMenuItemBitmaps的作用就是把位图搞过来，它的参数比较多，hmenu和npos参数功能和上面的一样，wflags参数来决定npos参数指定的是ID还是顺序编号，hBitmapUnchecked和hBitmapChecked就是指定菜单项的位图了

知道这几个函数的功能和参数的作用就不难理解窗体程序中加载的代码了

menu1 = GetMenu(Me.hwnd)：判断有没有菜单

menuid = GetMenuItemID(GetSubMenu(menu1, 0), i - 1)：获取菜单的ID数值

SetMenuItemBitmaps menu1, menuid, bitmap, ImageList1.ListImages(i).Picture, ImageList1.ListImages(i).Picture：将图像通过FOR循环依次赋值给这个菜单

运行效果

可以很明显的看到，文件菜单下的子菜单前面都有一个小的图标了，当然这个是随意选上去的，大家可以根据程序要实现的功能，到网络上找一些比较漂亮的小图像放上去，这样会使程序界面看起来更美

下一期教大家，如何在VC#中加入菜单图标，方法要比VB更容易，值得期待！