• Domingo 12 de Mayo de 2024, 21:14

Autor Tema:  TabControl  (Leído 6928 veces)

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
TabControl
« en: Jueves 11 de Septiembre de 2008, 17:42 »
0
Buen dia a todos, tengo una duda y espero sea de facil solucion  :huh: ....

Tengo un TabControl con 5 pestañas y un boton limpiar fuera del TabControl, pero al dar limpiar solo limpia los TextBox q estan en la pestaña q esta a la vista en el momento de dar Click al boton Limpiar, entonces, como puedo hacer para q con un solo Click me limpie los TextBox de las otras pestañas q no estan a la vista al momento de dar Click...ojala y esto se pueda hacer....

Quedo atento a sus respuestas y desde ya Gracias....
Solo el Bueno muere joven...

Nebire

  • Miembro HIPER activo
  • ****
  • Mensajes: 670
    • Ver Perfil
Re: TabControl
« Respuesta #1 en: Viernes 12 de Septiembre de 2008, 18:50 »
0
El control tab mantiene una colección de 'paneles' de las fichas, debes acceder a cada uno de ellas no sólo a la actual.

Para ello recorre la colección, por ejemplo con un bucle for
Código: Visual Basic
  1. For k = 0 To TabControl1.TabCount -1...    Next
  2.  


y luego accediendo a cada ficha por ejemplo así:
Código: Visual Basic
  1. If TabControl1.TabPages(k).BackColor = Color.Black Then ...  End If
  2.  


queda claro que tabpages(k) es la ficha x de la colección...
en el código de ejemplo recorro las fichas para saber si tienen su color de fondo a negro... así el problema está en el códgo de tu botón 'limpiar' ...

Si no te aclaras pon el código que tienes en ese botón para 'limpiar' los textbox del tabcontrol....
«Ma non troppo»
----> ModoVacaciones = False<----

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Re: TabControl
« Respuesta #2 en: Viernes 12 de Septiembre de 2008, 19:07 »
0
Gracias Nebire, creo q comprendo pero de todos modos te dejo el codigo para una mejor explicacion....

Gracias denuevo

Private Sub tsbtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnLimpiar.Click
        'Principal
        Me.txtRutAlumno.Text = CStr(0)
        Me.txtDvAlumno.Text = ""
        Me.txtMatricula.Text = CStr(0)
        Me.txtNumRol.Text = CStr(0)
        Me.txtApellidoPaterno.Text = ""
        Me.txtApellidoMaterno.Text = ""
        Me.txtNombres.Text = ""
        Me.cbxSexo.Text = ""
        Me.chbxServDesayuno.Checked = False
        Me.chbxServAlmuerzo.Checked = False
        Me.chbxServOnce.Checked = False
        Me.txtIdCurso.Text = CStr(0)
        Me.lblCurso.Text = ""
        Me.txtIdTarjeta.Text = CStr(0)
        Me.updNunLista.Text = "1"
        Me.txtRutAlumno.Enabled = True
        Me.txtDvAlumno.Enabled = True
        Me.pbxFotoAlumno.Image = Nothing
        Me.dtpFechaNacimiento.Text = ""
        Me.txtEdad.Text = CStr(0)

        'Pestaña "Datos Contacto"
        Me.txtDireccion.Text = ""
        Me.cbxNacionalidad.Text = ""
        Me.cbxComuna.Text = ""
        Me.cbxProvincia.Text = ""
        Me.cbxRegion.Text = ""
        Me.txtFono.Text = CStr(0)
        Me.txtCelular.Text = CStr(0)
        Me.txtFax.Text = CStr(0)
        Me.txtCodigoArea.Text = CStr(0)
        Me.txtEmail.Text = ""
        Me.txtWeb.Text = ""
        Me.txtWinLive.Text = ""
        Me.txtFechaRegistro.Text = CStr(Today())
        Me.dtpFechaActualizacion.Text = ""


        'Pestaña "Observaciones"
        Me.txtObservaciones.Text = ""

        'Pestaña "Adicionales"
        Me.rbtnAlumnoNuevo.Checked = False
        Me.rbtnAlumnoAntiguo.Checked = False
        Me.txtColegioAnterior.Text = ""
        Me.rbtnNacionChilena.Checked = False
        Me.rbtnNacionExtranjera.Checked = False
        Me.rbtnSIoptaReligion.Checked = False
        Me.rbtnNOoptaReligion.Checked = False
        Me.cbxViveCon.Text = ""
        Me.cbxSituacionConyugalPadres.Text = ""
        Me.dtpFechaNacimiento.Text = ""
        Me.txtEdad.Text = ""
        Me.rbtnSiHermanosColegio.Checked = False
        Me.rbtnNoHermanosColegio.Checked = False
        Me.txtHermanosEnCursos.Text = ""
        Me.cbxComoSupoDelColegio.Text = ""
        Me.rbtnCentroPadresPagado.Checked = False
        Me.rbtnCentroPadresNOpagado.Checked = False

        'Pestaña "Documentos Entregados"
        Me.chbxCertificadoNacimineto.Checked = False
        Me.chbxCertificadoPromocion.Checked = False
        Me.chbxCertificadoPersonalidad.Checked = False
        Me.chbxCertificadoConducta.Checked = False
        Me.chbxFotosAlumno.Checked = False

        'Pestaña "Retiro del Colegio"
        Me.rbtnRetiroColegioSolo.Checked = False
        Me.rbtnRetiroColegioTransporteEscolar.Checked = False
        Me.txtPersonaAutorizadaRetiro.Text = ""
        Me.txtFonoPersonaAutorizadaRetiro.Text = CStr(0)
        Me.txtPersonaNOautorizadaRetiro.Text = ""

        'Pestaña "Ficha Medica"
        Me.txtGrupoSanguineo.Text = ""
        Me.txtConvenioUrgencia.Text = ""
        Me.txtFonoServicioUrgencia.Text = CStr(0)
        Me.txtFormaTraslado.Text = ""
        Me.txtCasoUrgenciaAvisarA.Text = ""
        Me.txtFonoCasoUrgenciaAvisarA.Text = CStr(0)
        Me.txtTratami.Text = ""
        Me.txtTratamiento.Text = ""
        Me.txtMedicamentosDebeTomar.Text = ""
        Me.txtContraindicaciones.Text = ""
End Sub
Solo el Bueno muere joven...

ejfonseca

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: TabControl
« Respuesta #3 en: Domingo 30 de Mayo de 2010, 03:04 »
0
;) Si entiendo bien tu inquietud lo que debes hacer es insertar un TabControl en un formulario y tres botones fuera del tab control y en el formulario programa el siguiente código:
____________________________________________________________________________
Public Class Form1

    Private Sub CrearTextBox(ByVal EnDonde As Integer)
        Dim NewTextBox As New TextBox
        NewTextBox.Name = "TxtPrueba"
        NewTextBox.Text = "como te quedó el ojo"
        NewTextBox.Location = New Point(10, 10)
        If EnDonde = 1 Then
            TabControl1.TabPages(0).Controls.Add(NewTextBox)
        Else
            TabControl1.TabPages(1).Controls.Add(NewTextBox)
        End If
    End Sub
____________________________________________________________________________
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CrearTextBox(1)
    End Sub
____________________________________________________________________________
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CrearTextBox(2)
    End Sub
____________________________________________________________________________
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Var As New Control
        Dim i As Integer
        For i = 0 To TabControl1.TabCount - 1
            For Each Var In TabControl1.TabPages(i).Controls
                If TypeOf Var Is TextBox Then
                    Var.Text = ""
                End If
            Next
        Next
    End Sub
____________________________________________________________________________
   
End Class

Espero que te sirva el aporte
 :good: