CLR: .Net / Mono / Boo / Otros CLR > VB .NET
TabControl
(1/1)
Vortice:
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....
Nebire:
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 ---For k = 0 To TabControl1.TabCount -1... Next
y luego accediendo a cada ficha por ejemplo así:
--- Código: Visual Basic ---If TabControl1.TabPages(k).BackColor = Color.Black Then ... End If
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....
Vortice:
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
ejfonseca:
;) 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:
Navegación
Ir a la versión completa