Recorer componentes...Tengo problema con este código

10/11/2006 - 14:39 por Anderson Noyola | Informe spam
Muy buenas a todos a ver si alguien me puede ayudar...

Como puedo recorer los componente que estan dentro de un tab

aqui le pongo una función que utiliso para recorrer los componente de un
formulario...

Friend Sub Limpiar(ByVal Formulario As Form)
Dim oListaControles As ControlCollection

'Obtener una coleccion de los controles del formulario
oListaControles = Formulario.Controls

Dim oUnControl As Control

For Each oUnControl In oListaControles
Select Case oUnControl.GetType.Name
Case "TextBox"
CType(oUnControl, TextBox).Clear
Case "ComboBox"
CType(oUnControl, ComboBox).Clear

End Select
Next
End Sub

esta es la que actualmente uso pero los componentes que estan en un tab no
lo limpia.. En espera de ser atendido.

Preguntas similare

Leer las respuestas

#1 SoftJaén
10/11/2006 - 15:49 | Informe spam
"Anderson Noyola" preguntó:

Como puedo recorer los componente que estan dentro de un tab



Hola, Anderson:

Lo puedes hacer recorriendo la colección «Controls» de un objeto «TabPage».
Tomando de muestra el procedimiento que has expuesto, ejecutarías algo
parecido a lo siguiente:

Friend Sub ClearTabPage(ByVal tp As TabPage)

Dim oUnControl As Control

For Each oUnControl In tp.Controls

Select Case oUnControl.GetType.Name

Case "TextBox"
CType(oUnControl, TextBox).Clear()

Case "ComboBox"
' Limpiamos el elemento seleccionado
CType(oUnControl, ComboBox).SelectedIndex = -1

' Eliminamos los elementos del control.
CType(oUnControl, ComboBox).Items.Clear()

End Select

Next

End Sub

Ahora, si por ejemplo deseas limpiar los controles que existen en la primera
página del control TabControl, llamarías al procedimiento de la siguiente
manera:

ClearTabPage(TabControl1.TabPages(0))

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida