Help with dropdown listbox using Web Custom Controls

[indydavid32]

I want to create a web custom control that uses a dropdown list box.

Once I have it created, I know how to use it. My problem is creating it.

I created a new Web Control Library project called MclProgramBox. I renamed the control to cmbPrograms.vb

Is this the right start at least?

I want data loaded into this combo box based on customer login information. For instance, this is the code that I have been using in all my web pages for this dropdown box.

Dim strPriveledge As String
        Try
            If (Request.Cookies("Priveledge") Is Nothing) Or Request.Cookies("Priveledge").Value = String.Empty Then
                Response.Redirect("Login.aspx")
            End If
        Catch
            Response.Redirect("Login.aspx")
        End Try
 
        strPriveledge = Request.Cookies("Priveledge").Value
 
If strPriveledge = "Administrator" Then
                cmbPrograms.ClearSelection()
                cmbPrograms.Items.Add("--Select Program--")
                cmbPrograms.Items.Add("Menu")
                cmbPrograms.Items.Add("PDI Sales")
                cmbPrograms.Items.Add("Price Check")
                'cmbPrograms.Items.Add("RMS Compare")
            End If
            If strPriveledge = "Executive" Then
                cmbPrograms.ClearSelection()
                cmbPrograms.Items.Add("--Select Program--")
                cmbPrograms.Items.Add("Menu")
                cmbPrograms.Items.Add("PDI Sales")
                cmbPrograms.Items.Add("Price Check")
                'cmbPrograms.Items.Add("RMS Compare")
            End If
            If strPriveledge = "District Manager" Then
                cmbPrograms.ClearSelection()
                cmbPrograms.Items.Add("--Select Program--")
                cmbPrograms.Items.Add("Menu")
                cmbPrograms.Items.Add("PDI Sales")
            End If
            If strPriveledge <> "Administrator" And strPriveledge <> "Executive" _
            And strPriveledge <> "District Manager" Then
                Response.Redirect("Login.aspx")
            End If

For the SelectedIndexChanged event, I want this to happen.

If cmbPrograms.SelectedItem.Text = "Menu" Then
            Response.Redirect("Menu.aspx")
        End If
        If cmbPrograms.SelectedItem.Text = "PDI Sales" Then
            Response.Redirect("PDISales.aspx")
        End If
        If cmbPrograms.SelectedItem.Text = "Price Check" Then
            Response.Redirect("PriceCheck.aspx")
        End If
        If cmbPrograms.SelectedItem.Text = "RMS Compare" Then
            Response.Redirect("RMSCompare.aspx")
        End If

I have no idea how to do this for a web custom control. Anyone with patience, I would appreciate if you could be as detailed as possible if you want to give me a hand.

Thanks!

[pvb]

There are quite a few different ways to do this, here's one:
ProgramsDropDownList.vb:

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
 
Public Class ProgramsDropDownList : Inherits DropDownList
    Private _privilege As String
    Public ReadOnly Property Privilege() As String
        Get
            Return _privilege
        End Get
    End Property
    Public ReadOnly Property Program() As String
        Get
            Dim li As ListItem = Me.SelectedItem
            If Not li Is Nothing Then
                Return li.Value
            End If
        End Get
    End Property
    Public ReadOnly Property RedirectUrl() As String
        Get
            Select Case Me.Program
                Case "Menu"
                    Return "Menu.aspx"
                Case "PDI Sales"
                    Return "PDISales.aspx"
                Case "Price Check"
                    Return "PriceCheck.aspx"
                Case "RMS Compare"
                    Return "RMSCompare.aspx"
                Case Else
                    Return ""
            End Select
        End Get
    End Property
    Public Overloads Sub DataBind(ByVal privilege As Object)
        If Not privilege Is Nothing AndAlso privilege.ToString() <> "" Then
            Me._privilege = privilege.ToString()
            Me.ClearSelection()
            Me.Items.Add(New ListItem("- Select Program -"))
            Me.Items.Add(New ListItem("Menu"))
            Me.Items.Add(New ListItem("PDI Sales"))
            If Me._privilege = "Administrator" Or Me._privilege = "Executive" Then
                Me.Items.Add(New ListItem("Price Check"))
                Me.Items.Add(New ListItem("RMS Compare"))
            End If
        End If
    End Sub
End Class

and the aspx page ProgramsDropDownListTest.aspx:

<%@ Register TagPrefix="pvb" Assembly="DeathAngel" Namespace="DeathAngel" %>
<script language="vb" runat="server">
Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
    If Not Page.IsPostBack Then
        ddlPrograms.DataBind(Request.QueryString("privilege"))
        If ddlPrograms.Program = "" Then
            Response.Redirect ("http://www.microsoft.com")
        End If
    End If
End Sub
Protected Sub ddlPrograms_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    If ddlPrograms.RedirectUrl <> "" Then
        Response.Redirect(ddlPrograms.RedirectUrl)
    End If
End Sub
</script>
<html>
    <body>
        <form runat="server">
            <pvb:ProgramsDropDownList ID="ddlPrograms" Runat="server" AutoPostBack="true"
                OnSelectedIndexChanged="ddlPrograms_SelectedIndexChanged"/>
        </form>
    </body>
</html>