Ver Mensaje Individual
  #16 (permalink)  
Antiguo 04/05/2009, 16:07
Marcelote
 
Fecha de Ingreso: mayo-2009
Mensajes: 31
Antigüedad: 16 años
Puntos: 0
Respuesta: Borrar cajas de texto con la funcion Esc

Cita:
Iniciado por natalyro Ver Mensaje
UNA PREGUNTA Y QUE ES CT?

if CT is TextBox then 'con esta instruccion limpia todos los textbox sin especificarlos?

es que me sale un error: Objeto requerido en if CT is TextBox then.

gracias
Hola.
CT es una variable de tipo Control (podría ser también tipo Object) que he declarado previamente con Dim CT as Control

Con el bucle For Each CT in Me.Controls recorro todos los controles del formulario.
Con If TypeOf CT is TextBox compruebo si el control actual referenciado por CT es un TextBox. Si es así, establezco su propiedad Text a "" (si pusiera msgbox CT.Name me mostraría el nombre del control, en el ejemplo, "Text1")

Había un error en el código, que ya he depurado. Lo he comprobado y funciona.
Es que la condición debía haber sido If TypeOf CT is TextBox. Perdona por el error.

Última edición por Marcelote; 04/05/2009 a las 16:20