Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/09/2011, 08:43
Avatar de lokoman
lokoman
 
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 12 años
Puntos: 47
Respuesta: Añadir funcionalidad a todos los textBox de un programa

Hola!!
Pues se me ocurrió esto:
• Pones en la propiedad "TAG" de cada TextBox el valor "txt" (sin comillas)
• Agregas un Timer al Form, con su propiedad "INTERVAL" en 60 y agregas el codigo:

Código vb:
Ver original
  1. Private Sub Timer_Timer()
  2.     For Each Control In Form1.Controls
  3.         If Control.Tag = "txt" Then
  4.             If Control.Text <> Empty Then
  5.                 Control.BackColor = &HC0FFC0
  6.             Else
  7.                 Control.BackColor = &HFFFFFF
  8.             End If
  9.         End If
  10.     Next
  11. End Sub

Todos los TexBox que tengan la propiedad TAG=txt, obtendrán un color al momento que se DIGITE algo en ellos o si TIENEN algun valor, pero no ocurrirá con el GOTFOCUS