灵活的 ComboBox 和 EditingControl

Imports System.Xml.Serialization
Imports System.Reflection
Imports System.ComponentModel
Imports AnyControlComboColumn
Imports System.Windows.Forms

Public Module Module1
    Public Function Serialize(ByVal Value As Object) As String
        Try
            If Value Is Nothing Then
                Return ""
                Exit Function
            End If
            Dim Serializer As New XmlSerializer(Value.GetType)
            Dim vMemoryStream As New IO.MemoryStream
            Serializer.Serialize(vMemoryStream, Value)
            Dim s = System.Text.Encoding.UTF8.GetString(vMemoryStream.ToArray)
            s = s.Replace("<?xml version=""1.0""?>", _
		"<?xml version=""1.0"" encoding=""utf-8""?>")
            vMemoryStream = New IO.MemoryStream(System.Text.Encoding.UTF8.GetBytes(s))

            s = System.Text.Encoding.UTF8.GetString(vMemoryStream.ToArray)

            'Try to Deserialize
            Try
                Dim f = Serializer.Deserialize(vMemoryStream)
            Catch ex As Exception
                Return ""
            End Try
            Return s
        Catch ex As Exception
            Return ""
        End Try
    End Function
End Module

using System;
using System.Collections;
using System.Collections.Generic;
using System.Diagnostics;
using System.Xml.Serialization;
using System.Reflection;
using System.ComponentModel;
using AnyControlComboColumn;
using System.Windows.Forms;

namespace AnyControlComboColumn {
    public static class MSerialize {
        public static string Serialize(object Value) {
            try {
                if (Value == null) {
                    return "";
                    return null;
                }
                XmlSerializer Serializer = new XmlSerializer(Value.GetType());
                System.IO.MemoryStream vMemoryStream = new System.IO.MemoryStream();
                Serializer.Serialize(vMemoryStream, Value);
                var s = System.Text.Encoding.UTF8.GetString(vMemoryStream.ToArray());
                s = s.Replace("<?xml version=\"1.0\"?>", "<?xml version=\"1.0\" encoding=\"utf-8\"?>");

                vMemoryStream = new System.IO.MemoryStream(System.Text.Encoding.UTF8.GetBytes(s));

                s = System.Text.Encoding.UTF8.GetString(vMemoryStream.ToArray());

                //>Try to Deserialize
                try {
                    var f = Serializer.Deserialize(vMemoryStream);
                } catch (Exception ex) {

                    return "";
                }
                return s;
            } catch (Exception ex) {
                return "";
            }
        }
    }
}

'Don't add TypeConverter attribute so this property use the default ComponentConverter
<DisplayName("DropDownControl(Created in the form)")> _
Public Property DropDownControl() As Control

<TypeConverter(GetType(ControlConverter)), _
Editor(GetType(ControlEditor), GetType(UITypeEditor)), _
DisplayName("DropDownControl(Create New)")> _
Public Property NewDropDownControl() As Control

<Description("a text that will be used to create new DropDownControl")> _
Public Overridable Property ControlText As String

//dont put DesignerSerializationVisibility(DesignerSerializationVisibility.Content
//this is only good for readonly property
//ControlConverter does not work automatically if property type inherits form componenet or control
//so we need a ControlText property
[TypeConverter(typeof(ControlConverter)), Editor(typeof(ControlEditor), typeof(UITypeEditor)), 
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden), 
Description("Create new control displayed when OpenDropDown."), 
DefaultValue(typeof(Control), "Nothing"), Category("DropDown"), 
DisplayName("DropDownControl(Create New)"), EditorBrowsable(EditorBrowsableState.Advanced)]
public Control NewDropDownControl { 
//...........
}

[DefaultValue(""), Browsable(false), 
        Description("a text that will be used to create new DropDownControl")]
public virtual string ControlText {
//.................
}

//Don't add TypeConverter attribute so this property use the default ComponentConverter
[Description("The control displayed when OpenDropDown."), 
DefaultValue(typeof(Control), "Nothing"), Category("DropDown"), 
DisplayName("DropDownControl(Select form the form controls)")]
public Control DropDownControl {
//................
}

 Public Overrides Function ConvertFrom(ByVal context As ITypeDescriptorContext, _
 ByVal culture As System.Globalization.CultureInfo, ByVal value As Object) As Object
    Try
        If value Is Nothing OrElse (Not TypeOf value Is String) _
        OrElse String.IsNullOrEmpty(CType(value, String)) Then
            Return Nothing
            Exit Function
        End If
        Dim vPropertyValues As New Dictionary(Of String, String)

        Dim TypeParts = Split(CType(value, String), "@")
        If UBound(TypeParts) <> 2 Then
            ReDim Preserve TypeParts(2)
        End If
        If String.IsNullOrEmpty(TypeParts(1)) Then
            TypeParts(1) = WinFormsAssemblyName
        End If
        vPropertyValues.Add(c_TypeName, TypeParts(0))
        vPropertyValues.Add(c_AssemblyName, TypeParts(1))

        Dim aPropertyValues() As String = Split(TypeParts(2), ",")
           For i As Integer = 0 To UBound(aPropertyValues)
              If (Not String.IsNullOrEmpty(aPropertyValues(i))) AndAlso _
                aPropertyValues(i).Contains(":"c) Then
                Dim KeyAndValue = Split(aPropertyValues(i), ":")
                vPropertyValues.Add(KeyAndValue(0).Trim, KeyAndValue(1).Trim)
            End If
        Next
        Return Me.CreateInstance(Nothing, vPropertyValues)
    Catch ex As Exception
        ErrMsg(ex)
        Return Nothing
    End Try
End Function

public override object ConvertFrom(ITypeDescriptorContext context, 
                System.Globalization.CultureInfo culture, object value) {
    try {
        if (value == null || (! (value is string)) || string.IsNullOrEmpty(Convert.ToString(value))) {
            return null;
            return null;
        }
        Dictionary<string,> vPropertyValues = new Dictionary<string,>();

        string[] TypeParts = Microsoft.VisualBasic.Strings.Split(Convert.ToString(value), 
                                 "@", -1, Microsoft.VisualBasic.CompareMethod.Binary);
        if (TypeParts.GetUpperBound(0) != 2)
            Array.Resize(ref TypeParts, 3);
        if (string.IsNullOrEmpty(TypeParts[1]))
            TypeParts[1] = WinFormsAssemblyName;
        vPropertyValues.Add(c_TypeName, TypeParts[0]);
        vPropertyValues.Add(c_AssemblyName, TypeParts[1]);

        string[] aPropertyValues = Microsoft.VisualBasic.Strings.Split(TypeParts[2], 
                                    ",", -1, Microsoft.VisualBasic.CompareMethod.Binary);
        for (int i = 0; i <= aPropertyValues.GetUpperBound(0); i++) {
            if ((! (string.IsNullOrEmpty(aPropertyValues[i]))) && aPropertyValues[i].Contains(":")) {
                string[] KeyAndValue = Microsoft.VisualBasic.Strings.Split(aPropertyValues[i], ":", 
                                             -1, Microsoft.VisualBasic.CompareMethod.Binary);
                vPropertyValues.Add(KeyAndValue[0].Trim(), KeyAndValue[1].Trim());
            }
        }
        return CreateInstance(null, vPropertyValues);
    } catch (Exception ex) {
        _ErrMsg.ErrMsg(ex);
        return null;
    }
}