funcion
Publicado por Alfredo (26 intervenciones) el 14/09/2004 15:41:16
hola,
tengo la siguiente funcion:
Function sololectura(ByVal tipo As Boolean)
Dim ctl As Control
For Each ctl In Me.Controls
Select Case TypeName(ctl)
Case "GroupBox"
ctl.Enabled = false
End Select
Next
End Function
pero tengo un problema( la funcion esta bien) lo que quiero poner de readonly son los controles que se encuentran dentro de los GroupBox, pero al hacer la funcion con un paso a paso estos controles no aparecen, alguna ayuda
gracias
tengo la siguiente funcion:
Function sololectura(ByVal tipo As Boolean)
Dim ctl As Control
For Each ctl In Me.Controls
Select Case TypeName(ctl)
Case "GroupBox"
ctl.Enabled = false
End Select
Next
End Function
pero tengo un problema( la funcion esta bien) lo que quiero poner de readonly son los controles que se encuentran dentro de los GroupBox, pero al hacer la funcion con un paso a paso estos controles no aparecen, alguna ayuda
gracias
Valora esta pregunta


0