如何在自定义控件组合框中枚举My.Setting.Connectionstring

问题描述

我正在创建一个类型为TextBox的自定义控件，并且我想创建一个comboBox属性，该属性枚举项目设置“连接字符串”中的所有可用连接。

我正在使用此代码。如您所见，我在尝试时评论了无效的代码。

Private _formatString As String = nothing

    <Category("display")>
    <displayName("Connection")>
    <Description("Connection string.")>
    <DefaultValue("")>
    <TypeConverter(GetType(FormatStringConverter))>
    Public Property Connection As String
        Get
            Return _formatString
        End Get
        Set(ByVal value As String)
            _formatString = value
        End Set
    End Property

    Public Class FormatStringConverter
        Inherits StringConverter

        Public Overrides Function GetStandardValuesSupported(ByVal context As ITypeDescriptorContext) As Boolean
            Return True
        End Function

        Public Overrides Function GetStandardValuesExclusive(ByVal context As ITypeDescriptorContext) As Boolean
            Return True
        End Function

        Public Overrides Function GetStandardValues(ByVal context As ITypeDescriptorContext) As TypeConverter.StandardValuesCollection
            Dim list As List(Of String) = New List(Of String)()
            'For Each current In Configuration.ConfigurationManager.ConnectionStrings
            '    list.Add(current.Name)
            'Next
            'For Each value As Configuration.SettingsPropertyValue In My.Settings.PropertyValues
            '    'MessageBox.Show(value.Name & " - " & value.PropertyValue.ToString)
            '    'list.Add(value.Name & " - " & value.PropertyValue.ToString)
            'Next
            list.Add("")
            list.Add("Currency")
            list.Add("Scientific Notation")
            list.Add("General Number")
            list.Add("Number")
            list.Add("Percent")
            list.Add("Time")
            list.Add("Date")
            Return New StandardValuesCollection(list)
        End Function
    End Class

我想枚举放置控件的项目中的连接字符串。

自定义控件位于一个单独的项目中，而不是与我使用的表单相同的项目。

[edit]
我在设计时看不到预期的结果。我想在设计时从与数据集table adapter connection selection from combobox中的tableadapter相同的组合框中选择连接。因此，我想阅读并设置连接列表，该连接列表属于在设计时放置自定义文本框的项目所属的表单。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）