About the Creating toolbar menus that work with the ToolbarControl Sample
[C#]
ToolbarMenu.cs
using System;
using System.Windows.Forms;
using ESRI.ArcGIS.esriSystem;
using ESRI.ArcGIS.SystemUI;
using ESRI.ArcGIS.Controls;
using ESRI.ArcGIS;
namespace ToolbarMenu
{
/// <summary>
/// Summary description for Form1.
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
public System.Windows.Forms.Button cmdAddSubMenu;
public System.Windows.Forms.Button cmdAddMenu;
public System.Windows.Forms.Label Label4;
public System.Windows.Forms.Label Label2;
public System.Windows.Forms.Label Label3;
public System.Windows.Forms.Label Label1;
private ESRI.ArcGIS.Controls.AxToolbarControl axToolbarControl1;
private ESRI.ArcGIS.Controls.AxMapControl axMapControl1;
private ESRI.ArcGIS.Controls.AxLicenseControl axLicenseControl1;
private IToolbarMenu m_navigationMenu = new ToolbarMenuClass();
public Label Label5;
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.Container components = null;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
//
// TODO: Add any constructor code after InitializeComponent call
//
}
/// <summary>
/// Clean up any resources being used.
/// </summary>
protected override void Dispose( bool disposing )
{
//Release COM objects
ESRI.ArcGIS.ADF.COMSupport.AOUninitialize.Shutdown();
if( disposing )
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(Form1));
this.cmdAddSubMenu = new System.Windows.Forms.Button();
this.cmdAddMenu = new System.Windows.Forms.Button();
this.Label4 = new System.Windows.Forms.Label();
this.Label2 = new System.Windows.Forms.Label();
this.Label3 = new System.Windows.Forms.Label();
this.Label1 = new System.Windows.Forms.Label();
this.axToolbarControl1 = new ESRI.ArcGIS.Controls.AxToolbarControl();
this.axMapControl1 = new ESRI.ArcGIS.Controls.AxMapControl();
this.axLicenseControl1 = new ESRI.ArcGIS.Controls.AxLicenseControl();
this.Label5 = new System.Windows.Forms.Label();
((System.ComponentModel.ISupportInitialize)(this.axToolbarControl1)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.axMapControl1)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.axLicenseControl1)).BeginInit();
this.SuspendLayout();
//
// cmdAddSubMenu
//
this.cmdAddSubMenu.BackColor = System.Drawing.SystemColors.Control;
this.cmdAddSubMenu.Cursor = System.Windows.Forms.Cursors.Default;
this.cmdAddSubMenu.Enabled = false;
this.cmdAddSubMenu.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.cmdAddSubMenu.ForeColor = System.Drawing.SystemColors.ControlText;
this.cmdAddSubMenu.Location = new System.Drawing.Point(464, 272);
this.cmdAddSubMenu.Name = "cmdAddSubMenu";
this.cmdAddSubMenu.RightToLeft = System.Windows.Forms.RightToLeft.No;
this.cmdAddSubMenu.Size = new System.Drawing.Size(97, 33);
this.cmdAddSubMenu.TabIndex = 12;
this.cmdAddSubMenu.Text = "Add Sub Menu";
this.cmdAddSubMenu.UseVisualStyleBackColor = false;
this.cmdAddSubMenu.Click += new System.EventHandler(this.cmdAddSubMenu_Click);
//
// cmdAddMenu
//
this.cmdAddMenu.BackColor = System.Drawing.SystemColors.Control;
this.cmdAddMenu.Cursor = System.Windows.Forms.Cursors.Default;
this.cmdAddMenu.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.cmdAddMenu.ForeColor = System.Drawing.SystemColors.ControlText;
this.cmdAddMenu.Location = new System.Drawing.Point(464, 176);
this.cmdAddMenu.Name = "cmdAddMenu";
this.cmdAddMenu.RightToLeft = System.Windows.Forms.RightToLeft.No;
this.cmdAddMenu.Size = new System.Drawing.Size(97, 33);
this.cmdAddMenu.TabIndex = 11;
this.cmdAddMenu.Text = "Add Menu";
this.cmdAddMenu.UseVisualStyleBackColor = false;
this.cmdAddMenu.Click += new System.EventHandler(this.cmdAddMenu_Click);
//
// Label4
//
this.Label4.BackColor = System.Drawing.SystemColors.Control;
this.Label4.Cursor = System.Windows.Forms.Cursors.Default;
this.Label4.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.Label4.ForeColor = System.Drawing.SystemColors.ControlText;
this.Label4.Location = new System.Drawing.Point(440, 232);
this.Label4.Name = "Label4";
this.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No;
this.Label4.Size = new System.Drawing.Size(137, 41);
this.Label4.TabIndex = 13;
this.Label4.Text = "Add a sub-menu to the Navigation menu.";
//
// Label2
//
this.Label2.BackColor = System.Drawing.SystemColors.Control;
this.Label2.Cursor = System.Windows.Forms.Cursors.Default;
this.Label2.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.Label2.ForeColor = System.Drawing.SystemColors.ControlText;
this.Label2.Location = new System.Drawing.Point(440, 40);
this.Label2.Name = "Label2";
this.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No;
this.Label2.Size = new System.Drawing.Size(144, 33);
this.Label2.TabIndex = 10;
this.Label2.Text = "Browse to a map document to load into the MapControl.";
//
// Label3
//
this.Label3.BackColor = System.Drawing.SystemColors.Control;
this.Label3.Cursor = System.Windows.Forms.Cursors.Default;
this.Label3.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.Label3.ForeColor = System.Drawing.SystemColors.ControlText;
this.Label3.Location = new System.Drawing.Point(440, 136);
this.Label3.Name = "Label3";
this.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No;
this.Label3.Size = new System.Drawing.Size(145, 33);
this.Label3.TabIndex = 9;
this.Label3.Text = "Add the Navigation menu onto the ToolbarControl.";
//
// Label1
//
this.Label1.BackColor = System.Drawing.SystemColors.Control;
this.Label1.Cursor = System.Windows.Forms.Cursors.Default;
this.Label1.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.Label1.ForeColor = System.Drawing.SystemColors.ControlText;
this.Label1.Location = new System.Drawing.Point(440, 80);
this.Label1.Name = "Label1";
this.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No;
this.Label1.Size = new System.Drawing.Size(137, 41);
this.Label1.TabIndex = 8;
this.Label1.Text = "Navigate around the data using the commands on the ToolbarControl.";
//
// axToolbarControl1
//
this.axToolbarControl1.Location = new System.Drawing.Point(8, 8);
this.axToolbarControl1.Name = "axToolbarControl1";
this.axToolbarControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axToolbarControl1.OcxState")));
this.axToolbarControl1.Size = new System.Drawing.Size(592, 28);
this.axToolbarControl1.TabIndex = 14;
//
// axMapControl1
//
this.axMapControl1.Location = new System.Drawing.Point(8, 40);
this.axMapControl1.Name = "axMapControl1";
this.axMapControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axMapControl1.OcxState")));
this.axMapControl1.Size = new System.Drawing.Size(424, 368);
this.axMapControl1.TabIndex = 15;
this.axMapControl1.OnMouseDown += new ESRI.ArcGIS.Controls.IMapControlEvents2_Ax_OnMouseDownEventHandler(this.axMapControl1_OnMouseDown);
//
// axLicenseControl1
//
this.axLicenseControl1.Enabled = true;
this.axLicenseControl1.Location = new System.Drawing.Point(24, 56);
this.axLicenseControl1.Name = "axLicenseControl1";
this.axLicenseControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axLicenseControl1.OcxState")));
this.axLicenseControl1.Size = new System.Drawing.Size(32, 32);
this.axLicenseControl1.TabIndex = 16;
//
// Label5
//
this.Label5.BackColor = System.Drawing.SystemColors.Control;
this.Label5.Cursor = System.Windows.Forms.Cursors.Default;
this.Label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.Label5.ForeColor = System.Drawing.SystemColors.ControlText;
this.Label5.Location = new System.Drawing.Point(439, 328);
this.Label5.Name = "Label5";
this.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No;
this.Label5.Size = new System.Drawing.Size(145, 33);
this.Label5.TabIndex = 17;
this.Label5.Text = "Right click on the display to popup the Navigation menu";
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
this.ClientSize = new System.Drawing.Size(608, 414);
this.Controls.Add(this.Label5);
this.Controls.Add(this.axLicenseControl1);
this.Controls.Add(this.axMapControl1);
this.Controls.Add(this.axToolbarControl1);
this.Controls.Add(this.cmdAddSubMenu);
this.Controls.Add(this.cmdAddMenu);
this.Controls.Add(this.Label4);
this.Controls.Add(this.Label2);
this.Controls.Add(this.Label3);
this.Controls.Add(this.Label1);
this.Name = "Form1";
this.Text = "Form1";
this.Load += new System.EventHandler(this.Form1_Load);
((System.ComponentModel.ISupportInitialize)(this.axToolbarControl1)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.axMapControl1)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.axLicenseControl1)).EndInit();
this.ResumeLayout(false);
}
#endregion
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
if (!RuntimeManager.Bind(ProductCode.Engine))
{
if (!RuntimeManager.Bind(ProductCode.Desktop))
{
MessageBox.Show("Unable to bind to ArcGIS runtime. Application will be shut down.");
return;
}
}
Application.Run(new Form1());
}
private void Form1_Load(object sender, System.EventArgs e)
{
//Set buddy control
axToolbarControl1.SetBuddyControl(axMapControl1);
//Create UID's and add new items to the ToolbarControl
UID uID = new UIDClass();
uID.Value = "esriControls.ControlsOpenDocCommand";
axToolbarControl1.AddItem(uID, -1, -1, false, -1, esriCommandStyles.esriCommandStyleIconAndText);
uID.Value = "esriControls.ControlsMapZoomInTool";
axToolbarControl1.AddItem(uID, -1, -1, true, -1, esriCommandStyles.esriCommandStyleIconAndText);
uID.Value = "esriControls.ControlsMapZoomOutTool";
axToolbarControl1.AddItem(uID, -1, -1, false, -1, esriCommandStyles.esriCommandStyleIconAndText);
uID.Value = "esriControls.ControlsMapPanTool";
axToolbarControl1.AddItem(uID, -1, -1, false, -1, esriCommandStyles.esriCommandStyleIconAndText);
uID.Value = "esriControls.ControlsMapFullExtentCommand";
axToolbarControl1.AddItem(uID, -1, -1, false, -1, esriCommandStyles.esriCommandStyleIconAndText);
//Create a MenuDef object
IMenuDef menuDef = new NavigationMenu();
//Create a ToolbarMenu
m_navigationMenu.AddItem(menuDef, 0, -1, false, esriCommandStyles.esriCommandStyleIconAndText);
//Set the ToolbarMenu's hook
m_navigationMenu.SetHook(axToolbarControl1.Object);
//Set the ToolbarMenu's caption
m_navigationMenu.Caption ="Navigation";
}
private void cmdAddMenu_Click(object sender, System.EventArgs e)
{
//Add to the end of the Toolbar - it will be the 6th item
axToolbarControl1.AddItem(m_navigationMenu, -1, -1, false, 0, esriCommandStyles.esriCommandStyleMenuBar);
cmdAddMenu.Enabled = false;
cmdAddSubMenu.Enabled = true;
}
private void cmdAddSubMenu_Click(object sender, System.EventArgs e)
{
//Create a MenuDef object
IMenuDef menuDef = new ToolbarSubMenu();
//Get the menu, which is the 6th item on the toolbar (indexing from 0)
IToolbarItem toolbarItem = axToolbarControl1.GetItem(5);
IToolbarMenu toolbarMenu = toolbarItem.Menu;
//Add the sub-menu as the third item on the Navigation menu, making it start a new group
toolbarMenu.AddSubMenu(menuDef, 2, true);
cmdAddSubMenu.Enabled = false;
}
private void axMapControl1_OnMouseDown(object sender, IMapControlEvents2_OnMouseDownEvent e)
{
if (e.button == 2)
//Popup the menu
m_navigationMenu.PopupMenu(e.x, e.y, axMapControl1.hWnd);
}
}
}
[Visual Basic .NET]
ToolbarMenu.vb
Imports ESRI.ArcGIS.Controls
Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.SystemUI
Imports ESRI.ArcGIS
Public Class frmToolbarMenu
Inherits System.Windows.Forms.Form
<STAThread()> _
Shared Sub Main()
'Load runtime
If Not RuntimeManager.Bind(ProductCode.Engine) Then
If Not RuntimeManager.Bind(ProductCode.Desktop) Then
MessageBox.Show("Unable to bind to ArcGIS runtime. Application will be shut down.")
System.Environment.Exit(1) ' Force exit or other indication in the application
End If
End If
Application.Run(New frmToolbarMenu())
End Sub
#Region "Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
'Release COM objects
ESRI.ArcGIS.ADF.COMSupport.AOUninitialize.Shutdown()
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public WithEvents cmdAddSubMenu As System.Windows.Forms.Button
Public WithEvents cmdAddMenu As System.Windows.Forms.Button
Public WithEvents Label4 As System.Windows.Forms.Label
Public WithEvents Label2 As System.Windows.Forms.Label
Public WithEvents Label3 As System.Windows.Forms.Label
Public WithEvents Label1 As System.Windows.Forms.Label
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents AxToolbarControl1 As ESRI.ArcGIS.Controls.AxToolbarControl
Friend WithEvents AxMapControl1 As ESRI.ArcGIS.Controls.AxMapControl
Public WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents AxLicenseControl1 As ESRI.ArcGIS.Controls.AxLicenseControl
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmToolbarMenu))
Me.cmdAddSubMenu = New System.Windows.Forms.Button
Me.cmdAddMenu = New System.Windows.Forms.Button
Me.Label4 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.AxToolbarControl1 = New ESRI.ArcGIS.Controls.AxToolbarControl
Me.AxMapControl1 = New ESRI.ArcGIS.Controls.AxMapControl
Me.AxLicenseControl1 = New ESRI.ArcGIS.Controls.AxLicenseControl
Me.Label5 = New System.Windows.Forms.Label
CType(Me.AxToolbarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AxMapControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AxLicenseControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cmdAddSubMenu
'
Me.cmdAddSubMenu.BackColor = System.Drawing.SystemColors.Control
Me.cmdAddSubMenu.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdAddSubMenu.Enabled = False
Me.cmdAddSubMenu.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdAddSubMenu.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdAddSubMenu.Location = New System.Drawing.Point(419, 240)
Me.cmdAddSubMenu.Name = "cmdAddSubMenu"
Me.cmdAddSubMenu.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdAddSubMenu.Size = New System.Drawing.Size(97, 33)
Me.cmdAddSubMenu.TabIndex = 6
Me.cmdAddSubMenu.Text = "Add Sub Menu"
Me.cmdAddSubMenu.UseVisualStyleBackColor = False
'
'cmdAddMenu
'
Me.cmdAddMenu.BackColor = System.Drawing.SystemColors.Control
Me.cmdAddMenu.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdAddMenu.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdAddMenu.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdAddMenu.Location = New System.Drawing.Point(417, 157)
Me.cmdAddMenu.Name = "cmdAddMenu"
Me.cmdAddMenu.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdAddMenu.Size = New System.Drawing.Size(97, 33)
Me.cmdAddMenu.TabIndex = 5
Me.cmdAddMenu.Text = "Add Menu"
Me.cmdAddMenu.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.BackColor = System.Drawing.SystemColors.Control
Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
Me.Label4.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label4.Location = New System.Drawing.Point(416, 205)
Me.Label4.Name = "Label4"
Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label4.Size = New System.Drawing.Size(137, 41)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Add a sub-menu to the Navigation menu."
'
'Label2
'
Me.Label2.BackColor = System.Drawing.SystemColors.Control
Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
Me.Label2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label2.Location = New System.Drawing.Point(416, 40)
Me.Label2.Name = "Label2"
Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label2.Size = New System.Drawing.Size(144, 33)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Browse to a map document to load into the MapControl."
'
'Label3
'
Me.Label3.BackColor = System.Drawing.SystemColors.Control
Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
Me.Label3.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label3.Location = New System.Drawing.Point(414, 121)
Me.Label3.Name = "Label3"
Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label3.Size = New System.Drawing.Size(145, 33)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Add the Navigation menu onto the ToolbarControl."
'
'Label1
'
Me.Label1.BackColor = System.Drawing.SystemColors.Control
Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
Me.Label1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label1.Location = New System.Drawing.Point(416, 80)
Me.Label1.Name = "Label1"
Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label1.Size = New System.Drawing.Size(137, 41)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Navigate around the data using the commands on the ToolbarControl."
'
'AxToolbarControl1
'
Me.AxToolbarControl1.Location = New System.Drawing.Point(8, 8)
Me.AxToolbarControl1.Name = "AxToolbarControl1"
Me.AxToolbarControl1.OcxState = CType(resources.GetObject("AxToolbarControl1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxToolbarControl1.Size = New System.Drawing.Size(560, 28)
Me.AxToolbarControl1.TabIndex = 8
'
'AxMapControl1
'
Me.AxMapControl1.Location = New System.Drawing.Point(8, 40)
Me.AxMapControl1.Name = "AxMapControl1"
Me.AxMapControl1.OcxState = CType(resources.GetObject("AxMapControl1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxMapControl1.Size = New System.Drawing.Size(400, 352)
Me.AxMapControl1.TabIndex = 9
'
'AxLicenseControl1
'
Me.AxLicenseControl1.Enabled = True
Me.AxLicenseControl1.Location = New System.Drawing.Point(24, 56)
Me.AxLicenseControl1.Name = "AxLicenseControl1"
Me.AxLicenseControl1.OcxState = CType(resources.GetObject("AxLicenseControl1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxLicenseControl1.Size = New System.Drawing.Size(32, 32)
Me.AxLicenseControl1.TabIndex = 10
'
'Label5
'
Me.Label5.BackColor = System.Drawing.SystemColors.Control
Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
Me.Label5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label5.Location = New System.Drawing.Point(417, 287)
Me.Label5.Name = "Label5"
Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label5.Size = New System.Drawing.Size(145, 33)
Me.Label5.TabIndex = 11
Me.Label5.Text = "Right click on the display to popup the Navigation menu"
'
'frmToolbarMenu
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(574, 403)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.AxLicenseControl1)
Me.Controls.Add(Me.AxMapControl1)
Me.Controls.Add(Me.AxToolbarControl1)
Me.Controls.Add(Me.cmdAddSubMenu)
Me.Controls.Add(Me.cmdAddMenu)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label1)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Location = New System.Drawing.Point(4, 23)
Me.Name = "frmToolbarMenu"
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Text = "Toolbar Menu"
CType(Me.AxToolbarControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AxMapControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AxLicenseControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private m_navigationMenu As IToolbarMenu = New ToolbarMenuClass
Private Sub frmToolbarMenu_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
'Set buddy control
AxToolbarControl1.SetBuddyControl(AxMapControl1)
'Create UID's and add new items to the ToolbarControl
Dim pUid As New UID
pUid.Value = "esriControls.ControlsOpenDocCommand"
AxToolbarControl1.AddItem(pUid, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconAndText)
pUid.Value = "esriControls.ControlsMapZoomInTool"
AxToolbarControl1.AddItem(pUid, -1, -1, True, 0, esriCommandStyles.esriCommandStyleIconAndText)
pUid.Value = "esriControls.ControlsMapZoomOutTool"
AxToolbarControl1.AddItem(pUid, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconAndText)
pUid.Value = "esriControls.ControlsMapPanTool"
AxToolbarControl1.AddItem(pUid, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconAndText)
pUid.Value = "esriControls.ControlsMapFullExtentCommand"
AxToolbarControl1.AddItem(pUid, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconAndText)
'Create a MenuDef object
Dim pMenuDef As IMenuDef
pMenuDef = New NavigationMenu
'Create a ToolbarMenu
m_navigationMenu.AddItem(pMenuDef, 0, -1, False, esriCommandStyles.esriCommandStyleIconAndText)
'Set the Toolbarmenu's hook
m_navigationMenu.SetHook(AxToolbarControl1.Object)
'Set the ToolbarMenu's caption
m_navigationMenu.Caption = "Navigation"
End Sub
Private Sub cmdAddMenu_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdAddMenu.Click
'Add to the end of the Toolbar - it will be the 6th item
AxToolbarControl1.AddItem(m_navigationMenu, -1, -1, False, 0, esriCommandStyles.esriCommandStyleMenuBar)
cmdAddMenu.Enabled = False
cmdAddSubMenu.Enabled = True
End Sub
Private Sub cmdAddSubMenu_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdAddSubMenu.Click
'Create a MenuDef object
Dim pMenuDef As IMenuDef
pMenuDef = New ToolbarSubMenu
'Get the menu, which is the 6th item on the toolbar (indexing from 0)
Dim pToolbarItem As IToolbarItem
pToolbarItem = AxToolbarControl1.GetItem(5)
Dim pToolbarMenu As IToolbarMenu
pToolbarMenu = pToolbarItem.Menu
'Add the sub-menu as the third item on the Navigation menu, making it
'start a new group
pToolbarMenu.AddSubMenu(pMenuDef, 2, True)
cmdAddSubMenu.Enabled = False
End Sub
Private Sub AxMapControl1_OnMouseDown(ByVal sender As System.Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseDownEvent) Handles AxMapControl1.OnMouseDown
If e.button = 2 Then
'Popup the menu
m_navigationMenu.PopupMenu(e.x, e.y, AxMapControl1.hWnd)
End If
End Sub
End Class