vb使用API改变菜单(国外英语资料).doc

vb使用API改变菜单(国外英语资料) 选项显式 演示项目演示如何使用API操作VB菜单 “Bryan Stafford的新视觉软件?”——newvision@imt.net 这个演示被发布到公共领域，就像“没有” 任何种类的担保或担保。换句话说，用在 你的自己的风险。 使用的API调用 私有声明函数GetMenuLib“user32”(ByVal hwnd) 私有声明函数GetSubMenuLib“user32”(ByVal hMenu，ByVal nPos) 私有声明函数GetMenuItemIDLib“user32”(ByVal hMenu，ByVal nPos) 私有声明函数莫迪菜单Lib“user32”别名“莫迪菜单”(ByVal hMenu; ByVal n体位，ByVal wFlags，ByVal wIDNewItemByVal lpString$) 私有声明函数GetSystemMetricsLib“user32”(ByVal nIndex) 私人潜艇Form_Load() 看起来，菜单的数量似乎是有限制的 在任何VB应用程序中。通过设置菜单的数量，我发现了这个 在每个菜单数组中，直到我收到一个“内存不足”的错误。 这个错误发生在三个菜单数组之间的337个条目上。这并 “不要考虑应用程序中其他更高级别的菜单。 表单的位置 (屏幕上移动。宽度2)-(宽度2)0 模板的自动绘制被设置为true因此我们需要调用表单绘制来绘制表单文本 在指定的位置上按菜单上的菜单进行操作，即“Long=H400”。 常量=H20小于——告诉莫迪菜单添加另一列垂直分隔符 常量=H40小于——告诉莫迪菜单添加另一列而没有垂直分隔符 在最大化窗口的客户区域的高度上，Const smcyfullscreen=17 菜单的高度为15，菜单的高度 昏暗的menu高程，断点，menuhWnd，submenuhWnd 我和loopnumloopstr$，$味精 获取客户区域高度并按菜单的高度来划分 为了达到这个目的，我们需要将菜单打包到一个新的列 menuheight = GetSystemMetrics(SM_CYMENU) 断点=(GetSystemMetrics(smcyfullscreen)-menu身高)menu身高 menuhWnd = GetMenu(hwnd)获取这个表单的菜单的句柄 submenuhWnd = GetSubMenu(menuhWnd,0)获取第一个子菜单的句柄 对于i=1到99的加载第一个菜单数组(rember， 零已经加载) On Error GoTo TooManyMenus 加载mnuList1(我) On Error GoTo 0 mnuList1(我)。“菜单项”CStr(i+1) 如果我们到达了断点，那么就添加一个新的列 如果我修改断点=0，那么一个竖条必须指定正确的ID 调用莫迪菜单(submenuhWnd，我，mfbyposition或mfmenubar决裂， GetMenuItemID(submenuhWnd，i)，“菜单项”CStr(i+1)) 如果 下一 获取位置的弹出菜单的句柄 submenuhWnd = GetSubMenu(submenuhWnd,我)在我们刚刚载入的菜单之后 因为i=1到9加载第一个菜单数组的弹出子菜单数组(rember，0已经加载) On Error GoTo TooManyMenus 加载mnuList4(我) On Error GoTo 0 mnuList4(我)。“菜单项”CStr(i+1) 如果我们到达了断点，那么就添加一个新的列，其中有一个竖条 如果我将5=0，那么必须指定正确的ID 调用莫迪菜单(submenuhWnd，我，mfbyposition或mfmenubar决裂， GetMenuItemID(submenuhWnd，i)，“菜单项”CStr(i+1)) 如果 下一 submenuhWnd = GetSubMenu(menuhWnd,1)获取第二个顶级菜单的子菜单(位置1) nextsubmenuhWnd = GetSubMenu(submenuhWnd假)获取子菜单的第一个子菜单 loopnum=1的被困错误的集合变量 对于i=1到99的加载第二个菜单数组(rember，0已经加载) On Error GoTo TooManyMenus 加载mnuList2(我) On Error GoTo 0 mnuList2(我)。“菜单项”CStr(i+1) 如果我们到达了断点，那么就添加一个新的列，其中有一个竖条 如果我修改断点=0，那么必须指定正确的ID 调用莫迪菜单(nextsubmenuhWnd，我，mfbyposition或mfmenubar决裂，