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
