hola
necesito un ciclo que me permita ocultar todos los label o text en en formulario
saludos
28/09/2006, 10:22
| ||||
| ||||
| como colocar visible a false a todos los label del formulario hola necesito un ciclo que me permita ocultar todos los label o text en en formulario saludos
__________________ Enseñar no es una función vital, porque no tienen el fin en sí misma;la función vital es aprender. |
|
28/09/2006, 10:33
| ||||
| ||||
| Dim MiObjetoRecorrido As Object For Each MiObjetoRecorrido In Me If TypeOf MiObjetoRecorrido Is Label Then 'los tipos son TextBox, CommandButton, Label, etc MiObjetoRecorrido.Visible = False End If Next |
|
28/09/2006, 17:17
| ||||
| ||||
| El código está muy bien, sin embargo una forma de delimitar el bucle sería el siguiente
Código:
De este manera, solo buscara en la coleccion de controles y no en todo lo que involucra la forma acelerando así la instrucciónDim r As Variant
For Each r In Me.Controls
If TypeOf r Is Label Then r.Visible = False
Next r
Saludos
__________________ Yo tan sólo se, que no he senado |
