ArcObjects Library Reference  

AreaLinePatches

About the Update a legend format with SymbologyControl area and line patches Sample

[C#]

AreaLinePatches.cs

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;

using ESRI.ArcGIS.Display;
using ESRI.ArcGIS.Carto;
using ESRI.ArcGIS.esriSystem;
using ESRI.ArcGIS.Geometry;
using ESRI.ArcGIS.Controls;
using ESRI.ArcGIS;
namespace AreaLinePatches
{

	public class Form1 : System.Windows.Forms.Form
	{
		private ESRI.ArcGIS.Controls.AxPageLayoutControl axPageLayoutControl1;
		private ESRI.ArcGIS.Controls.AxLicenseControl axLicenseControl1;
		private ESRI.ArcGIS.Controls.AxToolbarControl axToolbarControl1;
		private System.ComponentModel.Container components = null;
		private System.Windows.Forms.Button cmdDraw;
		private System.Windows.Forms.Button cmdDelete;
		private System.Windows.Forms.Button cmdChangeArea;
		private System.Windows.Forms.Button cmdChangeLine;

		public Form1()
		{
			InitializeComponent();
		}

		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.Resources.ResourceManager resources = new System.Resources.ResourceManager(typeof(Form1));
			this.axPageLayoutControl1 = new ESRI.ArcGIS.Controls.AxPageLayoutControl();
			this.axLicenseControl1 = new ESRI.ArcGIS.Controls.AxLicenseControl();
			this.axToolbarControl1 = new ESRI.ArcGIS.Controls.AxToolbarControl();
			this.cmdDraw = new System.Windows.Forms.Button();
			this.cmdDelete = new System.Windows.Forms.Button();
			this.cmdChangeArea = new System.Windows.Forms.Button();
			this.cmdChangeLine = new System.Windows.Forms.Button();
			((System.ComponentModel.ISupportInitialize)(this.axPageLayoutControl1)).BeginInit();
			((System.ComponentModel.ISupportInitialize)(this.axLicenseControl1)).BeginInit();
			((System.ComponentModel.ISupportInitialize)(this.axToolbarControl1)).BeginInit();
			this.SuspendLayout();
			// 
			// axPageLayoutControl1
			// 
			this.axPageLayoutControl1.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) 
				| System.Windows.Forms.AnchorStyles.Left) 
				| System.Windows.Forms.AnchorStyles.Right)));
			this.axPageLayoutControl1.Location = new System.Drawing.Point(0, 48);
			this.axPageLayoutControl1.Name = "axPageLayoutControl1";
			this.axPageLayoutControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axPageLayoutControl1.OcxState")));
			this.axPageLayoutControl1.Size = new System.Drawing.Size(800, 536);
			this.axPageLayoutControl1.TabIndex = 0;
			this.axPageLayoutControl1.OnPageLayoutReplaced += new ESRI.ArcGIS.Controls.IPageLayoutControlEvents_Ax_OnPageLayoutReplacedEventHandler(this.axPageLayoutControl1_OnPageLayoutReplaced);
			// 
			// axLicenseControl1
			// 
			this.axLicenseControl1.Enabled = true;
			this.axLicenseControl1.Location = new System.Drawing.Point(64, 32);
			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;
			// 
			// axToolbarControl1
			// 
			this.axToolbarControl1.Location = new System.Drawing.Point(0, 0);
			this.axToolbarControl1.Name = "axToolbarControl1";
			this.axToolbarControl1.OcxState = ((System.Windows.Forms.AxHost.State)(resources.GetObject("axToolbarControl1.OcxState")));
			this.axToolbarControl1.Size = new System.Drawing.Size(352, 28);
			this.axToolbarControl1.TabIndex = 6;
			// 
			// cmdDraw
			// 
			this.cmdDraw.Location = new System.Drawing.Point(368, 8);
			this.cmdDraw.Name = "cmdDraw";
			this.cmdDraw.Size = new System.Drawing.Size(88, 23);
			this.cmdDraw.TabIndex = 7;
			this.cmdDraw.Text = "Add Legend";
			this.cmdDraw.Click += new System.EventHandler(this.button1_Click);
			// 
			// cmdDelete
			// 
			this.cmdDelete.Location = new System.Drawing.Point(464, 8);
			this.cmdDelete.Name = "cmdDelete";
			this.cmdDelete.Size = new System.Drawing.Size(88, 23);
			this.cmdDelete.TabIndex = 8;
			this.cmdDelete.Text = "Delete Legend";
			this.cmdDelete.Click += new System.EventHandler(this.button2_Click);
			// 
			// cmdChangeArea
			// 
			this.cmdChangeArea.Location = new System.Drawing.Point(560, 8);
			this.cmdChangeArea.Name = "cmdChangeArea";
			this.cmdChangeArea.Size = new System.Drawing.Size(112, 23);
			this.cmdChangeArea.TabIndex = 9;
			this.cmdChangeArea.Text = "Change Area Patch";
			this.cmdChangeArea.Click += new System.EventHandler(this.button3_Click);
			// 
			// cmdChangeLine
			// 
			this.cmdChangeLine.Location = new System.Drawing.Point(680, 8);
			this.cmdChangeLine.Name = "cmdChangeLine";
			this.cmdChangeLine.Size = new System.Drawing.Size(112, 23);
			this.cmdChangeLine.TabIndex = 10;
			this.cmdChangeLine.Text = "Change Line Patch";
			this.cmdChangeLine.Click += new System.EventHandler(this.button4_Click);
			// 
			// Form1
			// 
			this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
			this.ClientSize = new System.Drawing.Size(800, 582);
			this.Controls.Add(this.cmdChangeLine);
			this.Controls.Add(this.cmdChangeArea);
			this.Controls.Add(this.cmdDelete);
			this.Controls.Add(this.cmdDraw);
			this.Controls.Add(this.axToolbarControl1);
			this.Controls.Add(this.axLicenseControl1);
			this.Controls.Add(this.axPageLayoutControl1);
			this.Name = "Form1";
			this.Text = "AreaLinePatches";
			this.Load += new System.EventHandler(this.Form1_Load);
			((System.ComponentModel.ISupportInitialize)(this.axPageLayoutControl1)).EndInit();
			((System.ComponentModel.ISupportInitialize)(this.axLicenseControl1)).EndInit();
			((System.ComponentModel.ISupportInitialize)(this.axToolbarControl1)).EndInit();
			this.ResumeLayout(false);

		}
		#endregion

        [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(this.axPageLayoutControl1);
	      
			//Add ToolbarControl items
			axToolbarControl1.AddItem("esriControls.ControlsOpenDocCommand");
			axToolbarControl1.AddItem("esriControls.ControlsSaveAsDocCommand");
			axToolbarControl1.AddItem("esriControls.ControlsPageZoomInTool");
			axToolbarControl1.AddItem("esriControls.ControlsPageZoomOutTool");
			axToolbarControl1.AddItem("esriControls.ControlsPageZoomWholePageCommand");
			axToolbarControl1.AddItem("esriControls.ControlsSelectTool");

			//disable buttons for draw legend, change area/line patches, delete legend
			cmdDraw.Enabled = false;
			cmdDelete.Enabled = false;
			cmdChangeArea.Enabled = false;    
			cmdChangeLine.Enabled = false;
			
		}

		private void axPageLayoutControl1_OnPageLayoutReplaced(object sender, ESRI.ArcGIS.Controls.IPageLayoutControlEvents_OnPageLayoutReplacedEvent e)
		{
			//when a document gets loaded into the PageLayoutControl enable the draw legend button
			cmdDraw.Enabled = true;
		}

		private void button1_Click(object sender, System.EventArgs e)
		{
			//Get the GraphicsContainer
			IGraphicsContainer graphicsContainer = axPageLayoutControl1.GraphicsContainer;
      
			//Get the MapFrame
			IMapFrame mapFrame = (IMapFrame) graphicsContainer.FindFrame(axPageLayoutControl1.ActiveView.FocusMap);
			if (mapFrame == null) return;
			
			//Create a legend
			UID uID = new UIDClass();
			uID.Value = "esriCarto.Legend";

			//Create a MapSurroundFrame from the MapFrame
			IMapSurroundFrame mapSurroundFrame = mapFrame.CreateSurroundFrame(uID, null);      
			if (mapSurroundFrame == null) return;				
			if (mapSurroundFrame.MapSurround == null) return;
			//Set the name 
			mapSurroundFrame.MapSurround.Name = "Legend";
        
			//Envelope for the legend
			IEnvelope envelope = new EnvelopeClass();
			envelope.PutCoords(1, 1, 3.4, 2.4);

			//Set the geometry of the MapSurroundFrame 
			IElement element = (IElement) mapSurroundFrame;
			element.Geometry = envelope; 
        
			//Add the legend to the PageLayout
			axPageLayoutControl1.AddElement(element, Type.Missing, Type.Missing, "Legend", 0);
        
			//Refresh the PageLayoutControl
			axPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, null, null);

			//disable/enable buttons
			cmdDraw.Enabled = false;
			cmdDelete.Enabled = true;
			cmdChangeArea.Enabled = true;
			cmdChangeLine.Enabled = true;
		}

		private void button2_Click(object sender, System.EventArgs e)
		{
			//Find the legend 
			IElement element = axPageLayoutControl1.FindElementByName("Legend", 1);

			if(element != null)
			{
				//Delete the legend
				IGraphicsContainer graphicsContainer = axPageLayoutControl1.GraphicsContainer;
				graphicsContainer.DeleteElement(element); 
				//Refresh the display
				axPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, null, null);
		   
				//enable/disable buttons
				cmdDraw.Enabled = true;
				cmdDelete.Enabled = false;
				cmdChangeArea.Enabled = false;
				cmdChangeLine.Enabled = false;
			}
    }

		private void button3_Click(object sender, System.EventArgs e)
		{
			//create the form with the SymbologyControl
			Form2 symbolForm = new Form2();
		      
			//Get the IStyleGalleryItem that has been selected in the SymbologyControl
			IStyleGalleryItem styleGalleryItem = symbolForm.GetItem(esriSymbologyStyleClass.esriStyleClassAreaPatches);

			//release the form
			symbolForm.Dispose();
			if(styleGalleryItem == null) return;
		      
			//Find the legend
			IElement element = axPageLayoutControl1.FindElementByName("Legend", 1);
			if (element == null) return;
			
			//Get the IMapSurroundFrame
			IMapSurroundFrame mapSurroundFrame = (IMapSurroundFrame) element;
			if (mapSurroundFrame == null) return;

			//If a legend exists change the default area patch
			ILegend legend = (ILegend) mapSurroundFrame.MapSurround;
			legend.Format.DefaultAreaPatch = (IAreaPatch) styleGalleryItem.Item;
			
			//Update the legend
			legend.Refresh();
			//Refresh the display
			axPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, null, null);
		}

		private void button4_Click(object sender, System.EventArgs e)
		{
			//create the form with the SymbologyControl
			Form2 symbolForm = new Form2();
		      
			//Get the IStyleGalleryItem that has been selected in the SymbologyControl
			IStyleGalleryItem styleGalleryItem = symbolForm.GetItem(esriSymbologyStyleClass.esriStyleClassLinePatches);

			//release the form
			symbolForm.Dispose();
			if(styleGalleryItem == null) return;
		      
			//Find the legend
			IElement element = axPageLayoutControl1.FindElementByName("Legend", 1);
			if (element == null) return;
			
			//Get the IMapSurroundFrame
			IMapSurroundFrame mapSurroundFrame = (IMapSurroundFrame) element;
			if (mapSurroundFrame == null) return;

			//If a legend exists change the default area patch
			ILegend legend = (ILegend) mapSurroundFrame.MapSurround;
			legend.Format.DefaultLinePatch = (ILinePatch) styleGalleryItem.Item;
			
			//Update the legend
			legend.Refresh();
			//Refresh the display
			axPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, null, null);
		}
	}
}

[Visual Basic .NET]

AreaLinePatches.vb

Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Controls
Imports ESRI.ArcGIS.Display
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.Output
Imports ESRI.ArcGIS.SystemUI
Imports ESRI.ArcGIS
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()
        '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
        '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.
    Friend WithEvents AxToolbarControl1 As ESRI.ArcGIS.Controls.AxToolbarControl
    Friend WithEvents AxPageLayoutControl1 As ESRI.ArcGIS.Controls.AxPageLayoutControl
    Friend WithEvents AxLicenseControl1 As ESRI.ArcGIS.Controls.AxLicenseControl
    Friend WithEvents cmdDraw As System.Windows.Forms.Button
    Friend WithEvents cmdDelete As System.Windows.Forms.Button
    Friend WithEvents cmdChangeArea As System.Windows.Forms.Button
    Friend WithEvents cmdChangeLine As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.AxToolbarControl1 = New ESRI.ArcGIS.Controls.AxToolbarControl
        Me.AxPageLayoutControl1 = New ESRI.ArcGIS.Controls.AxPageLayoutControl
        Me.cmdDraw = New System.Windows.Forms.Button
        Me.cmdDelete = New System.Windows.Forms.Button
        Me.cmdChangeArea = New System.Windows.Forms.Button
        Me.cmdChangeLine = New System.Windows.Forms.Button
        Me.AxLicenseControl1 = New ESRI.ArcGIS.Controls.AxLicenseControl
        CType(Me.AxToolbarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.AxPageLayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.AxLicenseControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxToolbarControl1
        '
        Me.AxToolbarControl1.Location = New System.Drawing.Point(0, 0)
        Me.AxToolbarControl1.Name = "AxToolbarControl1"
        Me.AxToolbarControl1.OcxState = CType(resources.GetObject("AxToolbarControl1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxToolbarControl1.Size = New System.Drawing.Size(265, 28)
        Me.AxToolbarControl1.TabIndex = 0
        '
        'AxPageLayoutControl1
        '
        Me.AxPageLayoutControl1.Location = New System.Drawing.Point(0, 48)
        Me.AxPageLayoutControl1.Name = "AxPageLayoutControl1"
        Me.AxPageLayoutControl1.OcxState = CType(resources.GetObject("AxPageLayoutControl1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxPageLayoutControl1.Size = New System.Drawing.Size(760, 472)
        Me.AxPageLayoutControl1.TabIndex = 1
        '
        'cmdDraw
        '
        Me.cmdDraw.Location = New System.Drawing.Point(304, 8)
        Me.cmdDraw.Name = "cmdDraw"
        Me.cmdDraw.Size = New System.Drawing.Size(96, 23)
        Me.cmdDraw.TabIndex = 2
        Me.cmdDraw.Text = "Add Legend"
        '
        'cmdDelete
        '
        Me.cmdDelete.Location = New System.Drawing.Point(408, 8)
        Me.cmdDelete.Name = "cmdDelete"
        Me.cmdDelete.Size = New System.Drawing.Size(96, 23)
        Me.cmdDelete.TabIndex = 3
        Me.cmdDelete.Text = "Delete Legend"
        '
        'cmdChangeArea
        '
        Me.cmdChangeArea.Location = New System.Drawing.Point(512, 8)
        Me.cmdChangeArea.Name = "cmdChangeArea"
        Me.cmdChangeArea.Size = New System.Drawing.Size(112, 23)
        Me.cmdChangeArea.TabIndex = 4
        Me.cmdChangeArea.Text = "Change Area Patch"
        '
        'cmdChangeLine
        '
        Me.cmdChangeLine.Location = New System.Drawing.Point(632, 8)
        Me.cmdChangeLine.Name = "cmdChangeLine"
        Me.cmdChangeLine.Size = New System.Drawing.Size(120, 23)
        Me.cmdChangeLine.TabIndex = 5
        Me.cmdChangeLine.Text = "AreaLinePatches"
        '
        'AxLicenseControl1
        '
        Me.AxLicenseControl1.Enabled = True
        Me.AxLicenseControl1.Location = New System.Drawing.Point(440, 200)
        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 = 6
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(760, 518)
        Me.Controls.Add(Me.AxLicenseControl1)
        Me.Controls.Add(Me.cmdChangeLine)
        Me.Controls.Add(Me.cmdChangeArea)
        Me.Controls.Add(Me.cmdDelete)
        Me.Controls.Add(Me.cmdDraw)
        Me.Controls.Add(Me.AxPageLayoutControl1)
        Me.Controls.Add(Me.AxToolbarControl1)
        Me.Name = "Form1"
        Me.Text = "AreaLinePatches"
        CType(Me.AxToolbarControl1, 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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Set buddy control
        AxToolbarControl1.SetBuddyControl(Me.AxPageLayoutControl1)

        'Add ToolbarControl items
        AxToolbarControl1.AddItem("esriControls.ControlsOpenDocCommand")
        AxToolbarControl1.AddItem("esriControls.ControlsSaveAsDocCommand")
        AxToolbarControl1.AddItem("esriControls.ControlsPageZoomInTool")
        AxToolbarControl1.AddItem("esriControls.ControlsPageZoomOutTool")
        AxToolbarControl1.AddItem("esriControls.ControlsPageZoomWholePageCommand")
        AxToolbarControl1.AddItem("esriControls.ControlsSelectTool")

        'disable buttons for draw legend, change area/line patches, delete legend
        cmdDraw.Enabled = False
        cmdDelete.Enabled = False
        cmdChangeArea.Enabled = False
        cmdChangeLine.Enabled = False

    End Sub

    Private Sub AxPageLayoutControl1_OnPageLayoutReplaced(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IPageLayoutControlEvents_OnPageLayoutReplacedEvent) Handles AxPageLayoutControl1.OnPageLayoutReplaced

        'When a document gets loaded into the PageLayoutControl enable the draw legend button
        cmdDraw.Enabled = True

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDraw.Click

        'Get the GraphicsContainer
        Dim graphicsContainer As IGraphicsContainer
        graphicsContainer = AxPageLayoutControl1.GraphicsContainer

        'Get the MapFrame
        Dim mapFrame As IMapFrame
        mapFrame = graphicsContainer.FindFrame(AxPageLayoutControl1.ActiveView.FocusMap)
        If mapFrame Is Nothing Then Exit Sub

        'Create a legend
        Dim uID As UID = New UIDClass
        uID.Value = "esriCarto.Legend"

        'Create a MapSurroundFrame from the MapFrame
        Dim mapSurroundFrame As IMapSurroundFrame
        mapSurroundFrame = mapFrame.CreateSurroundFrame(uID, Nothing)
        If mapSurroundFrame Is Nothing Then Return
        If mapSurroundFrame.MapSurround Is Nothing Then Return
        'Set the name 
        mapSurroundFrame.MapSurround.Name = "Legend"

        'Envelope for the legend
        Dim envelope As IEnvelope = New EnvelopeClass
        envelope.PutCoords(1, 1, 3.4, 2.4)

        'Set the geometry of the MapSurroundFrame 
        Dim element As IElement
        element = mapSurroundFrame
        element.Geometry = envelope

        'Add the legend to the PageLayout
        AxPageLayoutControl1.AddElement(element, Type.Missing, Type.Missing, "Legend", 0)

        'Refresh the PageLayoutControl
        AxPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing)

        'disable/enable buttons
        cmdDraw.Enabled = False
        cmdDelete.Enabled = True
        cmdChangeArea.Enabled = True
        cmdChangeLine.Enabled = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click

        'Find the legend 
        Dim element As IElement
        element = AxPageLayoutControl1.FindElementByName("Legend", 1)

        If Not element Is Nothing Then
            'Delete the legend
            Dim graphicsContainer As IGraphicsContainer
            graphicsContainer = AxPageLayoutControl1.GraphicsContainer
            graphicsContainer.DeleteElement(element)
            'Refresh the display
            AxPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing)

            'enable/disable buttons
            cmdDraw.Enabled = True
            cmdDelete.Enabled = False
            cmdChangeArea.Enabled = False
            cmdChangeLine.Enabled = False
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChangeArea.Click

        'create the form with the SymbologyControl
        Dim symbolForm As New Form2

        'Get the IStyleGalleryItem that has been selected in the SymbologyControl
        Dim styleGalleryItem As IStyleGalleryItem
        styleGalleryItem = symbolForm.GetItem(esriSymbologyStyleClass.esriStyleClassAreaPatches)

        'release the form
        symbolForm.Dispose()
        If styleGalleryItem Is Nothing Then Exit Sub

        'Find the legend
        Dim element As IElement
        element = AxPageLayoutControl1.FindElementByName("Legend", 1)
        If element Is Nothing Then Exit Sub

        'Get the IMapSurroundFrame
        Dim mapSurroundFrame As IMapSurroundFrame
        mapSurroundFrame = element
        If mapSurroundFrame Is Nothing Then Exit Sub

        'If a legend exists change the default area patch
        Dim legend As ILegend
        legend = mapSurroundFrame.MapSurround
        legend.Format.DefaultAreaPatch = styleGalleryItem.Item

        'Update the legend
        legend.Refresh()
        'Refresh the display
        AxPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChangeLine.Click

        'create the form with the SymbologyControl
        Dim symbolForm As New Form2

        'Get the IStyleGalleryItem that has been selected in the SymbologyControl
        Dim styleGalleryItem As IStyleGalleryItem
        styleGalleryItem = symbolForm.GetItem(esriSymbologyStyleClass.esriStyleClassLinePatches)

        'release the form
        symbolForm.Dispose()
        If styleGalleryItem Is Nothing Then Exit Sub

        'Find the legend
        Dim element As IElement
        element = AxPageLayoutControl1.FindElementByName("Legend", 1)
        If element Is Nothing Then Exit Sub

        'Get the IMapSurroundFrame
        Dim mapSurroundFrame As IMapSurroundFrame
        mapSurroundFrame = element
        If mapSurroundFrame Is Nothing Then Exit Sub

        'If a legend exists change the default area patch
        Dim legend As ILegend
        legend = mapSurroundFrame.MapSurround
        legend.Format.DefaultLinePatch = styleGalleryItem.Item

        'Update the legend
        legend.Refresh()
        'Refresh the display
        AxPageLayoutControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing)

    End Sub

End Class