dyhu2008 发表于 2008-3-12 11:34:00

菜单文件加载问题

我在程序里已经加载了菜单，但菜单栏里却无法显示 这是为什么啊 请大家告诉我解决方法

王咣生 发表于 2008-3-12 20:24:00

用menuload命令,看看是否有你的菜单组了

windandr 发表于 2008-3-14 12:06:00

<p>也可能是</p><p>userform_initialize()设定问题</p>

guoxianlun 发表于 2008-3-17 12:31:00

<p>我也遇到这个问题，一直困扰我好久了。如下面的局部代码，我是再auto2007版上运行的，调试程序时提示“运行时错误，－2145320905（80210037）已加载菜单组blocklib”。</p><p>将ThisDrawing.Application.MenuGroups.Load strpath &amp; "blocklib.mnu"，注释掉后，再调试程序时提示“运行时错误，－2145320939（80210015），参数index(位于item中）无效”。<br/></p><p>回到autocad2007图形界面，自定义菜单界面，能看到所添加的菜单blocklib，但在图形环境里看不到。用系统的例程序能够加入菜单，并能显示。但有时在自定义界面上却找不到，不知何故，请高手们指点。</p><p></p><p></p><p>Public Sub loadmenu()<br/>'获得相对路径<br/>&nbsp;&nbsp;&nbsp; Dim strpath As String '当前工程所在的路径<br/>&nbsp;&nbsp;&nbsp; strpath = ThisDrawing.Application.VBE.activevbproject.FileName<br/>&nbsp;&nbsp;&nbsp; strpath = Left$(strpath, Len(strpath) - Len("基本图库的实现.dvb"))<br/>&nbsp;&nbsp;&nbsp; <br/>'加栽并且显示菜单<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Application.MenuGroups.Load strpath &amp; "blocklib.mnu"<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Application.MenuGroups.Item("blocklib").Menus<font size="3">.Item(<font color="#f73809">0</font>).</font>InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)<br/>&nbsp;<br/>End Sub<br/></p><p></p>

jxh2003zfr 发表于 2008-3-18 15:56:00

<p>我在程序里已经加载了菜单，但菜单栏里却无法显示 这是为什么啊 请大家告诉我解决方法</p><p>不能加载的原因有很多，建议将菜单文件传上，看看你写的。</p>
页: [1]
查看完整版本: 菜单文件加载问题