Hello,

I have written my own custom control and I want one of its properties to
display as a dropdown list when clicked, so the user can select from the
list, it would be similar to the asp textbox control which has a ‘TextMode’
property and when clicked on, displays as a dropdown list with 3 values, I
want to have a similar type property with a dropdown style.

So far, I have a property defined which displays the dropdown arrow when
clicked but does not expand, I also do not know how to populate the dropdown.
The dropdown needs to be populated with values read from the DB, the values
can be read into a Dataset/datareader (which I can do), so I need to know how
to bind these to a dropdown and have the dropdown assigned to the property.
So far I have the following:

1.    My control

Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.ComponentModel
Imports System.Text
Imports System.Drawing
Imports UniversalDropdownEditor

Namespace CustomAddressControl

   <DefaultProperty("Title"), ToolboxData("<{0}:Address
runat=server></{0}:Address>")> _
 Public Class Address
       Inherits System.Web.UI.WebControls.WebControl

       Private iDataSource As String

       <Description("The source/origin of the data."), _
                   Editor(GetType(EntryModeEditor), _
                   GetType(System.Drawing.Design.UITypeEditor))> _
               Public Property DataSource() As String
           Get
               Return iDataSource
           End Get
           Set(ByVal Value As String)
               iDataSource = Value
           End Set
       End Property

…………..

2.    My EntryModeEditor Class

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

Imports System.Windows.Forms.Design
<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
Public Class EntryModeEditor
   Inherits System.Drawing.Design.UITypeEditor

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

       Dim returnValue As Object = value
       If Not (provider Is Nothing) Then

‘I DO NOT KNOW WHAT SHOULD GO IN HERE, TO POPULATE THE DROPDOWN AND GET OUT
THE VALUE THAT WAS SELECTED

       End If
       Return value
   End Function

   Public Overloads Overrides Function GetEditStyle(ByVal context As _
          System.ComponentModel.ITypeDescriptorContext) As _
          System.Drawing.Design.UITypeEditorEditStyle
       If context Is Nothing Then
           Return MyBase.GetEditStyle(context)
       Else
           Return System.Drawing.Design.UITypeEditorEditStyle.DropDown
       End If

   End Function

End Class

Any help/suggestions would be gratefully appreciated.

Thanks,
Kay.