Controles Básicos en Visual Basic .Net

CheckedListBox, ListBox y ComboBox 

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

fls2307@hotmail.com
fernandoluque2307@yahoo.com


Sres. Desarrolladores, les envio otro aporte, este trata de despejar algunas dudas de como utiizar los controles básicos en una aplicación Windows usando Visual Basic .Net.

EL EJEMPLO

Los controles mas utilizados en aplicaciones Windows son las cajas de texto y los controles de lista, en este ejemplo se ingresa los datos de un producto que se repartirá entre los departamentos que se seleccionen de una empresa, la cantidad de departamentos es mínimo dos.

Se usan variables y se grafica un  poco como usar estas a nivel de clase y como cambiar y manejar su valor entre los diferentes procedimientos.En este ejemplo se ingresa una cantidad de un supuesto producto que luego según los departamentos seleccionados tendrá que repartirse. Note ciertas consistencias en el ingreso de datos y luego en el manejo de las variables. Suerte.

A continuación sigue código en Visual Basic .Net

Private Sub SeleccionaDepas(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles cmdSelec.Click

        'Procedimiento para seleccionar los departamentos
        'Comprobar el ingreso correcto de datos
        If Len(Trim(txtIDProd.Text)) = 0 Or Len(Trim(txtCanti.Text)) = 0 Or Len(Trim(txtDescrip.Text)) = 0 Then
            MessageBox.Show("Faltan datos...", "Error...", MessageBoxButtons.OK)
            Exit Sub
        End If

        'Comprobar que la cantidad sea ingreso numérico

        If Not IsNumeric(txtCanti.Text) Or Val(txtCanti.Text) <= 0 Then
            MessageBox.Show("Cantidad no válida...", "Error...", MessageBoxButtons.OK)
            Exit Sub
        End If

        'Para saber cuantos hay seleccionados
        Dim c As Integer
        For i = 0 To chklDepas.Items.Count - 1
            If chklDepas.GetItemChecked(i) = True Then
                c += 1
            End If
        Next

        If c >= 2 Then
            cboDepa.Items.Clear()
            lstAsignado.Items.Clear()
            cmdMostrar.Enabled = True
            cmdAsignar.Enabled = False
            For i = 0 To chklDepas.Items.Count - 1
                If chklDepas.GetItemChecked(i) = True Then
                    cboDepa.Items.Add(chklDepas.Items.Item(i))
                End If
            Next

            'Regresar los valores asignados a CERO
            vAdministracion = 0 : VContabilidad = 0 : vProduccion = 0 : vVentas = 0
            txtCantiAsigna.Clear()
            lblRestantes.Text = txtCanti.Text
            vRestante = Val(lblRestantes.Text)
            lblProducto.Text = "Producto : "
        Else
            MessageBox.Show("Son dos departamentos como mínimo...", "Error...", MessageBoxButtons.OK)
        End If
    End Sub

 

    Private Sub SeleccionarDepa(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles cboDepa.SelectedIndexChanged
        cmdAsignar.Enabled = True
        Select Case cboDepa.SelectedItem
            Case "Administración"
                txtCantiAsigna.Text = vAdministracion
            Case "Contabilidad"
                txtCantiAsigna.Text = VContabilidad
            Case "Producción"
                txtCantiAsigna.Text = vProduccion
            Case "Ventas"
                txtCantiAsigna.Text = vVentas
        End Select
    End Sub

El código completo se encuentra en el archivo adjunto, suerte a todos y no se olviden de dar su calificación en PanoramaBox, eso me alienta a seguir publicando.

Ing. Fernando Luque Sánchez
CIP 61806
Trujillo - Perú


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

System.Windows.Forms


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


ir al índice