Como eu faço para pegar (manipular) os valores de uma matriz (array) d

vilmarbr · Novembro 13, 2008

Como eu faço para pegar (manipular) os valores de uma matriz (array) de botão tipo "radio" usando VBScript?

eu quero executar ações quando usuário clicar no optionbutton do HTML (input type=radio), ou seja, numa SUB só fazer toda minha manipulação.

eu só consegui fazer agora sem criar a matriz de botoes radio, ou seja, cada botao com um nome:

optB1, optB2 ...

eu queria: optX(0), optX(1)... ou seja, manipular pelo index da matriz de controles (elementos HTML) usando VBScript.

com javascript tb consegui fazer na boa, porém lá a forma de programar é diferente, você chama o evento dentro de cada botão e depois verifica qual index foi clicado do elemento.

tentei conforme abaixo, mas não funciona :(

Sub optCor_OnClick(index as integer)

msgbox "oi"

End Sub

<html>
<head>
<title>Pegar valores de botão radio e mudar cor de elementos</title>

<script language="VBScript">
     Sub btnTeste_OnClick()
    msgbox "oi"
      End Sub 


     Sub optCor_OnClick(index as integer)
    msgbox "oi"
     End Sub 

</script>

</head>

<body>
<p>
<fieldset id="fldCores" title="ol aolal lllll" style="width: 300px;">
<legend align="left">Cores</legend>
<table id="tabCores" width="300" border="0" bgcolor="#DCDCDC">
    <tr>
      <td width="70%" align="left">Azul</td>
      <td width="30%" align="left"><input type="radio" name="optCor" value="#0000FF"></td>
   </tr>
    <tr>
      <td width="70%" align="left">Amarelo</td>
      <td width="30%" align="left"><input type="radio" name="optCor" value="#FFFF00"></td>
   </tr>
    <tr>
      <td width="70%" align="left">Verde</td>
      <td width="30%" align="left"><input type="radio" name="optCor" checked value="#00FF00"></td>
   </tr>
    <tr>
      <td width="70%" align="left">Vermelho</td>
      <td width="30%" align="left"><input type="radio" name="optCor" value="#FF0000"></td>
   </tr>
</table>
</fieldset>
<p><input type="text" name="txtTeste" value="Texto xx x  x x x x x " style="color:white; background-color=black;">
<p><input type="button" name="btnTeste" value="Texto xx x  x x x x x " style="color:white; background-color=black;">
</body>

</html>

------

[]´s

VILMARBR

Rafael Spilki · Novembro 16, 2008

Não sei se entendi direito... mas em vbscript seria assim:

'nome do "radio" = teste
'valores desse radio = 1, 2, 3 e assim por diante
teste = request.form ("teste")

if teste = "1" then
call sub1()
elseif teste = "2" then
call sub2()
end if

sub1
'...
end sub

sub2
'...
end sub

É isso que você queria?

[]'s Rafael Spilki

vilmarbr · Novembro 18, 2008

Bem, o que você falou tb. daria certo, mas era isto que eu tinha em mente conforme abaixo, o qual descobri após muita análise e raciocínio lógico :D !

< : html>
< : head>
< : meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
< : title>Trocar cor de fundo com VBS < : /title>
< : script language="vbscript">
Sub TrocarCores
If optCor(0).checked = true then
document.bgcolor = optCor(0).value
ElseIf optCor(1).checked = true then
document.bgcolor = optCor(1).value
ElseIf optCor(2).checked = true then
document.bgcolor = optCor(2).value
End If
End Sub
< : /script>
< : /head>
< : body>
< : p>< : input type="radio" value="#FF0000" checked name="optCor" onclick="vbscript:TrocarCores">Vermelho
< : p>< : input type="radio" value="#00FF00" name="optCor" onclick="vbscript:TrocarCores">Verde
< : p>< : input type="radio" value="#0000FF" name="optCor" onclick="vbscript:TrocarCores">Azul
< : /body>
< : /html>

Editado Novembro 18, 2008 por bareta

vilmarbr · Novembro 18, 2008

Bem, quem quiser, eu posso mandar o script pronto em txt, html, zip, enfim, qualquer. formato com extensão modificada para o leitor de e-mail ou fórum não bloquear a sintaxe :o :( :blush:

Rafael Spilki · Novembro 18, 2008

Deu certo aí Vilmar? Se sim, posta como ficou o seu script, pode ajudar algumas pessoas e poderemos marcar esse tópico como resolvido!

[]'s Rafael Spilki

Entrar

Como eu faço para pegar (manipular) os valores de uma matriz (array) d

Pergunta

vilmarbr

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

vilmarbr

Link para o comentário

Compartilhar em outros sites

vilmarbr

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades