如何在 VB.NET 中添加用户控件下拉属性

Question

我正在使用Visual Basic 2010 Express Edition 中的类库来制作自定义文本框控件。如何为文本框添加下拉属性？

我需要一个不像你使用时那样的动态下拉菜单

Enum MaxValue
   item1 = 0
End Enum

因为我必须从数据库中获取项目。

我尝试添加可浏览选项，但没有任何反应：

<Browsable(True)>
Property Max_Value() As String

     Get
        Return MaxValue
     End Get

     Set(value As String
        MaxValue = value
     End Set
End Property

Answer 1

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

    Public Class TestTextBox
            Inherits TextBox

            <Browsable(True)>
            <Editor(GetType(Editor), GetType(UITypeEditor))>
            <DefaultValue("Hello")>
            Public Property MyProperty As String

            Private Class Editor
                    Inherits UITypeEditor

                    Private mSvc As IWindowsFormsEditorService

                    Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle
                            Return UITypeEditorEditStyle.DropDown
                    End Function

                    Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object
                            mSvc = CType(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)

                            Dim lb As New ListBox()
                            For Each value In {"Hello", "Whats", "Happening"}
                                    lb.Items.Add(value)
                            Next

                            If value IsNot Nothing Then
                                    lb.SelectedItem = value
                            End If

                            mSvc.DropDownControl(lb)

                            value = DirectCast(lb.SelectedItem, String)

                            Return value
                    End Function

            End Class

    End Class