ArcGIS Engine Developer Guide

BUILDING APPLICATIONS WITH ACTIVEX
Creating a popup menu for the PageLayoutControl
In addition to adding control commands to the ToolbarControl to work with the
buddy control, as in the previous step, you can also create popup menus from the
Control commands. You will add a popup menu to your application that works
with the PageLayoutControl. The popup menu will display whenever the right
mouse button is used on the display area of the PageLayoutControl.
1. Add the following code to the general declarations area of the form:
Option Explicit
Private m_pToolbarMenu As IToolbarMenu ' The popup menu
2. Add the following code to the Form_Load event after the code, adding the
commands to the ToolbarControl but before the load document code.
Private Sub Form_Load()
' Add Map navigation commands…
' Create a new ToolbarMenu.
Set m_pToolbarMenu = New ToolbarMenu
' Share the ToolbarControl's command pool.
Set m_pToolbarMenu.CommandPool = ToolbarControl1.CommandPool
' Add commands to the ToolbarMenu.
sProgID = "esriControlTools.ControlsPageZoomInFixedCommand"
m_pToolbarMenu.AddItem sProgID, , , False, esriCommandStyleIconAndText
sProgID = "esriControlTools.ControlsPageZoomOutFixedCommand"
m_pToolbarMenu.AddItem sProgID, , , False, esriCommandStyleIconAndText
sProgID = "esriControlTools.ControlsPageZoomWholePageCommand"
m_pToolbarMenu.AddItem sProgID, , , False, esriCommandStyleIconAndText
sProgID = "esriControlTools.ControlsPageZoomPageToLastExtentBackCommand"
m_pToolbarMenu.AddItem sProgID, , , True, esriCommandStyleIconAndText
sProgID = "esriControlTools.ControlsPageZoomPageToLastExtentForwardCommand"
m_pToolbarMenu.AddItem sProgID, , , False, esriCommandStyleIconAndText
' Set the hook to the PageLayoutControl.
m_pToolbarMenu.SetHook PageLayoutControl1
' Load a preauthored…
End Sub
3. Add the following code to the PageLayoutControl1_OnMouseDown event.
Private Sub PageLayoutControl1_OnMouseDown(ByVal button As Long, ByVal
shift As Long, ByVal x As Long, ByVal y As Long, ByVal pageX As
Double, ByVal pageY As Double)
' Popup the ToolbarMenu.
If button = vbRightButton Then
m_pToolbarMenu.PopupMenu x, y, PageLayoutControl1.hWnd
End If
End Sub
290 • ArcGIS Engine Developer Guide