VB中实现菜单分割
发布时间：2010/8/20 9:49:52 来源：城市学习网 编辑：ziteng
在VB中要实现这一功能还是比较方便的，下面举例说明。
实现菜单分割这一功能需要使用API函数，思路是：首先获得菜单句柄，从而可得到其子菜单项数，然后将子菜单项数除以2,若子菜单项数为奇数，则将多余的一项划到第一部分，然后利用API函数SetMenuItemInfo重新设定菜单显示形式即可。
下面是一个例子。首先用菜单生成器制做一个包括9个子菜单项的菜单，然后，在总体声明部分声明用到的API函数和常数，这些可以从API说明文件中复制。
′菜单信息结构说明
'所需的API函数和常数
在窗体中添加一个命令按钮，Caption=“分割菜单”，双击写如下代码：
'获取菜单项句柄和子菜单项数
'将子菜单项分成两部分
'取得当前菜单信息
rv=GetMenuItemInfo(hSubMenu, (mnuItemCount\2)＋
'按新格式显示菜单
rv=SetMenuItemInfo(hSubMenu, (mnuItemCount\2)＋
If rv Then MsgBox "分割完毕
运行后按命令按钮，将发现子菜单项分成了两部分，左边五项，右边四项。
程序运行环境：中文WIN95，VB 5.0。
