About the Configure a command for a specific locale Sample
[C#]
CulturalResources.cs
using System; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Data; using System.Runtime.InteropServices; using System.Reflection; using ESRI.ArcGIS.Controls; using ESRI.ArcGIS.Carto; using ESRI.ArcGIS.Geometry; using ESRI.ArcGIS.SystemUI; using ESRI.ArcGIS.ADF; using ESRI.ArcGIS; namespace Controls { /// <summary> /// Summary description for Form1. /// </summary> public class Form1 : System.Windows.Forms.Form { /// <summary> /// Required designer variable. /// </summary> private System.ComponentModel.Container components = null; private TableLayoutPanel tableLayoutPanel1; private Label lblCulture; private AxLicenseControl axLicenseControl1; private AxPageLayoutControl axPageLayoutControl1; private AxTOCControl axTOCControl1; private AxToolbarControl axToolbarControl1; ToolbarMenu m_pToolbarMenu = new ToolbarMenuClass(); public Form1() { // // Required for Windows Form Designer support // InitializeComponent(); } /// <summary> /// Clean up any resources being used. /// </summary> protected override void Dispose(bool disposing) { 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.tableLayoutPanel1 = new System.Windows.Forms.TableLayoutPanel(); this.lblCulture = new System.Windows.Forms.Label(); this.axLicenseControl1 = new ESRI.ArcGIS.Controls.AxLicenseControl(); this.axPageLayoutControl1 = new ESRI.ArcGIS.Controls.AxPageLayoutControl(); this.axTOCControl1 = new ESRI.ArcGIS.Controls.AxTOCControl(); this.axToolbarControl1 = new ESRI.ArcGIS.Controls.AxToolbarControl(); this.tableLayoutPanel1.SuspendLayout(); ((System.ComponentModel.ISupportInitialize)(this.axLicenseControl1)).BeginInit(); ((System.ComponentModel.ISupportInitialize)(this.axPageLayoutControl1)).BeginInit(); ((System.ComponentModel.ISupportInitialize)(this.axTOCControl1)).BeginInit(); ((System.ComponentModel.ISupportInitialize)(this.axToolbarControl1)).BeginInit(); this.SuspendLayout(); // // tableLayoutPanel1 // this.tableLayoutPanel1.ColumnCount = 2; this.tableLayoutPanel1.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.05695F)); this.tableLayoutPanel1.ColumnStyles.Add(new System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 74.94305F)); this.tableLayoutPanel1.Controls.Add(this.lblCulture, 0, 2); this.tableLayoutPanel1.Controls.Add(this.axLicenseControl1, 1, 2); this.tableLayoutPanel1.Controls.Add(this.axPageLayoutControl1, 1, 1); this.tableLayoutPanel1.Controls.Add(this.axTOCControl1, 0, 1); this.tableLayoutPanel1.Controls.Add(this.axToolbarControl1, 0, 0); this.tableLayoutPanel1.Location = new System.Drawing.Point(2, 2); this.tableLayoutPanel1.Name = "tableLayoutPanel1"; this.tableLayoutPanel1.RowCount = 3; this.tableLayoutPanel1.RowStyles.Add(new System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.598214F)); this.tableLayoutPanel1.RowStyles.Add(new System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 90.40179F)); this.tableLayoutPanel1.RowStyles.Add(new System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 45F)); this.tableLayoutPanel1.Size = new System.Drawing.Size(878, 514); this.tableLayoutPanel1.TabIndex = 6; // // lblCulture // this.lblCulture.AutoSize = true; this.lblCulture.Location = new System.Drawing.Point(3, 468); this.lblCulture.Name = "lblCulture"; this.lblCulture.Size = new System.Drawing.Size(46, 17); this.lblCulture.TabIndex = 0; this.lblCulture.Text = "label1"; // // axLicenseControl1 // this.axLicenseControl1.Enabled = true; this.axLicenseControl1.Location = new System.Drawing.Point(223, 471); 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 = 1; // // axPageLayoutControl1 // this.axPageLayoutControl1.Location = new System.Drawing.Point(223, 48); this.axPageLayoutControl1.Name = "axPageLayoutControl1"; this.axPageLayoutControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axPageLayoutControl1.OcxState"))); this.axPageLayoutControl1.Size = new System.Drawing.Size(652, 417); this.axPageLayoutControl1.TabIndex = 2; // // axTOCControl1 // this.axTOCControl1.Location = new System.Drawing.Point(3, 48); this.axTOCControl1.Name = "axTOCControl1"; this.axTOCControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axTOCControl1.OcxState"))); this.axTOCControl1.Size = new System.Drawing.Size(214, 417); this.axTOCControl1.TabIndex = 3; // // axToolbarControl1 // this.tableLayoutPanel1.SetColumnSpan(this.axToolbarControl1, 2); this.axToolbarControl1.Location = new System.Drawing.Point(3, 3); this.axToolbarControl1.Name = "axToolbarControl1"; this.axToolbarControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axToolbarControl1.OcxState"))); this.axToolbarControl1.Size = new System.Drawing.Size(872, 28); this.axToolbarControl1.TabIndex = 4; // // Form1 // this.AutoScaleBaseSize = new System.Drawing.Size(6, 15); this.ClientSize = new System.Drawing.Size(892, 528); this.Controls.Add(this.tableLayoutPanel1); this.MaximumSize = new System.Drawing.Size(900, 568); this.MinimumSize = new System.Drawing.Size(900, 568); this.Name = "Form1"; this.Text = "CulturalResources"; this.Load += new System.EventHandler(this.Form1_Load); this.tableLayoutPanel1.ResumeLayout(false); this.tableLayoutPanel1.PerformLayout(); ((System.ComponentModel.ISupportInitialize)(this.axLicenseControl1)).EndInit(); ((System.ComponentModel.ISupportInitialize)(this.axPageLayoutControl1)).EndInit(); ((System.ComponentModel.ISupportInitialize)(this.axTOCControl1)).EndInit(); ((System.ComponentModel.ISupportInitialize)(this.axToolbarControl1)).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) { System.Globalization.CultureInfo pCulture; //Set the Thread UI Culture manually by uncommenting one of the three cultures //that you wish to set below. pCulture = System.Globalization.CultureInfo.CreateSpecificCulture("fr-FR"); //pCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US"); //pCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-ES"); //Set the UI Culture System.Threading.Thread.CurrentThread.CurrentUICulture = pCulture; //Confirm that the Thread UI Culture is set. lblCulture.Text = "Current Thread UI Culture = " + System.Threading.Thread.CurrentThread.CurrentUICulture.DisplayName; //Add command to open an mxd document string sProgID; sProgID = "esriControls.ControlsOpenDocCommand"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); //Add Map navigation commands sProgID = "esriControls.ControlsMapZoomInTool"; axToolbarControl1.AddItem(sProgID, -1, -1, true, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsMapZoomOutTool"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsMapPanTool"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsMapFullExtentCommand"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); //Add PageLayout navigation commands sProgID = "esriControls.ControlsPageZoomInTool"; axToolbarControl1.AddItem(sProgID, -1, -1, true, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsPageZoomOutTool"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsPagePanTool"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsPageZoomWholePageCommand"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsPageZoomPageToLastExtentBackCommand"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsPageZoomPageToLastExtentForwardCommand"; axToolbarControl1.AddItem(sProgID, -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconOnly); sProgID = "esriControls.ControlsSelectTool"; //Add Culture Tool axToolbarControl1.AddItem("VBCSharpCultureSample.CultureTool", -1, -1, true, 0, esriCommandStyles.esriCommandStyleIconAndText); //Add Culture Command axToolbarControl1.AddItem("VBCSharpCultureSample.CultureCommand", -1, -1, false, 0, esriCommandStyles.esriCommandStyleIconAndText); //Add Culture Menu axToolbarControl1.AddItem("VBCSharpCultureSample.CultureMenu", -1, -1, false, 0, esriCommandStyles.esriCommandStyleTextOnly); //Add the MenuDef to the ToolbarMenu string progID = "VBCSharpCultureSample.CultureMenu"; m_pToolbarMenu.AddItem(progID, -1, -1, false, esriCommandStyles.esriCommandStyleIconAndText); //Set the Toolbarmenu's hook m_pToolbarMenu.SetHook(axToolbarControl1); //Set Buddy Controls axTOCControl1.SetBuddyControl(axPageLayoutControl1); axToolbarControl1.SetBuddyControl(axPageLayoutControl1); } private void axPageLayoutControl1_OnMouseUp(object sender, IPageLayoutControlEvents_OnMouseUpEvent e) { //Display the Popup Menu so that it appears to the right of the mouse click if (e.button == 2) { //Cast to the IToolbarMenu2 interface of the m_pToolbarMenu IToolbarMenu2 m_pToolbarMenu2 = (IToolbarMenu2)m_pToolbarMenu; //Align the Menu so that it appears to the right of the user mouse click m_pToolbarMenu2.AlignLeft = true; //Popup the menu m_pToolbarMenu.PopupMenu(e.x, e.y, axPageLayoutControl1.hWnd); } } } }
[Visual Basic .NET]
CulturalResources.vb
Imports ESRI.ArcGIS.SystemUI Imports ESRI.ArcGIS.Controls Imports ESRI.ArcGIS Public Class CulturalResources Inherits System.Windows.Forms.Form Friend WithEvents lblCulture2 As System.Windows.Forms.Label Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel Friend WithEvents AxToolbarControl1 As ESRI.ArcGIS.Controls.AxToolbarControl Friend WithEvents AxTOCControl1 As ESRI.ArcGIS.Controls.AxTOCControl Friend WithEvents AxPageLayoutControl1 As ESRI.ArcGIS.Controls.AxPageLayoutControl Friend WithEvents AxLicenseControl1 As ESRI.ArcGIS.Controls.AxLicenseControl Private m_pToolbarMenu As ToolbarMenu #Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call 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 '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. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(CulturalResources)) Me.lblCulture2 = New System.Windows.Forms.Label Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel Me.AxToolbarControl1 = New ESRI.ArcGIS.Controls.AxToolbarControl Me.AxTOCControl1 = New ESRI.ArcGIS.Controls.AxTOCControl Me.AxPageLayoutControl1 = New ESRI.ArcGIS.Controls.AxPageLayoutControl Me.AxLicenseControl1 = New ESRI.ArcGIS.Controls.AxLicenseControl Me.TableLayoutPanel1.SuspendLayout() CType(Me.AxToolbarControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.AxTOCControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.AxPageLayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.AxLicenseControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'lblCulture2 ' Me.lblCulture2.AutoSize = True Me.lblCulture2.Location = New System.Drawing.Point(3, 479) Me.lblCulture2.Name = "lblCulture2" Me.lblCulture2.Size = New System.Drawing.Size(53, 17) Me.lblCulture2.TabIndex = 10 Me.lblCulture2.Text = "Culture" ' 'TableLayoutPanel1 ' Me.TableLayoutPanel1.ColumnCount = 2 Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 21.18451!)) Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 78.81549!)) Me.TableLayoutPanel1.Controls.Add(Me.lblCulture2, 0, 2) Me.TableLayoutPanel1.Controls.Add(Me.AxToolbarControl1, 0, 0) Me.TableLayoutPanel1.Controls.Add(Me.AxTOCControl1, 0, 1) Me.TableLayoutPanel1.Controls.Add(Me.AxPageLayoutControl1, 1, 1) Me.TableLayoutPanel1.Controls.Add(Me.AxLicenseControl1, 1, 2) Me.TableLayoutPanel1.Location = New System.Drawing.Point(2, 3) Me.TableLayoutPanel1.Name = "TableLayoutPanel1" Me.TableLayoutPanel1.RowCount = 3 Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 7.30689!)) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 92.69311!)) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 33.0!)) Me.TableLayoutPanel1.Size = New System.Drawing.Size(878, 513) Me.TableLayoutPanel1.TabIndex = 11 ' 'AxToolbarControl1 ' Me.TableLayoutPanel1.SetColumnSpan(Me.AxToolbarControl1, 2) Me.AxToolbarControl1.Location = New System.Drawing.Point(3, 3) Me.AxToolbarControl1.Name = "AxToolbarControl1" Me.AxToolbarControl1.OcxState = CType(resources.GetObject("AxToolbarControl1.OcxState"), System.Windows.Forms.AxHost.State) Me.AxToolbarControl1.Size = New System.Drawing.Size(870, 28) Me.AxToolbarControl1.TabIndex = 11 ' 'AxTOCControl1 ' Me.AxTOCControl1.Location = New System.Drawing.Point(3, 38) Me.AxTOCControl1.Name = "AxTOCControl1" Me.AxTOCControl1.OcxState = CType(resources.GetObject("AxTOCControl1.OcxState"), System.Windows.Forms.AxHost.State) Me.AxTOCControl1.Size = New System.Drawing.Size(177, 436) Me.AxTOCControl1.TabIndex = 12 ' 'AxPageLayoutControl1 ' Me.AxPageLayoutControl1.Location = New System.Drawing.Point(188, 38) Me.AxPageLayoutControl1.Name = "AxPageLayoutControl1" Me.AxPageLayoutControl1.OcxState = CType(resources.GetObject("AxPageLayoutControl1.OcxState"), System.Windows.Forms.AxHost.State) Me.AxPageLayoutControl1.Size = New System.Drawing.Size(686, 436) Me.AxPageLayoutControl1.TabIndex = 13 ' 'AxLicenseControl1 ' Me.AxLicenseControl1.Enabled = True Me.AxLicenseControl1.Location = New System.Drawing.Point(188, 482) 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 = 14 ' 'CulturalResources ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15) Me.ClientSize = New System.Drawing.Size(892, 528) Me.Controls.Add(Me.TableLayoutPanel1) Me.MaximumSize = New System.Drawing.Size(900, 568) Me.MinimumSize = New System.Drawing.Size(900, 568) Me.Name = "CulturalResources" Me.Text = "Form1" Me.TableLayoutPanel1.ResumeLayout(False) Me.TableLayoutPanel1.PerformLayout() CType(Me.AxToolbarControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.AxTOCControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.AxPageLayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.AxLicenseControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region <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 CulturalResources()) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim pCulture As System.Globalization.CultureInfo 'Set the Thread UI Culture manually by uncommenting one of the three cultures 'that you wish to set below. pCulture = System.Globalization.CultureInfo.CreateSpecificCulture("fr-FR") 'pCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US") 'pCulture = System.Globalization.CultureInfo.CreateSpecificCulture("es-ES") 'Set the Thread UI Culture System.Threading.Thread.CurrentThread.CurrentUICulture = pCulture 'Confirm that the Thread UI Culture is set. lblCulture2.Text = "Current Thread UI Culture = " + System.Threading.Thread.CurrentThread.CurrentUICulture.DisplayName Dim sProgID As String 'Add command to open an mxd document sProgID = "esriControls.ControlsOpenDocCommand" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) 'Add Map navigation commands sProgID = "esriControls.ControlsMapZoomInTool" AxToolbarControl1.AddItem(sProgID, -1, -1, True, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsMapZoomOutTool" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsMapPanTool" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsMapFullExtentCommand" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) 'Add PageLayout navigation commands sProgID = "esriControls.ControlsPageZoomInTool" AxToolbarControl1.AddItem(sProgID, -1, -1, True, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsPageZoomOutTool" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsPagePanTool" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsPageZoomWholePageCommand" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsPageZoomPageToLastExtentBackCommand" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsPageZoomPageToLastExtentForwardCommand" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) sProgID = "esriControls.ControlsSelectTool" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconOnly) 'Add Culture Tool sProgID = "VBDotNETCultureSample.CultureTool" AxToolbarControl1.AddItem(sProgID, -1, -1, True, 0, esriCommandStyles.esriCommandStyleIconAndText) 'Add Culture Command sProgID = "VBDotNETCultureSample.CultureCommand" AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleIconAndText) 'Add Culture Menu to Toolbar and Popup sProgID = "VBDotNETCultureSample.CultureMenu" 'Add the Menu to a new ToolbarMenu to be used as the popup m_pToolbarMenu = New ToolbarMenu m_pToolbarMenu.AddItem(sProgID) m_pToolbarMenu.SetHook(AxToolbarControl1) 'Add the Culture Menu to the ToolbarControl AxToolbarControl1.AddItem(sProgID, -1, -1, False, 0, esriCommandStyles.esriCommandStyleTextOnly) 'Set Buddy Controls AxTOCControl1.SetBuddyControl(AxPageLayoutControl1) AxToolbarControl1.SetBuddyControl(AxPageLayoutControl1) End Sub Private Sub AxPageLayoutControl1_OnMouseDown(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IPageLayoutControlEvents_OnMouseDownEvent) 'Display the Popup Menu so that it appears to the right of the click If e.button = 2 Then 'Cast to the IToolbarMenu2 interface of the m_pToolbarMenu Dim m_pToolbarMenu2 As IToolbarMenu2 m_pToolbarMenu2 = CType(m_pToolbarMenu, IToolbarMenu) 'Align the Menu so that it appears to the right of the user mouse click m_pToolbarMenu2.AlignLeft = True 'Popup the menu m_pToolbarMenu.PopupMenu(e.x, e.y, AxPageLayoutControl1.hWnd) End If End Sub End Class