MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Texto animado

    Compartilhe

    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 22/04/2016

    [Resolvido]Texto animado

    Mensagem  dori em 9/2/2018, 19:55

    Olá pessoal, boa tarde

    eu coloquei no meu aplicativo um texto animado no evento ao abrir : "BOM DIA, SEJAM BEM-VINDOS!" . Só que qualquer hora que ele abrir ele apresenta esse texto.
    Mas eu gostaria que ele fizesse o seguinte ao abrir:

    Das 4 horas às 12 horas ele apresentasse o texto: "BOM DIA, SEJAM BEM-VINDOS!"
    Das 12:01hs às 18:00 hs ele apresentasse o texto: "BOM TARDE, SEJAM BEM-VINDOS!"
    E das 18:01hs às 3:59 ele apresentasse o texto: "BOM NOITE, SEJAM BEM-VINDOS!"

    Tem jeito?
    Alguém pode me ajudar, se não for pedir demais?

    GRATO!
    avatar
    rfnunes01
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 05/09/2016

    Re: [Resolvido]Texto animado

    Mensagem  rfnunes01 em 9/2/2018, 20:16

    Ola amigo boa noite

    Tenta fazer uma pesquisa no forum

    Olha o que eu encontrei faze do uma pesquisa com a palavra saudações

    CLIQUE AQUI PARA VER O RESULTADO DA PESQUISA

    Abaixo vai estar o anexo de um exemplo que vc necessita... Very Happy

    Bons estudos!
    Anexos
    Boas vindas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 18 vez(es)


    Última edição por rfnunes01 em 9/2/2018, 20:30, editado 2 vez(es)


    .................................................................................
    Richael Fernando Nunes

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Texto animado

    Mensagem  Noobezinho em 9/2/2018, 20:24

    Experimente:

    Código:


    If time >= "04:00" And time <= "12:00" Then
      
       Me![lblSaudação].Caption = "Bom Dia !"
       Me![lblSaudação].Visible = True

    ElseIf time >= "12:01" And time <= "18:00" Then
      
       Me![lblSaudação].Caption = "Boa Tarde !"
       Me![lblSaudação].Visible = True

    ElseIf ( time >= "18:01" And time <= "23:59") or ( time >= 00:01 and time <= 03:59 ) Then
      
      Me![lblSaudação].Caption = "Boa Noite !"
       Me![lblSaudação].Visible = True

    End If

    No exemplo é usado uma Label ou rótulo, mude para o nome do teu controle.

    Teste, talvez precise de alguns ajustes.

    [ ]'s

    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 22/04/2016

    Re: [Resolvido]Texto animado

    Mensagem  dori em 10/2/2018, 00:52

    Boa noite!

    Os textos estão funcionando quanto aos horários, mas fica parado.
    Eu tentei fazer com que ele ficasse passando da direita para a esquerda mas não deu certo.

    podes complementar o código?

    muito agradecido!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Texto animado

    Mensagem  Noobezinho em 10/2/2018, 15:00

    Richael

    No exemplo que disponibilizou, faltou as  2 dlls



    Dori

    Veja se esse exemplo ajuda:

    maximoaccess.com/t22721-resolvidosobre-letreiros-e-textos-deslizantes#16481

    Copie e cole no navegador

    E veja na tua mensagem anterior, que falou em horários, não pediu ajuda para o letreiro deslizantes.

    [ ]'s

    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 22/04/2016

    Re: [Resolvido]Texto animado

    Mensagem  dori em 13/2/2018, 11:38

    Bom dia!

    Eu tentei fazer algumas adaptações no código que você me passou, usando os exemplos do fórum, mas não consegui dar movimento no texto.
    Eu gostaria que ele ficasse sempre começando do lado direito e terminando do lado esquerdo, constantemente!

    vou tentando mais um pouco por aqui...

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Texto animado

    Mensagem  Noobezinho em 13/2/2018, 13:08

    Aqui está um exemplo, que usa  a rs.OCX

    Antes de rodar o aplicativo, registre a OCX.

    Espero que ajude.


    [ ]'s

    dori
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 22/04/2016

    Re: [Resolvido]Texto animado

    Mensagem  dori em 18/2/2018, 12:55

    Ok Noobezinho!

    Tudo certo !

    Grato pelo empenho de todos.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Texto animado

    Mensagem  Noobezinho em 18/2/2018, 13:45

    Ótimo!

    Valeu o retorno!

    Boa sorte!

      Data/hora atual: 17/12/2018, 10:21