El control TabControl

Manejo de los TabPages

Fecha: 14/Jul/2005 (14 de Julio de 2005)
Autor: Ing. Fernando Luque Sánchez - DCE 4 Estrellas

[email protected]


Sres. Desarrolladores, este aporte pretende explicar el manejo del control TabControl, este control puede ser utilizado cuando se tienen demasiados datos en un solo formulario y es posible separarlos.

El control se muestra con un conjunto de TabPages o fichas dentro de las cuales se pueden agregar todo tipo de controles, inclusive otro TabControl.

Para insertar fichas debe agregarse una opción a la colección TabPages. Especificar la propiedad Text para el texto que mostrará la ficha.

Es un control que posee muchas propiedades y métodos pero que la mayoría de usuarios las usamos por defecto.

EL EJEMPLO

En el aporte que comparto con ustedes intento mostrar como administrar las diferentes fichas, teniendo en cuenta los ingresos de datos. Es muy útil, bajen el fichero zip y ejecuten.

A continuación sigue código en Visual Basic:

Este es el procedimiento para administrar la selección de las fichas

Private Sub SeleccionPages(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles tbCuadro.SelectedIndexChanged

        'Seleccionar las páginas de Premios, Concurso y Puntajes 
        'sin agregar concursantes.-

        If vAgregado = False AndAlso tbCuadro.SelectedIndex > 0 Then
            tbCuadro.SelectedIndex = 0
            MessageBox.Show("Falta ingresar Concursantes", "Atención", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        ElseIf
vAgregado = True And cConcursantes = 1 And tbCuadro.SelectedIndex = 1 Then
            tbCuadro.SelectedIndex = 0
            MessageBox.Show("Mínimo 02 Concursantes", "Atención", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            Exit Sub
        ElseIf tbCuadro.SelectedIndex = 2 And vConcurso = False Then
            tbCuadro.SelectedIndex = 1
            MessageBox.Show("Falta Seleccionar Premios", "Atención", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            Exit Sub
        ElseIf tbCuadro.SelectedIndex = 1 Then
            If cboAgregados.Items.Count = 0 Then
                For i = 0 To aConcursantes.GetLength(1) - 1
                   
cboAgregados.Items.Add(aConcursantes(0, i))
               
Next
            End If
        End If
    End Sub

El código completo está en el archivo adjunto, al final del artículo, no olvides calificarme, me motiva a seguir publicando y compartiendo mis conocimientos. Suierte y A SEGUIR DESARROLLANDO

Ing. Fernando Luque Sánchez
CIP 61806


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

System.Windows.Forms


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


ir al índice