[Resolvido]Legenda na barra de titulo do formuário

Oi boa tarde coloquei um rotulo com essa instrução
Mais só esta funcionando um vez quando o rotulo retorna o Caption fica em branco alguém pode me ajudar.


Private Sub Form_Open(Cancel As Integer)
DoCmd.Restore
Me!msg.Width = 0

Me.msg.Left = Me.WindowWidth

wFrase = Me!msg.Caption

End Sub

Private Sub Form_Timer()
If Me!msg.Left <= 50 Then

If Len(Me!msg.Caption) > 1 Then

Me!msg.Caption = Right(Me!msg.Caption, Len(Me!msg.Caption) - 1)

Else

Me!msg.Width = 0


Me!msg.Left = Me.WindowWidth

Me!msg.Caption = wFrase
End If

Else

Me!msg.Left = Me!msg.Left - 50

Me!msg.Width = Me!msg.Width + 50
End If

Amigão, no post anterior, que tratamos disso, pus um exemplo...
Veja os códigos direitinho, pois comigo sempre funcionou sem problema algum...
É só baixar o exemplo... Vou puxar ele pra cá... Só um minuto...

Amigo:

Faça a caption directo na barra do form

No evento ao carregar do Formulário;

Me.Caption="dfffff"

Com um rótulo é a mesma coisa e no mesmo evento

Me. NomedoRótulo.Caption="dffffff"

Simples

Desculpa Marcelo, foi ao mesmo tempo.

Tubo bem Vieira... rsrs

Amigo fabiano, aqui está o exemplo, baixe e veja funcionando.



Baixe aqui

Marcelo já abrir seu exemplo ate copiei p/ meu banco na primeira rodada normal na segunda em diante ele começa sumir o caption não sei o que esta acontecendo

Poste seu banco para darmos uma olhada....

boa tarde Vieira eu queria que o caption da barra do form ficasse em movimento tem com fazer isso.

ok marcelo

Ai vai meu bd
https://www.dropbox.com/revisions/ControFarol.mdb

Ói Fabiano, desculpe que estava a milhas daqui


No seu formulário defina por exemplo 1000 no intervalo do cronómetro

No evento do cronómetro, teste:

Private Sub Form_Timer()
Static intShowCaption As Integer
If intShowCaption Then

Me.Caption = "dddddd"

Else
Me.Caption = "xxxxxxx"
End If
intShowCaption = Not intShowCaption
End Sub

Teste aí o que o amigo Vieira disse. Pode ser isso... No exemplo, o Intervalo do cronômetro está 50...

Amigo, seu link está pedindo senha... Não consigo abrir....

https://www.dropbox.com/home?select=ControFarol.mdb#:::

https://www.dropbox.com/revisions/ControFarol.mdb

marcelo manda seu email

Viera ficou parecendo um pisca pisca, ficou muito rápido.

Então, aumente o tempo no cronómetro, em vez de 1000, coloque 5.000 ou 10.000 e por aí fora até ficar de acordo com o que quer

Viera fiz desse jeito deu certo valeu pela dica
acrescentei um timerInterval dentro da função
Ficou assim

Static intShowCaption As Integer
If intShowCaption Then

Me.Caption = "controle de Faróis"
Me.TimerInterval = 1000
Else
Me.Caption = "Operação Dopec"
Me.TimerInterval = 1000
End If
intShowCaption = Not intShowCaption

Valeu pela dica....

Obrigado ao Marcelo pela sua preciosa e disponível ajuda. Um bem haja.

Bom trabalho

VALEU Marcelo
ai vai meu Email fabianogoes.ssa@hotmail.com
depois mando o bd pra você olhar