Question about Custom Controls

Discussion in 'ASP .Net Building Controls' started by GMK, Feb 22, 2005.

  1. GMK

    GMK Guest

    Dear all
    I'm building a web application that some standard controls in many pages as
    "DropDownlist" this drop down list is filled from a table in a specific
    database and this "DropDownlist" will be used in many apges and on each page
    the data inside the "DropDownlist" will be the same but the use of this data
    will be from different events.
    how could i create such a control and if there are any tutorial which would
    help me in building this control i would be so thankful.

    thank you so much for your help.

    GMK, Feb 22, 2005
    1. Advertisements

  2. Look the code i put here, i hope so that code helps you, its an example of
    an CustomControl inherits from DropDownList, and when you drag&drop the
    control in your page you can see all the events same a normal DropDownList,
    but this dropdownlist bind the data automatically,

    Imports System.ComponentModel
    Imports System.Web.UI

    <DefaultProperty("idCuentaContable"), ToolboxData("<{0}:ddlbCuentaContable
    runat=server></{0}:ddlbCuentaContable>")> _

    Public Class ddlbCuentaContable

    Inherits System.Web.UI.WebControls.DropDownList

    Private _idCuentaContable As Integer

    Private _sError As Boolean

    Public Event ErrorEvent As EventHandler

    Public ReadOnly Property sError() As String


    Return _sError

    End Get

    End Property

    <Bindable(True), Category("Data"), DefaultValue(0)> _

    Public Property idCuentaContable() As Integer


    Return _idCuentaContable

    End Get

    Set(ByVal Value As Integer)

    _idCuentaContable = Value

    If Value > 0 Then

    Me.SelectedValue = Me._idCuentaContable

    End If

    End Set

    End Property

    Private Sub RecuperarLista()

    Dim mWr As New wrCatalogosContabilidad.CatalogosContabilidad

    Dim sError As New String("")

    Dim dsDatos As DataSet

    sError = mWr.ObtenerListaValorCuentasContables(dsDatos)

    If Not sError = "" Then

    Me._sError = "Error al obtenerListado de Cuenta Contable. " + sError

    Dim e As EventArgs

    RaiseEvent ErrorEvent(Me, e)


    End If

    Me.DataSource = dsDatos

    Me.DataTextField = "nombreCuenta"

    Me.DataValueField = "idCuenta"


    End Sub

    Protected Overrides Sub OnSelectedIndexChanged(ByVal e As System.EventArgs)

    Me._idCuentaContable = Me.SelectedValue


    End Sub

    Protected Overrides Sub OnInit(ByVal e As System.EventArgs)



    End Sub

    End Class

    Elmer Carías
    El Salvador, CA
    DCE 3
    MSN Messenger:
    Elmer Carías, Feb 22, 2005
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.