Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Windows.Forms
Imports System.Text
Imports System.Reflection
Namespace SmartTags
'///////////////////////////////////////////////////////////////
'ColorLabel is a simple extension of the standard Label control,
' with color property locking added.
'///////////////////////////////////////////////////////////////
<Designer(GetType(ColorLabelDesigner))> _
Public Class myPanel
Inherits System.Windows.Forms.Panel
Private colorLockedValue As Boolean = False
Public Property ColorLocked() As Boolean
Get
Return colorLockedValue
End Get
Set(ByVal value As Boolean)
colorLockedValue = value
End Set
End Property
Public Overrides Property BackColor() As Color
Get
Return MyBase.BackColor
End Get
Set(ByVal value As Color)
If ColorLocked Then
Return
Else
MyBase.BackColor = value
End If
End Set
End Property
Public Overrides Property ForeColor() As Color
Get
Return MyBase.ForeColor
End Get
Set(ByVal value As Color)
If ColorLocked Then
Return
Else
MyBase.ForeColor = value
End If
End Set
End Property
End 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 ColorLabelDesigner
Inherits System.Windows.Forms.Design.ControlDesigner
Private lists As DesignerActionListCollection
'Use pull model to populate smart tag menu.
Public Overrides ReadOnly Property ActionLists() _
As DesignerActionListCollection
Get
If lists Is Nothing Then
lists = New DesignerActionListCollection()
lists.Add( _
New ColorLabelActionList(Me.Component))
End If
Return lists
End Get
End Property
End Class
'///////////////////////////////////////////////////////////////
'DesignerActionList-derived class defines smart tag entries and
' resultant actions.
'///////////////////////////////////////////////////////////////
Public Class ColorLabelActionList
Inherits System.ComponentModel.Design.DesignerActionList
Private colLabel As myPanel
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 PropertyDescriptor
Dim prop As PropertyDescriptor
prop = TypeDescriptor.GetProperties(colLabel)(propName)
If prop Is Nothing Then
Throw New ArgumentException( _
"Matching ColorLabel property not found!", propName)
Else
Return prop
End If
End Function
'Properties that are targets of DesignerActionPropertyItem entries.
Public Property BackColor() As Color
Get
Return colLabel.BackColor
End Get
Set(ByVal value As Color)
GetPropertyByName("BackColor").SetValue(colLabel, value)
End Set
End Property
Public Property ForeColor() As Color
Get
Return colLabel.ForeColor
End Get
Set(ByVal value As Color)
GetPropertyByName("ForeColor").SetValue(colLabel, value)
End Set
End Property
'Boolean properties are automatically displayed with binary
' UI (such as a checkbox).
Public Property LockColors() As Boolean
Get
Return colLabel.ColorLocked
End Get
Set(ByVal value As Boolean)
GetPropertyByName("ColorLocked").SetValue(colLabel, value)
' Refresh the list.
Me.designerActionUISvc.Refresh(Me.Component)
End Set
End Property
'Method that is target of a DesignerActionMethodItem
Public 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 DesignerActionItemCollection
Dim 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
'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 items
End Function
End Class
End Namespace
[RESOLVED] [2005] smart tags
Reply With Quote
Originally Posted by kleinma
