和删除
- Sub Example_RemoveFromMenuBar()
- ' This example creates a new menu called TestMenu and inserts a menu item
- ' into it. The menu is then 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
- newMenu.RemoveFromMenuBar
- 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
|