PropertyGrid使用小记

最新推荐文章于 2023-03-01 23:26:55 发布

weixin_30781775

最新推荐文章于 2023-03-01 23:26:55 发布

阅读量55

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/zqonline/archive/2010/03/10/1682324.html

版权

PropertyGrid进行编辑的时候，还是比较方便的，至少不进行界面布局了，目前在一个小工具中需要实现下面的效果

数据库类型是enum

需要实现一个Convert类，基类是ExpandableObjectConverter

重写基类的CanConvertFrom,CanConvertTo,ConvertFrom,ConvertTo方法即可实现

  Public Class DBInfoConverter
        Inherits ExpandableObjectConverter

        Public Overrides Function CanConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext, _

 ByVal sourceType As System.Type) As Boolean
            If sourceType Is GetType(String) Then
                Return True
            End If
            Return MyBase.CanConvertFrom(context, sourceType)
        End Function

      

        Public Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal destinationType As System.Type) As Boolean
            If destinationType Is GetType(String) Then
                Return True
            End If
            Return MyBase.CanConvertTo(context, destinationType)
        End Function


        Public Overrides Function ConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext,  _

　　ByVal culture As System.Globalization.CultureInfo, ByVal value As Object) As Object

            Dim db As New DBInfo
            If TypeOf value Is String Then
                Dim str As String = value.ToString

                Dim chars() As String = str.Split(","c)
                If chars.Length <> 5 Then
                    Throw New ArgumentException("无效的值", "value")
                End If

                Dim stringTypeConvert = TypeDescriptor.GetConverter(GetType(String))
                Dim enumTypeConvert = TypeDescriptor.GetConverter(GetType(DBInfoType))
                db.服务器地址 = stringTypeConvert.ConvertToString(context, culture, chars(0))
                db.用户名 = stringTypeConvert.ConvertToString(context, culture, chars(1))
                db.密码 = stringTypeConvert.ConvertToString(context, culture, chars(2))
                db.数据库 = stringTypeConvert.ConvertToString(context, culture, chars(3))
                db.数据库类型 = CType(enumTypeConvert.ConvertFrom(chars(4)), DBInfoType)

            End If

            Return db
        End Function


        Public 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 value Is Nothing Then

                value = New DBInfo
                'Return MyBase.ConvertTo(context, culture, value, destinationType)
            End If

            If Not TypeOf value Is DBInfo Then
                Throw New ArgumentException("无效的对象", "value")
            End If

            Dim db = CType(value, DBInfo)

            Dim stringTypeConvert = TypeDescriptor.GetConverter(GetType(String))
            Dim enumTypeConvert = TypeDescriptor.GetConverter(GetType(DBInfoType))
            Dim chars() As String = {stringTypeConvert.ConvertToString(context, culture, db.服务器地址), _
                                     stringTypeConvert.ConvertToString(context, culture, db.用户名), _
                                     stringTypeConvert.ConvertToString(context, culture, db.密码), _
                                     stringTypeConvert.ConvertToString(context, culture, db.数据库), _
                                      CStr(enumTypeConvert.ConvertTo(db.数据库类型, GetType(String)))}
            Return String.Join(culture.TextInfo.ListSeparator, chars)
        End Function

    End Class