How to display a property of a custom control with a dropdown styl

[Kay]

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.W ebControls
Imports System.Componen tModel
Imports System.Text
Imports System.Drawing
Imports UniversalDropdo wnEditor
Namespace CustomAddressCo ntrol

<DefaultPropert y("Title"), ToolboxData("<{ 0}:Address
runat=server></{0}:Address>")_
Public Class Address
Inherits System.Web.UI.W ebControls.WebC ontrol

Private iDataSource As String
<Description("T he 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.Componen tModel
Imports System.Componen tModel.Design
Imports System.Drawing
Imports System.Drawing. Design
Imports System.Windows. Forms
Imports System.Windows. Forms.Design
<System.Securit y.Permissions.P ermissionSetAtt ribute(System.S ecurity.Permiss ions.SecurityAc tion.Demand, Name:="FullTrus t")_
Public Class EntryModeEditor
Inherits System.Drawing. Design.UITypeEd itor

Public Overloads Overrides Function EditValue(ByVal context As
System.Componen tModel.ITypeDes criptorContext, ByVal provider As
IServiceProvide r, 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(By Val context As _
System.Componen tModel.ITypeDes criptorContext) As _
System.Drawing. Design.UITypeEd itorEditStyle
If context Is Nothing Then
Return MyBase.GetEditS tyle(context)
Else
Return System.Drawing. Design.UITypeEd itorEditStyle.D ropDown
End If

End Function

End Class

Any help/suggestions would be gratefully appreciated.

Thanks,
Kay.