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