在窗體中添加一個命令按鈕，Caption=“分割菜單”，雙擊寫如下代碼：

　　Private Sub Command1_Click()

　　Dim rv As Long

　　Dim hSubMenu As Long

　　Dim mnuItemCount As Long

　　Dim mInfo As MENUITEMINFO

　　Dim pad As Long

　　'獲取菜單項(xiàng)句柄和子菜單項(xiàng)數(shù)

　　hSubMenu=GetSubMenu(GetMenu(Me.hwnd), 0)

　　mnuItemCount=GetMenuItemCount(hSubMenu)

　　'將子菜單項(xiàng)分成兩部分

　　If mnuItemCount Mod 2<>0 Then pad=1

　　'取得當(dāng)前菜單信息

　　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)

　　If rv Then MsgBox "分割完畢"

　　End Sub

　　運(yùn)行后按命令按鈕，將發(fā)現(xiàn)子菜單項(xiàng)分成了兩部分，左邊五項(xiàng)，右邊四項(xiàng)。

　　程序運(yùn)行環(huán)境：中文WIN95，VB 5.0。

　　2010年9月計(jì)算機(jī)等級考試成績查詢時間匯總

　　2011計(jì)算機(jī)等級考試二級VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級考試二級VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級VB輔導(dǎo)知識技巧匯總