SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Vortice en Jueves 11 de Septiembre de 2008, 17:42

Título: TabControl
Publicado por: Vortice en Jueves 11 de Septiembre de 2008, 17:42

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....

Título: Re: TabControl
Publicado por: Nebire en Viernes 12 de Septiembre de 2008, 18:50

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....

Título: Re: TabControl
Publicado por: Vortice en Viernes 12 de Septiembre de 2008, 19:07

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

Título: Re: TabControl
Publicado por: ejfonseca en Domingo 30 de Mayo de 2010, 03:04

;) 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: