'///'Pull model smart tag example.'Need references to System.dll, System.Windows.Forms.dll, ' System.Design.dll, and System.Drawing.dll.'///Imports SystemImports System.DrawingImports System.CollectionsImports System.ComponentModelImports System.ComponentModel.DesignImports System.Windows.FormsImports System.TextImports System.Reflection

Namespace SmartTags

Public Class Form1Inherits System.Windows.Forms.Form

Private colorLabel2 As ColorLabel

Public Sub New()            InitializeComponent()End Sub

'VS Forms Designer generated methodPrivate Sub InitializeComponent()Me.colorLabel2 = New ColorLabelMe.SuspendLayout()''colorLabel2'Me.colorLabel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(165, Byte), Integer), CType(CType(0, Byte), Integer))Me.colorLabel2.ColorLocked = FalseMe.colorLabel2.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))Me.colorLabel2.Location = New System.Drawing.Point(41, 42)Me.colorLabel2.Name = "colorLabel2"Me.colorLabel2.Size = New System.Drawing.Size(117, 25)Me.colorLabel2.TabIndex = 0Me.colorLabel2.Text = "ColorLabel"''Form1'Me.ClientSize = New System.Drawing.Size(292, 273)Me.Controls.Add(Me.colorLabel2)Me.Name = "Form1"Me.ResumeLayout(False)

End Sub

        <STAThread()> _Shared Sub Main()Dim f1 As New Form1()            f1.ShowDialog()End SubEnd Class

'///'ColorLabel is a simple extension of the standard Label control,' with color property locking added.'///    <Designer(GetType(ColorLabelDesigner))> _Public Class ColorLabelInherits System.Windows.Forms.Label

Private colorLockedValue As Boolean = False

Public Property ColorLocked() As BooleanGetReturn colorLockedValueEnd GetSet(ByVal value As Boolean)                colorLockedValue = valueEnd SetEnd Property

Public Overrides Property BackColor() As ColorGetReturn MyBase.BackColorEnd GetSet(ByVal value As Color)If ColorLocked ThenReturnElseMyBase.BackColor = valueEnd IfEnd SetEnd Property

Public Overrides Property ForeColor() As ColorGetReturn MyBase.ForeColorEnd GetSet(ByVal value As Color)If ColorLocked ThenReturnElseMyBase.ForeColor = valueEnd IfEnd SetEnd PropertyEnd Class

'///'Designer for the ColorLabel control with support for a smart ' tag panel.'///'Must add reference to System.Design.dll    <System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _Public Class ColorLabelDesignerInherits System.Windows.Forms.Design.ControlDesigner

Private lists As DesignerActionListCollection

'Use pull model to populate smart tag menu.Public Overrides ReadOnly Property ActionLists() _As DesignerActionListCollectionGetIf lists Is Nothing Then                    lists = New DesignerActionListCollection()                    lists.Add( _New ColorLabelActionList(Me.Component))End IfReturn listsEnd GetEnd PropertyEnd Class

'///'DesignerActionList-derived class defines smart tag entries and' resultant actions.'///Public Class ColorLabelActionListInherits System.ComponentModel.Design.DesignerActionList

Private colLabel As ColorLabel

Private designerActionUISvc As DesignerActionUIService = Nothing

'The constructor associates the control 'with the smart tag list.Public Sub New(ByVal component As IComponent)

MyBase.New(component)Me.colLabel = component

' Cache a reference to DesignerActionUIService, so the' DesigneractionList can be refreshed.Me.designerActionUISvc = _            CType(GetService(GetType(DesignerActionUIService)), _            DesignerActionUIService)

End Sub

'Helper method to retrieve control properties. Use of ' GetProperties enables undo and menu updates to work properly.Private Function GetPropertyByName(ByVal propName As String) _As PropertyDescriptorDim prop As PropertyDescriptor            prop = TypeDescriptor.GetProperties(colLabel)(propName)If prop Is Nothing ThenThrow New ArgumentException( _"Matching ColorLabel property not found!", propName)ElseReturn propEnd IfEnd Function

'Properties that are targets of DesignerActionPropertyItem entries.Public Property BackColor() As ColorGetReturn colLabel.BackColorEnd GetSet(ByVal value As Color)                GetPropertyByName("BackColor").SetValue(colLabel, value)End SetEnd Property

Public Property ForeColor() As ColorGetReturn colLabel.ForeColorEnd GetSet(ByVal value As Color)                GetPropertyByName("ForeColor").SetValue(colLabel, value)End SetEnd Property

'Boolean properties are automatically displayed with binary ' UI (such as a checkbox).Public Property LockColors() As BooleanGetReturn colLabel.ColorLockedEnd GetSet(ByVal value As Boolean)                GetPropertyByName("ColorLocked").SetValue(colLabel, value)

' Refresh the list.Me.designerActionUISvc.Refresh(Me.Component)End SetEnd Property

Public Property [Text]() As StringGetReturn colLabel.TextEnd GetSet(ByVal value As String)                GetPropertyByName("Text").SetValue(colLabel, value)End SetEnd Property

'Method that is target of a DesignerActionMethodItemPublic Sub InvertColors()Dim currentBackColor As Color = colLabel.BackColor            BackColor = Color.FromArgb( _            255 - currentBackColor.R, _            255 - currentBackColor.G, _            255 - currentBackColor.B)

Dim currentForeColor As Color = colLabel.ForeColor            ForeColor = Color.FromArgb( _            255 - currentForeColor.R, _            255 - currentForeColor.G, _            255 - currentForeColor.B)End Sub

'Implementation of this virtual method creates smart tag  ' items, associates their targets, and collects into list.Public Overrides Function GetSortedActionItems() _As DesignerActionItemCollectionDim items As New DesignerActionItemCollection()

'Define static section header entries.            items.Add(New DesignerActionHeaderItem("Appearance"))            items.Add(New DesignerActionHeaderItem("Information"))

'Boolean property for locking color selections.            items.Add(New DesignerActionPropertyItem( _"LockColors", _"Lock Colors", _"Appearance", _"Locks the color properties."))

If Not LockColors Then                items.Add( _New DesignerActionPropertyItem( _"BackColor", _"Back Color", _"Appearance", _"Selects the background color."))

                items.Add( _New DesignerActionPropertyItem( _"ForeColor", _"Fore Color", _"Appearance", _"Selects the foreground color."))

'This next method item is also added to the context menu ' (as a designer verb).                items.Add( _New DesignerActionMethodItem( _Me, _"InvertColors", _"Invert Colors", _"Appearance", _"Inverts the fore and background colors.", _True))End If            items.Add( _New DesignerActionPropertyItem( _"Text", _"Text String", _"Appearance", _"Sets the display text."))

'Create entries for static Information section.Dim location As New StringBuilder("Location: ")            location.Append(colLabel.Location)Dim size As New StringBuilder("Size: ")            size.Append(colLabel.Size)

            items.Add( _New DesignerActionTextItem( _            location.ToString(), _"Information"))

            items.Add( _New DesignerActionTextItem( _            size.ToString(), _"Information"))

Return itemsEnd Function

End ClassEnd Namespace

/// Pull model smart tag example.// Need references to System.dll, System.Windows.Forms.dll, // System.Design.dll, and System.Drawing.dll./

using System;using System.Drawing;using System.Collections;using System.ComponentModel;using System.ComponentModel.Design;using System.Windows.Forms;using System.Text;using System.Reflection;

namespace SmartTags{

public class Form1 : System.Windows.Forms.Form{private ColorLabel colorLabel2;

public Form1()    {        InitializeComponent();    }

// VS Forms Designer generated methodprivate void InitializeComponent()    {this.colorLabel2 = new SmartTags.ColorLabel();this.SuspendLayout();// // colorLabel2// this.colorLabel2.BackColor = System.Drawing.Color.Gold;this.colorLabel2.ColorLocked = false;this.colorLabel2.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(0)));this.colorLabel2.Location = new System.Drawing.Point(41, 42);this.colorLabel2.Name = "colorLabel2";this.colorLabel2.Size = new System.Drawing.Size(117, 25);this.colorLabel2.TabIndex = 0;this.colorLabel2.Text = "colorLabel2";// // Form1// this.ClientSize = new System.Drawing.Size(292, 273);this.Controls.Add(this.colorLabel2);this.Name = "Form1";this.ResumeLayout(false);

    }

    [STAThread]static void Main()    {        Form1 f1 = new Form1();        f1.ShowDialog();    }

}

/// ColorLabel is a simple extension of the standard Label control,// with color property locking added./[Designer(typeof(ColorLabelDesigner))]public class ColorLabel : System.Windows.Forms.Label{private bool colorLockedValue = false;

public bool ColorLocked    {get        {return colorLockedValue;        }set        {            colorLockedValue = value;        }    }

public override Color BackColor    {get        {return base.BackColor;        }set        {if (ColorLocked)return;elsebase.BackColor = value;        }    }

public override Color ForeColor    {get        {return base.ForeColor;        }set        {if (ColorLocked)return;elsebase.ForeColor = value;        }    }}

/// Designer for the ColorLabel control with support for a smart // tag panel.// Must add reference to System.Design.dll/[System.Security.Permissions.PermissionSet(System.Security.Permissions.SecurityAction.Demand, Name = "FullTrust")] public class ColorLabelDesigner :          System.Windows.Forms.Design.ControlDesigner{private DesignerActionListCollection actionLists;

// Use pull model to populate smart tag menu.public override DesignerActionListCollection ActionLists    {get        {if (null == actionLists)            {                actionLists = new DesignerActionListCollection();                actionLists.Add(new ColorLabelActionList(this.Component));            }return actionLists;        }    }}

/// DesignerActionList-derived class defines smart tag entries and// resultant actions./public class ColorLabelActionList :          System.ComponentModel.Design.DesignerActionList{private ColorLabel colLabel;

private DesignerActionUIService designerActionUISvc = null;

//The constructor associates the control //with the smart tag list.public ColorLabelActionList( IComponent component ) : base(component)     {this.colLabel = component as ColorLabel;

// Cache a reference to DesignerActionUIService, so the// DesigneractionList can be refreshed.this.designerActionUISvc =            GetService(typeof(DesignerActionUIService))            as DesignerActionUIService;    }

// Helper method to retrieve control properties. Use of // GetProperties enables undo and menu updates to work properly.private PropertyDescriptor GetPropertyByName(String propName)    {        PropertyDescriptor prop;        prop = TypeDescriptor.GetProperties(colLabel)[propName];if (null == prop)             throw new ArgumentException(                  "Matching ColorLabel property not found!",                   propName);elsereturn prop;    }

// Properties that are targets of DesignerActionPropertyItem entries.public Color BackColor    {get        {return colLabel.BackColor;        }set        {            GetPropertyByName("BackColor").SetValue(colLabel, value);        }    }

public Color ForeColor    {get        {return colLabel.ForeColor;        }set        {            GetPropertyByName("ForeColor").SetValue(colLabel, value);        }    }

// Boolean properties are automatically displayed with binary // UI (such as a checkbox).public bool LockColors    {get        {return colLabel.ColorLocked;        }set        {            GetPropertyByName("ColorLocked").SetValue(colLabel, value);

// Refresh the list.this.designerActionUISvc.Refresh(this.Component);        }    }

public String Text    {get        {return colLabel.Text;        }set        {            GetPropertyByName("Text").SetValue(colLabel, value);        }    }

// Method that is target of a DesignerActionMethodItempublic void InvertColors()    {        Color currentBackColor = colLabel.BackColor;        BackColor = Color.FromArgb(            255 - currentBackColor.R,             255 - currentBackColor.G,             255 - currentBackColor.B);

        Color currentForeColor = colLabel.ForeColor;        ForeColor = Color.FromArgb(            255 - currentForeColor.R,             255 - currentForeColor.G,             255 - currentForeColor.B);    }

// Implementation of this abstract method creates smart tag  // items, associates their targets, and collects into list.public override DesignerActionItemCollection GetSortedActionItems()    {        DesignerActionItemCollection items = new DesignerActionItemCollection();

//Define static section header entries.        items.Add(new DesignerActionHeaderItem("Appearance"));        items.Add(new DesignerActionHeaderItem("Information"));

//Boolean property for locking color selections.        items.Add(new DesignerActionPropertyItem("LockColors",                         "Lock Colors", "Appearance",                         "Locks the color properties."));if (!LockColors)        {            items.Add(new DesignerActionPropertyItem("BackColor",                             "Back Color", "Appearance",                             "Selects the background color."));            items.Add(new DesignerActionPropertyItem("ForeColor",                             "Fore Color", "Appearance",                             "Selects the foreground color."));

//This next method item is also added to the context menu // (as a designer verb).            items.Add(new DesignerActionMethodItem(this,                             "InvertColors", "Invert Colors",                             "Appearance",                             "Inverts the fore and background colors.",true));        }        items.Add(new DesignerActionPropertyItem("Text",                         "Text String", "Appearance",                         "Sets the display text."));

//Create entries for static Information section.        StringBuilder location = new StringBuilder("Location: ");        location.Append(colLabel.Location);        StringBuilder size = new StringBuilder("Size: ");        size.Append(colLabel.Size);        items.Add(new DesignerActionTextItem(location.ToString(),                         "Information"));        items.Add(new DesignerActionTextItem(size.ToString(),                         "Information"));

return items;    }}

}