删除菜单?????

sailor538 · 发表于 2007-1-17 15:33:00

删除菜单组????? RemoveFromMenuBar 还是存在在菜单组中
有什么办法吗??

wyj7485 · 发表于 2007-1-17 18:02:00

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

sailor538 · 发表于 2007-1-18 08:33:00

当用了ThisDrawing.Application.MenuGroups.Item("菜单组名称").Menus.RemoveMenuFromMenuBar
再建立("菜单组名称")的菜单，出现错误，说此菜单存在于菜单组中
请继续关注

wyj7485 · 发表于 2007-1-18 11:29:00

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文件格式正确

删除菜单?????

发表回复

精选推荐