Ver Mensaje Individual
  #4 (permalink)  
Antiguo 16/12/2014, 14:43
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses
Puntos: 29
Respuesta: Agregar variable a nombre de caja de texto

Es facil. Controls contiene todos los controles que hayas insertado en el formulario actual (Me).
Igual puedes usar "Form1.Controls".
El otro coge los 4 caracteres de la izquierda del nombre del control al que apunta la variable "ElControl" para ver si empieza con "Text".

Podria aclararlo mejor asi:
Dim ElControl As Control ' creamos una variable de tipo Control

For Each ElControl In Me.Controls ' cada Control que hay en el formulario lo vamos asignando a la variable ElControl para manipularlo

If Left$(ElControl.Name, 4) = "Text" Then ' si los 4 caracteres de la izquierda del nombre del Control son "Text"...

ElControl.Text = "0" ' ....es que es un textbox y le ponemos el valor "0"

End If

Next ElControl ' y pasamos al siguiente control

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Última edición por pkj; 16/12/2014 a las 14:51