VB中实现菜单分割

当一个菜单下子菜单项较多时，一打开菜单就出现了长长的菜单项，如果其他的菜单项下子菜单较少，就显得很不协调。现在的一些软件还允许用户在已有的菜单中添加菜单项，这都会造成子菜单项过多的情况，如果能像某些软件那样将较多的子菜单项分成两列显示就显得美观多了。在VB中要实现这一功能还是比较方便的，下面举例说明。
　　
　　实现菜单分割这一功能需要使用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,(mnuItemCount2)＋pad,True,mInfo)
　　
　　′按新格式显示菜单
　　
　　mInfo.fType=RGB―STARTNEWCOLUMNWITHVERTBAR
　　
　　mInfo.fMask=MIIM―TYPE
　　
　　rv=SetMenuItemInfo(hSubMenu,(mnuItemCount2)＋pad,True,mInfo)
　　
　　IfrvThenMsgBox″分割完毕″
　　
　　EndSub
　　
　　运行后按命令按钮，将发现子菜单项分成了两部分，左边五项，右边四项。
　　
　　程序运行环境：中文WIN95，VB5.0。->