分栏式程序菜单（1---003）

1、在菜单编辑器中创建菜单时，“库位代码”----“ 责任单位”间的10个菜单项的名称均为base,索引从0到9

2、“初盘输入”---“商品借出”间的10个菜单项的名称均为mov,索引从0到9

3、“库存查询”---“ 库存报表”间的10个菜单项的名称均为search,索引从0到9

4、代码如下：

'以下代码是通过VB菜单的“外接程序”--->“API浏览器”添加的

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Type MENUITEMINFO
    cbSize As Long