删除菜单?????

sailor538

删除菜单组????? RemoveFromMenuBar   还是存在在菜单组中

有什么办法吗??

wyj7485

ThisDrawing.Application.MenuGroups.Item("MyMenu").Unload

sailor538

当用了ThisDrawing.Application.MenuGroups.Item("菜单组名称").Menus.RemoveMenuFromMenuBar

再建立("菜单组名称")的菜单，出现错误，说此菜单存在于菜单组中

请继续关注

wyj7485

Sub LoadMenu()
Dim i
i = ThisDrawing.Application.MenuGroups.Count
ThisDrawing.Application.MenuGroups.Load "d:\My.mnu"
ThisDrawing.Application.MenuGroups.Item("MyMenu").Menus.InsertMenuInMenuBar "MyMenu", i
End Sub
Sub unLoadMenu()
ThisDrawing.Application.MenuGroups.Item("MyMenu").Unload
End Sub

加载错误后要删除后缀为mnr,cui的编译文件

要保证mnu文件格式正确