como recorrer todos los controles en una forma

Lo que pasa es que los controles dentro del TabControl,
son un sub-conjunto de esta, igual en un groupBox, y
otros controles. Son controles dentro de otro control.

Debes utilizar algun metodo recursivo como por ejemplo:

Private Sub RecorrerControles(ByVal pControl As _
Control.ControlCollection)
Dim vControl As Object ' Control o Arreglo de Controles
Dim vTipoControl as string
For Each vControl In pControl
If vControl.Controls.Count > 0 Then
'Al ser una colección se llama recursivamente
RecorrerControles(vControl.Controls)
Else
' Procesa Control
vTipoControl = TypeName(vControl) ' ComboBox,etc...

End If
Next
End Sub



Mostrar la cita

Hola grupo, quisiera saber como hacer para recorrer

todos los objetos en una
Mostrar la cita

forma, tengo en la forma un tabcontrol y dentro de este

todos los demas
Mostrar la cita

controles, lo que quiere desarrollar es un procedimiento

que solo mandandole
Mostrar la cita

por parámetro la forma, me recorra todos los controles

que hay en ella...
Mostrar la cita

hice algo como

for c as control in forma.controls

next

donde forma es la forma que esto enviando por parámetro,

pero me he dado
Mostrar la cita

cuenta que solo trae el tabcontrol...

alguien me puede ayudar con esto?, no todas las formas

van a tener
Mostrar la cita

tabcontrols, por lo que NO podría hacer esto

for c as control in forma.control("tab")
..
next

gracias por su ayuda..


.