¿Como aplico una misma propiedad...?

15/03/2005 - 22:30 por Oscar | Informe spam
Como aplico una misma propiedad a una clase de objetos, por
decir que todos los objetos TextBox del formulario, tenga
la propiedad Enabled=false
 

Leer las respuestas

#1 DJ MIAO
16/03/2005 - 00:01 | Informe spam
Miao..
Comprate un libro.

Este código funcionaría sobre los controles situados
directamente en el formulario:


Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is Button Then
ctrl.Enabled = False
End If
Next

Para hacer lo mismo con un control contenedor, sustituye
el Me de Me.Controls por el nombre del contenedor.

Si quieres un código que realmente recorra todos los
controles de un formulario, sería así:

ActivaBotones(Me)

Sub ActivaBotones(ByVal parent As Control)
Dim ctrl As Control
For Each ctrl In parent.Controls
If ctrl.Controls.Count > 0 Then
ActivaBotones(ctrl)
End If
If TypeOf ctrl Is Button Then
ctrl.Enabled = False
End If
Next
End Sub



Como aplico una misma propiedad a una clase de objetos,


por
decir que todos los objetos TextBox del formulario, tenga
la propiedad Enabled=false
.

Preguntas similares