none
HTA Box alimenta outro Box RRS feed

  • Pergunta

  • Ba galera

    Bom dia.

    Alguem consegue compartilhar um hta tche aonde exista dois ou mais box(select name) de escolha, aonde o usuário escolha uma opção no box 1 e dependendo da escolha ele vai gerar uma lista de opções no box 2 e após a escolha outra lista para o box 3 tche.

    obrigado galera.

    quarta-feira, 19 de junho de 2013 14:34

Respostas

  • Marcelo,

    Isto?

    <script language=vbscript>
    	Function updatedrop()
    		if data.server.value = "1" then
    			prt.innerHTML="Server 1 Printer: <select name=printer><option>printer1</option><option>printer2</option></select>"
    		else
    			prt.innerHTML="Server 2 Printer: <select name=printer><option>printer3</option><option>printer4</option></select>"
    		end if
    	end function
    </script>
    
    <html>
    	<body onload=vbscript:updatedrop()>
    		<form name=data>
    			<select onchange=vbscript:updatedrop() name=server>
    				<option value='1'>print-server-1</option>
    				<option value='2'>print-server-2</option>
    			</select>
    			<BR>
    <div id=prt></div>

    Veja este link

    updating dynamic select menu in hta without submitting form

    http://www.tek-tips.com/viewthread.cfm?qid=747785


    Fábio de Paula Junior

    • Marcado como Resposta Marcelo TI domingo, 30 de junho de 2013 03:50
    quarta-feira, 19 de junho de 2013 17:11
    Moderador
  • Boa noite Marcelo,

    veja se isso te ajuda...

    Aproveitei o cod do Fábio, acrescentei um Select case....

    Acredito que seja isso que você queria fazer


    <script language="VBScript" type="text/vbscript">
    Sub escolha
        Select Case document.all.printer.value
            Case "pr1"
                MSGBOX "Printer Server 1: printer 1"
            Case "pr2"
                MSGBOX "Printer Server 1: printer 2"
            Case "pr3"
                MSGBOX "Printer Server 2: printer 1"
            Case "pr4"
                MSGBOX "Printer Server 2: printer 2"
        End Select
    End Sub

    Function updatedrop()
        Select Case data.server.value
            case "1"
                prt.innerHTML = "Server 1 Printer: <select name=""printer"" onchange=""escolha()"">"&_
                            "<option value = ""limpa"">Escolha  a Impressora</option>"&_
                            "<option value=""pr1"">printer1</option>"&_
                            "<option value=""pr2"">printer2</option></select>"
            case "2"
                prt.innerHTML = "Server 2 Printer: <select name=""printer"" onchange=""escolha()"">"&_
                            "<option value = ""limpa"">Escolha a Impressora</option>"&_
                            "<option value=""pr3"">printer1</option>"&_
                            "<option value=""pr4"">printer2</option></select>"
            case "limpa"
                prt.innerHTML = ""
        End Select
    End Function
    </script>

    <html>
    <body>
        <form name=data>
        <select onchange=vbscript:updatedrop() name=server>
            <option  value='limpa'> - Escolha o Print Server -</option>
            <option value='1'>print-server-1</option>
            <option value='2'>print-server-2</option>
        </select>
        <br>
    <div id=prt></div>



    att, Aparecido Deveza


    • Editado Aparecido Deveza domingo, 30 de junho de 2013 02:39 correção cod
    • Marcado como Resposta Marcelo TI domingo, 30 de junho de 2013 03:50
    domingo, 30 de junho de 2013 02:29

Todas as Respostas

  • Marcelo,

    Isto?

    <script language=vbscript>
    	Function updatedrop()
    		if data.server.value = "1" then
    			prt.innerHTML="Server 1 Printer: <select name=printer><option>printer1</option><option>printer2</option></select>"
    		else
    			prt.innerHTML="Server 2 Printer: <select name=printer><option>printer3</option><option>printer4</option></select>"
    		end if
    	end function
    </script>
    
    <html>
    	<body onload=vbscript:updatedrop()>
    		<form name=data>
    			<select onchange=vbscript:updatedrop() name=server>
    				<option value='1'>print-server-1</option>
    				<option value='2'>print-server-2</option>
    			</select>
    			<BR>
    <div id=prt></div>

    Veja este link

    updating dynamic select menu in hta without submitting form

    http://www.tek-tips.com/viewthread.cfm?qid=747785


    Fábio de Paula Junior

    • Marcado como Resposta Marcelo TI domingo, 30 de junho de 2013 03:50
    quarta-feira, 19 de junho de 2013 17:11
    Moderador
  • Fabião

    Ba tche é isto mais como que eu faço para quando o usuário escolha o printer1 ou o printer4 tche ele execute uma sub correspondente ao 1 ou ao 4 tche.

    obrigado mais uma vez.

    quarta-feira, 19 de junho de 2013 17:24
  • Marcelo,

    Não entendo de Scripts html, mas acho que você vai ter que criar alguma rotina de evento para aquele segundo box, e dentro desta rotina você testa o valor atual dele e toma suas decisões.


    Fábio de Paula Junior


    quarta-feira, 19 de junho de 2013 17:33
    Moderador
  • Ba valeu pela força Fabião to tentando mas sem sucesso tche, vamos ver se algum amigo aqui do fórum consegue ajudar tche.

    obrigadão.

    quarta-feira, 19 de junho de 2013 19:40
  • Bom dia galera

    Ba alguém conhece, alguém consegue compartilhar algo para ajudar, obrigado tche.

    quinta-feira, 20 de junho de 2013 12:48
  • Marcelo,

    Você sabe como criar eventos para um objeto, o box?



    Fábio de Paula Junior

    quinta-feira, 20 de junho de 2013 13:28
    Moderador
  • Ba Fabião bom dia..

    Ai que esta o problema desta forma eu não sei fazer tche, eu sei fazer com input type="radio" ai vai ficar bolinhas de escolha na tela, e o tratamento de execução é por Sub's com definições de If e Else tche, e tentei aplicar a este exemplo que vc passou que vai de encontro com a necessidade tche mais não rola.

    sexta-feira, 21 de junho de 2013 11:07
  • Boa noite Marcelo,

    veja se isso te ajuda...

    Aproveitei o cod do Fábio, acrescentei um Select case....

    Acredito que seja isso que você queria fazer


    <script language="VBScript" type="text/vbscript">
    Sub escolha
        Select Case document.all.printer.value
            Case "pr1"
                MSGBOX "Printer Server 1: printer 1"
            Case "pr2"
                MSGBOX "Printer Server 1: printer 2"
            Case "pr3"
                MSGBOX "Printer Server 2: printer 1"
            Case "pr4"
                MSGBOX "Printer Server 2: printer 2"
        End Select
    End Sub

    Function updatedrop()
        Select Case data.server.value
            case "1"
                prt.innerHTML = "Server 1 Printer: <select name=""printer"" onchange=""escolha()"">"&_
                            "<option value = ""limpa"">Escolha  a Impressora</option>"&_
                            "<option value=""pr1"">printer1</option>"&_
                            "<option value=""pr2"">printer2</option></select>"
            case "2"
                prt.innerHTML = "Server 2 Printer: <select name=""printer"" onchange=""escolha()"">"&_
                            "<option value = ""limpa"">Escolha a Impressora</option>"&_
                            "<option value=""pr3"">printer1</option>"&_
                            "<option value=""pr4"">printer2</option></select>"
            case "limpa"
                prt.innerHTML = ""
        End Select
    End Function
    </script>

    <html>
    <body>
        <form name=data>
        <select onchange=vbscript:updatedrop() name=server>
            <option  value='limpa'> - Escolha o Print Server -</option>
            <option value='1'>print-server-1</option>
            <option value='2'>print-server-2</option>
        </select>
        <br>
    <div id=prt></div>



    att, Aparecido Deveza


    • Editado Aparecido Deveza domingo, 30 de junho de 2013 02:39 correção cod
    • Marcado como Resposta Marcelo TI domingo, 30 de junho de 2013 03:50
    domingo, 30 de junho de 2013 02:29
  • Ba obrigado Aparecido pelo complemento tche, e Fabião obrigado pela força tb tche, vc`s dois são trilegais tche.

    domingo, 30 de junho de 2013 03:51