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

Oi, bom dia tem como a legenda do formulário, apresentar com slide.

Legenda do form do access apresentar como slid? Voce quer animação é isso?

isso Marcelo que a legenda fique passando tipo um letreiro digital

Eu costumo usar no rodapé dos forms... Veja

Crie um rótulo e faça seu texto

Evento ao abrir do form:


Me!NomeRotulo.Width = 0

Me.NomeRotulo.Left = Me.WindowWidth

wFrase = Me!NomeRotulo.Caption

No timer

Private Sub Form_Timer()

If Me!NomeRotulo.Left <= 50 Then

If Len(Me!NomeRotulo.Caption) > 1 Then
Me!NomeRotulo.Caption = Right(Me!NomeRotulo.Caption, Len(Me!NomeRotulo.Caption) - 1)

Else

Me!NomeRotulo.Width = 0
Me!NomeRotulo.Left = Me.WindowWidth
Me!NomeRotulo.Caption = wFrase
End If

Else

Me!NomeRotulo.Left = Me!lblFrase.Left - 50

Me!NomeRotulo.Width = Me!lblFrase.Width + 50
End If
End Sub

Marcelo você tem algum exemplo que possa enviar

Marcelo esta dando erro.

If Me!letreiro.Left <= 50 Then

If Len(Me!letreiro.Caption) > 1 Then
Me!letreiro.Caption = Right(Me!letreiro.Caption, Len(Me!letreiro.Caption) - 1)

Else

Me!letreiro.Width = 0
Me!letreiro.Left = Me.WindowWidth
Me!letreiro.Caption = wFrase
End If

Else

Me!letreiro.Left = Me!lblFrase.Left - 50

Me!letreiro.Width = Me!lblFrase.Width + 50
End If

Onde voce escreveu em vermelho, terá que por o nome do seu rotulo, veja:

Me!letreiro.Left = Me!lblFrase.Left - 50

Me!letreiro.Width = Me!lblFrase.Width + 50

Autere para:

Me!letreiro.Left = Me!NomeRotulo.Left - 50

Me!letreiro.Width = Me!NomeRotulo.Width + 50

O que está em verde, ponha também o nome do seu rótulo...

Valeu Marcelo deu certo, mais uma coisa tem com ficar mudando as frases.

Estranho, fiz todo o procedimento com o meu rotulo chamado anime e não deu certo, segue abaixo como coloquei.

Cumprimentos,


Private Sub Form_Open(Cancel As Integer)
Me!anime.Width = 0

Me.anime.Left = Me.WindowWidth

wFrase = Me!anime.Caption


End Sub

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

If Len(Me!anime.Caption) > 1 Then
Me!anime.Caption = Right(Me!anime.Caption, Len(Me!anime.Caption) - 1)

Else

Me!anime.Width = 0
Me!anime.Left = Me.WindowWidth
Me!anime.Caption = wFrase
End If

Else

Me!anime.Left = Me!anime.Left - 50

Me!anime.Width = Me!anime.Width + 50
End If
End Sub

Ok, amigão! Só faltou o resolvido...

thiagojos
Observe se vc está pondo os códigos nos eventos corretos...
Pois qui funciona e o do colega já está funcionando também...

Marcelo tem como passar varias frases ao mesmo tempo em um rotulo

sim estou. ao abrir e no timer.

Veja o exemplo:

Baixe aqui

Quero quando passe uma frase inicie outra diferente

É só voce escrever todas as frases no mesmo rótulo...
Exemplo:

Mercado Central, aqui voce encontra os melhores preços Venha, e economeze


Apenas dê um espaço entre cada frase... Muito simples, baixe novamente o exemplo que verá o resultado...

valeu.

Obrigado pelo retorno!