El control ComboBox

Opciones principales

Fecha: 07/Jun/2005 (07 de Junio de 2005)
Autor: Ing. Fernando Luque Sánchez
DCE 4 Estrellas

[email protected]
[email protected]
[email protected]

 


Sres Desarrolladores, les envio este aporte que permitirá conocer las opciones principales del control ComboBox, en este articulo no utilizo el enlace del control a base de datos, pero les prometo que dentro de poco preparo otro con enlaces a Base de Datos. Suerte a todos

UN POCO DE TEORIA

Los controles de lista como ListBox, ComboBox y CheckedListBox (pueden visitar el artículo en  http://www.elguille.info/colabora/puntoNET/FernandoLuque_Controles.htm) permiten el manejo de varias opciones, en este artículo trato de explicar el uso del control ComboBox.

El ComboBox es uno de los controles de lista mas utilizados en las aplicaciones tanto de escritorio como ASP .Net, este es sumamente versastil, su propiedad  DropDownStyle nos brinda presentarlo de forma variada. en el ejemplo he tratado de mostrar estas opciones.

El ejemplo también muestra como ingresar una fecha considerando edades entre 17 y 90 años. El botón Comprobar permite mostrar un mensaje si la fecha seleccionada es Correcta o Incorrecta.

A continuación sigue código en Visual Basic

Private Sub Cargar(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Llenar el Día
        Dim i As Integer
        For i = 1 To 31
            cboDia.Items.Add(i)
        Next

        'Llenar los Nombres de los Meses

        For i = 1 To 12
            cboMes.Items.Add(MonthName(i, False))
        Next

        'Al ingresar el rango para los años existen
        'diferentes posibilidades...consideremos mayores de 18 años
        'hasta las 90 años

        For i = Year(Now) - 90 To Year(Now) - 17
            cboAnio.Items.Add(i)
        Next

    End Sub

    Private Sub CompruebaFecha(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdComprobar.Click

        If cboDia.SelectedIndex = -1 Or cboMes.SelectedIndex = -1 Or cboAnio.SelectedIndex = -1 Then
            MessageBox.Show("Faltan datos...", "Fecha incompleta", MessageBoxButtons.OK)
            Exit Sub
        End If

        Dim vfecha As String

        vfecha = Trim(cboDia.SelectedItem) & "/" & Trim(Str(cboMes.SelectedIndex + 1)) & "/" & Trim(cboAnio.SelectedItem)

        If Microsoft.VisualBasic.IsDate(vfecha) = False Then
            MessageBox.Show("Fecha no valida...", "Error de ingreso", MessageBoxButtons.OK)
        Else
            MessageBox.Show("Fecha CORRECTA...", "Dato Válido", MessageBoxButtons.OK)
        End If

    End Sub

El código completo está en el archivo adjunto. Suerte a todos, espero les sirva de ayuda, no olviden dar su opinión en mi Panoramabox, gracias.

Ing. Fernando Luque Sánchez
Trujillo - Perú


Espacios de nombres usados en el código de este artículo:

System.Windows
Microsoft.VisualBasic


Fichero con el código de ejemplo: FernandoLuque_El_Control_ComboBox.zip - Tamaño 14 KB


ir al índice