[RESOLVED] [2005] smart tags

how do you do that in VB 2005 ?

thx in advance...

What do you mean? If you make your own control?

Quote:

---

Originally Posted by kleinma

What do you mean? If you make your own control?

---

yep... like in this link... but im trying to convert this to vb without success :(
http://msdn.microsoft.com/msdnmag/is...signerActions/

done... http://msdn2.microsoft.com/en-us/library/ms171830.aspx

for those who need this kind of tags:

in a Form1

VB Code:

'///////////////////////////////////////////////////////////////////
'Pull model smart tag example.
'Need references to System.dll, System.Windows.Forms.dll, 
' System.Design.dll, and System.Drawing.dll.
'///////////////////////////////////////////////////////////////////
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
 
    Public Class Form1
        Inherits System.Windows.Forms.Form
 
 
        Public Sub New()
            InitializeComponent()
        End Sub
 
        'VS Forms Designer generated method
        Private Sub InitializeComponent()
            Me.MyPanel1 = New WindowsApplication1.SmartTags.myPanel
            Me.SuspendLayout()
            '
            'MyPanel1
            '
            Me.MyPanel1.BackColor = System.Drawing.SystemColors.ActiveCaptionText
            Me.MyPanel1.ColorLocked = False
            Me.MyPanel1.Location = New System.Drawing.Point(78, 118)
            Me.MyPanel1.Name = "MyPanel1"
            Me.MyPanel1.Size = New System.Drawing.Size(200, 100)
            Me.MyPanel1.TabIndex = 0
            '
            'Form1
            '
            Me.ClientSize = New System.Drawing.Size(504, 442)
            Me.Controls.Add(Me.MyPanel1)
            Me.Name = "Form1"
            Me.ResumeLayout(False)
 
        End Sub
 
        <STAThread()> _
        Shared Sub Main()
            Dim f1 As New Form1()
            f1.ShowDialog()
        End Sub
        Friend WithEvents MyPanel1 As WindowsApplication1.SmartTags.myPanel
    End Class
 
End Namespace

create a user control, myPanel

VB Code:

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

Regards...