RemoveMenuFromMenuBar Example

Using Programming Languages other than VBA

Sub Example_RemoveMenuFromMenuBar()
	' This example creates a new menu called TestMenu and inserts a menu item
	' into it. The menu is displayed on the menu bar, and then
	' removed from the menu bar.

	Dim currMenuGroup As acadMenuGroup
	Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

	' Create the new menu
	Dim newMenu As AcadPopupMenu
	Set newMenu = currMenuGroup.Menus.Add("TestMenu")

	' Add a menu item to the new menu
	Dim newMenuItem As AcadPopupMenuItem
	Dim openMacro As String
	' Assign the macro string the VB equivalent of "ESC ESC _open "
	openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)

	Set newMenuItem = newMenu.AddMenuItem(newMenu.count + 1, "Open", openMacro)

	' Display the menu on the menu bar
	newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.count + 1)
	GoSub QUERYMENU

	' Remove the menu from the menu bar
	currMenuGroup.Menus.RemoveMenuFromMenuBar ("TestMenu")
	GoSub QUERYMENU
	Exit Sub

QUERYMENU:
	If newMenu.OnMenuBar Then
		MsgBox "The menu called " & newMenu.name & " is on the menu bar."
	Else
		MsgBox "The menu called " & newMenu.name & " is not on the menu bar."
	End If
	Return
	
End Sub






   Comments?