Texto Intermitente

sebastian
09 de Septiembre del 2004
Hola, tanto tiempo...

Nuevamente con mis preguntas, en este caso quisiera saber como puedo hacer para darle un fecto flash ( intermitente) a un text de un texbox..
Gracias

semper
09 de Septiembre del 2004
Podrias usar algo como esto...
Agrega un Timer (Timer1) a tu forma

En el evento LOAD() de la forma

Private Sub Form1_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

' ... Y en el evento Timer del Timer1 (cambia Text1 por el nombre de tu textbox) ...

Private Sub Timer1_Timer()
If Me.ActiveControl.Name = "Text1" Then
If Not (Me.Text1.BackColor = vbWhite) Then
Me.Text1.BackColor = vbWhite
Me.Text1.ForeColor = vbBlack
End If
Exit Sub
End If

If Len(Me.Text1) > 0 Then
If Me.Text1.BackColor = vbRed Then
Me.Text1.BackColor = vbWhite
Me.Text1.ForeColor = vbBlack
Else
Me.Text1.BackColor = vbRed
Me.Text1.ForeColor = vbWhite
End If
ElseIf Not (Me.Text1.BackColor = vbWhite) Then
Me.Text1.BackColor = vbWhite
Me.Text1.ForeColor = vbBlack
End If
End Sub

sebastian
09 de Septiembre del 2004
Hola, te agradezco por tus datos preo el ejemplo a mi no me funcion, realize todo como lo qxplicaste pero no hace absoluptamente nada !!!

Gracias por la Atencion

semper
09 de Septiembre del 2004
En el evento LOAD que te puse en el codigo debes cambiar el Form1 del ejemplo por el nombre de tu forma (que por default es solamente Form) ...


Private Sub Form1_Load() ' <- Cambia el Form1 por el nombre de tu forma !!!
Timer1.Interval = 500
Timer1.Enabled = True
End Sub