2011年计算机等考二级VB辅导知识技巧总结(11)

　　在窗体中添加一个命令按钮，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

　　'获取菜单项句柄和子菜单项数

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

　　mnuItemCount=GetMenuItemCount(hSubMenu)

　　'将子菜单项分成两部分

　　If mnuItemCount Mod 2<>0 Then pad=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)

　　If rv Then MsgBox "分割完毕"

　　End Sub

　　运行后按命令按钮，将发现子菜单项分成了两部分，左边五项，右边四项。

　　程序运行环境：中文WIN95，VB 5.0。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总