MSG PISCANDO
Olá a todos
No meu formulario tem um label para titulo de informação que chamo de msg onde o cliente por exemplo ,quando ele digita uma data invalida aparece no msg [Ô]favor informar a data correta[Ô].
Eu queria criar algo difrerente , tipo ao aparecer a msg ela piscasse cinco vezes e sumisse tipo pra chamar a atenção entende?.
Tipo executar um numero de vez .
No meu formulario tem um label para titulo de informação que chamo de msg onde o cliente por exemplo ,quando ele digita uma data invalida aparece no msg [Ô]favor informar a data correta[Ô].
Eu queria criar algo difrerente , tipo ao aparecer a msg ela piscasse cinco vezes e sumisse tipo pra chamar a atenção entende?.
Tipo executar um numero de vez .
Utilize um TIMER para controlar o intervalo de tempo, com uma rotina para alterar a propriedade VISIBLE do LABEL.
coloque o timer em seu projeto, mude a propriedade enable para false e em interval coloque 600 ( este valor aumenta o diminui a velocidade em que o form pisca)
[ô] no general do form declare
Dim contador As Integer
[ô] o evento do botão abaixo coloquei apenas para teste
[ô] coloque o timer1.enabled = true quando vc chamar o label
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
contador = contador + 1
If (contador Mod 2) = 0 Then
Label1.Visible = False
Else
Label1.Visible = True
End If
If contador = 11 Then
contador = 0
Timer1.Enabled = False
End If
End Sub
Tópico encerrado , respostas não são mais permitidas