Para Eduardo Morcillo (Editor de tipos)

Aqui va un ejemplo completo:

Option Explicit On
Option Strict On

Imports System
Imports System.ComponentModel
Imports System.ComponentModel.Design.Serialization
Imports System.Drawing.Design
Imports System.Reflection
Imports System.Windows.Forms
Imports System.Windows.Forms.Design

Public Class MiControl
Inherits UserControl

Private _miPropiedad As MiEstructura

Public Property MiPropiedad() As MiEstructura
Get
Return _miPropiedad
End Get
Set(ByVal value As MiEstructura)
_miPropiedad = value
End Set
End Property

End Class

< _
TypeConverter(GetType(MiEstructuraConverter)), _
Editor(GetType(MiEstructuraEditor), GetType(UITypeEditor)) _

_

Public Structure MiEstructura

Private _texto As String
Private _entero As Integer

Sub New(ByVal texto As String, ByVal entero As Integer)
_texto = texto
_entero = entero
End Sub

Public Property Texto() As String
Get
Return _texto
End Get
Set(ByVal Value As String)
_texto = Value
End Set
End Property

Public Property Entero() As Integer
Get
Return _entero
End Get
Set(ByVal Value As Integer)
_entero = Value
End Set
End Property

Public Overrides Function ToString() As String
Return """" & _texto & """, " & _entero
End Function

End Structure

Public Class MiEstructuraConverter
Inherits ExpandableObjectConverter

Public Overloads Overrides Function CanConvertTo( _
ByVal context As ITypeDescriptorContext, _
ByVal destinationType As Type) As Boolean

If destinationType Is GetType(InstanceDescriptor) Then
Return True
End If

Return MyBase.CanConvertTo(context, destinationType)

End Function

Public Overloads Overrides Function ConvertTo( _
ByVal context As System.ComponentModel.ITypeDescriptorContext, _
ByVal culture As System.Globalization.CultureInfo, _
ByVal value As Object, _
ByVal destinationType As System.Type) As Object

If TypeOf value Is MiEstructura Then

If destinationType Is GetType(InstanceDescriptor) Then

Dim obj As MiEstructura = DirectCast(value, MiEstructura)
Dim parametros() As Type = New Type() {GetType(String),
GetType(Integer)}
Dim constructor As ConstructorInfo GetType(MiEstructura).GetConstructor(parametros)

If Not constructor Is Nothing Then
Return New InstanceDescriptor(constructor, New Object()
{obj.Texto, obj.Entero})
End If

End If

End If

Return MyBase.ConvertTo(context, culture, value, destinationType)

End Function

End Class

Public Class MiEstructuraEditor
Inherits UITypeEditor

Private Class Form
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()
'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)
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 textoLabel As System.Windows.Forms.Label
Friend WithEvents enteroLabel As System.Windows.Forms.Label
Friend WithEvents aceptar As System.Windows.Forms.Button
Friend WithEvents cancelar As System.Windows.Forms.Button
Friend WithEvents texto As System.Windows.Forms.TextBox
Friend WithEvents entero As System.Windows.Forms.TextBox

Private Sub InitializeComponent()
Me.textoLabel = New System.Windows.Forms.Label
Me.enteroLabel = New System.Windows.Forms.Label
Me.aceptar = New System.Windows.Forms.Button
Me.cancelar = New System.Windows.Forms.Button
Me.texto = New System.Windows.Forms.TextBox
Me.entero = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
'textoLabel
'
Me.textoLabel.AutoSize = True
Me.textoLabel.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.textoLabel.Location = New System.Drawing.Point(16, 8)
Me.textoLabel.Name = "textoLabel"
Me.textoLabel.Size = New System.Drawing.Size(36, 16)
Me.textoLabel.TabIndex = 1
Me.textoLabel.Text = "Texto:"
'
'enteroLabel
'
Me.enteroLabel.AutoSize = True
Me.enteroLabel.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.enteroLabel.Location = New System.Drawing.Point(12, 32)
Me.enteroLabel.Name = "enteroLabel"
Me.enteroLabel.Size = New System.Drawing.Size(41, 16)
Me.enteroLabel.TabIndex = 2
Me.enteroLabel.Text = "Entero:"
'
'aceptar
'
Me.aceptar.DialogResult = System.Windows.Forms.DialogResult.OK
Me.aceptar.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.aceptar.Location = New System.Drawing.Point(124, 56)
Me.aceptar.Name = "aceptar"
Me.aceptar.TabIndex = 3
Me.aceptar.Text = "Aceptar"
'
'cancelar
'
Me.cancelar.DialogResult System.Windows.Forms.DialogResult.Cancel
Me.cancelar.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.cancelar.Location = New System.Drawing.Point(204, 56)
Me.cancelar.Name = "cancelar"
Me.cancelar.TabIndex = 4
Me.cancelar.Text = "Cancelar"
Me.cancelar.CausesValidation = False
'
'texto
'
Me.texto.Location = New System.Drawing.Point(56, 4)
Me.texto.Name = "texto"
Me.texto.Size = New System.Drawing.Size(224, 20)
Me.texto.TabIndex = 5
Me.texto.Text = ""
'
'entero
'
Me.entero.Location = New System.Drawing.Point(56, 28)
Me.entero.Name = "entero"
Me.entero.TabIndex = 6
Me.entero.Text = ""
'
'Form
'
Me.AcceptButton = Me.aceptar
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.CancelButton = Me.cancelar
Me.ClientSize = New System.Drawing.Size(286, 87)
Me.Controls.Add(Me.entero)
Me.Controls.Add(Me.texto)
Me.Controls.Add(Me.cancelar)
Me.Controls.Add(Me.aceptar)
Me.Controls.Add(Me.enteroLabel)
Me.Controls.Add(Me.textoLabel)
Me.FormBorderStyle System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form"
Me.StartPosition System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Ingrese los valores"
Me.ResumeLayout(False)
End Sub

#End Region

Private Sub OnEnteroTextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles entero.TextChanged
Try
Integer.Parse(entero.Text)
Catch ex As Exception
entero.Text = "0"
End Try
End Sub

End Class

Public Overloads Overrides Function GetEditStyle( _
ByVal context As ITypeDescriptorContext) As UITypeEditorEditStyle

Return UITypeEditorEditStyle.Modal

End Function

Public Overloads Overrides Function EditValue( _
ByVal context As ITypeDescriptorContext, _
ByVal provider As System.IServiceProvider, _
ByVal value As Object) As Object

Dim obj As MiEstructura = DirectCast(value, MiEstructura)
Dim editorSvc As IWindowsFormsEditorService

editorSvc CType(provider.GetService(GetType(IWindowsFormsEditorService)),
IWindowsFormsEditorService)

Dim f As New MiEstructuraEditor.Form
f.texto.Text = obj.Texto
f.entero.Text = obj.Entero.ToString

If editorSvc.ShowDialog(f) = DialogResult.OK Then
Return New MiEstructura(f.texto.Text,
Integer.Parse(f.entero.Text))
Else
Return value
End If

End Function

End Class

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

El ignorante si calla, será tenido por erudito
y pasará por sabio si no habre los labios.
Salomón