社区 › VB › 菜单文件加载问题

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

菜单文件加载问题

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

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

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

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

也可能是
userform_initialize()设定问题

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

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

End Sub

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

不能加载的原因有很多，建议将菜单文件传上，看看你写的。

查看完整版本: 菜单文件加载问题