ElTicus.com

Programación, lenguajes y recursos para programadores

Recurso no clasificado
Como implementar un esquema de Texto/Valor en un ComboBox
Utilizando Visual Basic .NET
Publicado por JL Fecha: 2007-04-18 20:01:31 Idioma: Espa帽ol Tipo de documento: C贸digo fuente

Como implementar un esquema de Texto/Valor en un ComboBox con Visual Basic .NET

En un formulario de HTML los "Select" o Combos tienen una propiedad value que es independiente del texto mostrado, esto es muy c贸modo y pr谩ctico, por desgracia en Visual Basic no funciona as铆. No obstante es sencillo de implementar tal como se muestra en este c贸digo.

En un M贸dulo ponemos:


  Class item
        Public Index As Integer
        Public Description As String

        Public Sub New(ByVal IDx As Integer, ByVal DescriptionX As String)
            Index = IDx
            Description = DescriptionX
        End Sub

        Public Overrides Function ToString() As String
            Return Description
        End Function

        Public Function Value() As Integer
            Return Index
        End Function
  End Class


Y para utilizarlo en un formulario insertamos un ComboBox (Por default tomar谩 el nombre ComboBox1)

y ponemos en el Formulario el sigueinte c贸digo:


 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
                                                                         Handles MyBase.Load
        ComboBox1.Items.Add(New item(1, "M茅xico"))
        ComboBox1.Items.Add(New item(2, "Brasil"))
        ComboBox1.Items.Add(New item(3, "USA"))
        ComboBox1.Items.Add(New item(4, "Colombia"))
        ComboBox1.Items.Add(New item(5, "Argentina"))
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, 
               ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        MsgBox(ComboBox1.Items(ComboBox1.SelectedIndex).value)
    End Sub

y eso es todo, podemos acceder al ID por medio de:


ComboBox1.Items(ComboBox1.SelectedIndex).value


y al texto por medio de:

ComboBox1.Items(ComboBox1.SelectedIndex).toString




Nadie ha puesto ning鷑 comentario todav韆


Haz un comentario sobre este tema
Nombre email (no se muestra)
comentario:
Escribe las 2 letras que ves aqu: Imagen anti-spam =




No hay comentarios

Art韈ulos relacionados:
Recurso no clasificado Como hacer que un formulario sin bordes sea arrastrable con el rat贸n.