实现菜单分割这一功能需要使用API函数，思路是：首先获得菜单句柄，从而可得到其子菜单项数，然后将子菜单项数除以2,若子菜单项数为奇数，则将多余的一项划到第一部分，然后利用API函数SetMenuItemInfo重新设定菜单显示形式即可。
下面是一个例子。首先用菜单生成器制做一个包括9个子菜单项的菜单，然后，在总体声明部分声明用到的API函数和常数，这些可以从API说明文件中复制。
OptionExplicit
′菜单信息结构说明
PrivateTypeMENUITEMINFO
cbSizeAsLong
fMaskAsLong
fTypeAsLong
fStateAsLong
wIDAsLong
hSubMenuAsLong
hbmpCheckedAsLong
hbmpUncheckedAsLong
dwItemDataAsLong
dwTypeDataAsString
cchAsLong
EndType
′所需的API函数和常数
PrivateDeclareFunctionGetMenuLib″user32″－
(ByValhwndAsLong)AsLong
PrivateDeclareFunctionGetMenuItemCountLib″user32″－
(ByValhMenuAsLong)AsLong
PrivateDeclareFunctionGetSubMenuLib″user32″－
(ByValhMenuAsLong,ByValnPosAsLong)AsLong
PrivateDeclareFunctionGetMenuItemInfoLib″user32″－
Alias″GetMenuItemInfoA″(ByValhMenuAsLong,ByValunAsLong,－
ByValbAsBoolean,lpmiiAsMENUITEMINFO)AsLong
PrivateDeclareFunctionSetMenuItemInfoLib″user32″－
Alias″SetMenuItemInfoA″(ByValhMenuAsLong,ByValuItemAsLong,－
ByValfByPositionAsLong,lpmiiAsMENUITEMINFO)AsLong
ConstMIIM—TYPE=＆H10
ConstRGB—STARTNEWCOLUMNWITHVERTBAR=＆H20＆
ConstMFT—STRING=＆H0＆
在窗体中添加一个命令按钮，Caption=“分割菜单”，双击写如下代码：
PrivateSubCommand1—Click()
DimrvAsLong
DimhSubMenuAsLong
DimmnuItemCountAsLong
DimmInfoAsMENUITEMINFO
DimpadAsLong
′获取菜单项句柄和子菜单项数
hSubMenu=GetSubMenu(GetMenu(Me.hwnd),0)
mnuItemCount=GetMenuItemCount(hSubMenu)
′将子菜单项分成两部分
IfmnuItemCountMod2<>0Thenpad=1
′取得当前菜单信息
mInfo.cbSize=Len(mInfo)
mInfo.fMask=MIIM—TYPE
mInfo.fType=MFT—STRING
mInfo.dwTypeData=Space＄(256)
mInfo.cch=Len(mInfo.dwTypeData)
rv=GetMenuItemInfo(hSubMenu,(mnuItemCount\2)＋pad,True,mInfo)
′按新格式显示菜单
mInfo.fType=RGB—STARTNEWCOLUMNWITHVERTBAR
mInfo.fMask=MIIM—TYPE
rv=SetMenuItemInfo(hSubMenu,(mnuItemCount\2)＋pad,True,mInfo)
IfrvThenMsgBox″分割完毕″
EndSub
运行后按命令按钮，将发现子菜单项分成了两部分，左边五项，右边四项。
程序运行环境：中文WIN95，VB5.0。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
