none
Definir cor de forma automática por arquivo de parâmetros em um hta. RRS feed

  • Pergunta

  • Ba galera, alguém consegue me dar uma força, montei o HTA abaixo que fica passando um letreiro, que a cada 30 segundos o mesmo da um refresh na tela.

    A mensagem que este letreiro apresenta, vem de um arquivo de texto, ou seja quando o refresh acontece caso a mensagem do txt seja alterada a mesma é alterada no display do HTA, o que tenho de problema é a seguinte, dependendo do informativo, é necessário mudar a cor, porem o mesmo processo usado para a mensagem com o txt, não funciona para a questão da cor, então eu pergunto para os amigos do fórum tche, como mudar a cor de um texto apresentado de forma automática a partir de um arquivo de parâmetros.


    obrigado galera.


    Codigo.

    <HTML>
    <title>
    .:: INFORMATIVO ::.
    </title>
    <HTA:APPLICATION>
    
    <script language="Javascript">
        window.moveTo(0, 0);
        window.resizeTo(1025, 130);
    </script>
    
    <script language="VBScript">
    
    Sub Window_OnLoad
    strFile = "\\servidor\compartilhamento\msg.txt"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    'Abre Arquivo
    Set objTextFile = objFSO.opentextfile(strFile,1)
        strparp = objTextFile.Readline
        objTextFile.Close
    
    	Appmsg.InnerHTML = strparp
      
    End Sub
    
    </script>
    
    <BODY SCROLL="no" top=0 width=100>
    <table width=1025 border="0" cellspacing="0" cellpadding="0">
    </a>
    <td bgcolor=white valign=middle width=100% height=100%>
    <marquee direction="left" width="1025" scrollamount="11" scrolldelay="1" id="letreiro">
    <DIV align="CENTER">
    
    <font face=arial size=120 color="#000099">
    
    <P><SPAN ID="Appmsg"></SPAN>
    
    </DIV>
    </marquee></a>
    </td>
    </a>
    </tr>
    </table>
    
    <meta http-equiv="refresh" content="30" > 
    
    </BODY>
    </HTML>

    sexta-feira, 5 de julho de 2013 13:17

Respostas

  • Opa Marcelo, você pode usar o mesmo conceitoda leitura do arquivo, é so adicionar um arquivo com um nome de cor ou seu valor hexadecimal

    <HTML>
    <title>
    .:: INFORMATIVO ::.
    </title>
    <HTA:APPLICATION>
    
    <script language="Javascript">
        window.moveTo(0, 0);
        window.resizeTo(1025, 130);
    </script>
    
    <script language="VBScript">
    
    Sub Window_OnLoad
    strFile = "E:\lista.txt"
    strConfig = "E:\cor.txt"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Abre Arquivo de cor
    Set objTextFile = objFSO.opentextfile(strConfig,1)
        strCor = objTextFile.Readline
        objTextFile.Close
    'Abre Arquivo
    Set objTextFile = objFSO.opentextfile(strFile,1)
        strparp = objTextFile.Readline
        objTextFile.Close
    
    	Appmsg.InnerHTML = "<font color ="""&strCor& """ >"& strparp
    
    End Sub
    
    </script>
    
    <BODY SCROLL="no" top=0 width=100>
    <table width=1025 border="0" cellspacing="0" cellpadding="0">
    </a>
    <td bgcolor=white valign=middle width=100% height=100%>
    <marquee direction="left" width="1025" scrollamount="11" scrolldelay="1" id="letreiro">
    <DIV align="CENTER">
    
    <font face=arial size=120 color="#000099">
    
    <P><SPAN ID="Appmsg"></SPAN>
    
    </DIV>
    </marquee></a>
    </td>
    </a>
    </tr>
    </table>
    
    <meta http-equiv="refresh" content="30" >
    
    </BODY>
    </HTML>


    att, Aparecido Deveza

    • Marcado como Resposta Marcelo TI sexta-feira, 5 de julho de 2013 15:40
    sexta-feira, 5 de julho de 2013 15:22

Todas as Respostas

  • Opa Marcelo, você pode usar o mesmo conceitoda leitura do arquivo, é so adicionar um arquivo com um nome de cor ou seu valor hexadecimal

    <HTML>
    <title>
    .:: INFORMATIVO ::.
    </title>
    <HTA:APPLICATION>
    
    <script language="Javascript">
        window.moveTo(0, 0);
        window.resizeTo(1025, 130);
    </script>
    
    <script language="VBScript">
    
    Sub Window_OnLoad
    strFile = "E:\lista.txt"
    strConfig = "E:\cor.txt"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Abre Arquivo de cor
    Set objTextFile = objFSO.opentextfile(strConfig,1)
        strCor = objTextFile.Readline
        objTextFile.Close
    'Abre Arquivo
    Set objTextFile = objFSO.opentextfile(strFile,1)
        strparp = objTextFile.Readline
        objTextFile.Close
    
    	Appmsg.InnerHTML = "<font color ="""&strCor& """ >"& strparp
    
    End Sub
    
    </script>
    
    <BODY SCROLL="no" top=0 width=100>
    <table width=1025 border="0" cellspacing="0" cellpadding="0">
    </a>
    <td bgcolor=white valign=middle width=100% height=100%>
    <marquee direction="left" width="1025" scrollamount="11" scrolldelay="1" id="letreiro">
    <DIV align="CENTER">
    
    <font face=arial size=120 color="#000099">
    
    <P><SPAN ID="Appmsg"></SPAN>
    
    </DIV>
    </marquee></a>
    </td>
    </a>
    </tr>
    </table>
    
    <meta http-equiv="refresh" content="30" >
    
    </BODY>
    </HTML>


    att, Aparecido Deveza

    • Marcado como Resposta Marcelo TI sexta-feira, 5 de julho de 2013 15:40
    sexta-feira, 5 de julho de 2013 15:22
  • Ba Aparecido,

    muito obrigado tche, era isto que eu necessitava.

    sexta-feira, 5 de julho de 2013 15:40