valores de uma matriz (array) de botão tipo radio?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: valores de uma matriz (array) de botão tipo radio?

vilmarbr

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 12/11/2008 14:19 hs

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

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

PH1959

SÃO JOSÉ DOS CAMPOS
SP - BRASIL

ENUNCIADA !

Postada em 12/11/2008 16:27 hs

Vilmar explica melhor...

vc quer efetuar alguma ação qdo clica ....é isso?

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 12/11/2008 18:40 hs

seria algo mais ou menos assim

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
MsgBox "botão 01 pressionado"
Case 1
MsgBox "botão 02 pressionado"
End Select
End Sub

TÓPICO EDITADO

vilmarbr

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 12/11/2008 21:14 hs

pessoal isto ae eh VBScript hein :)

NO VB6 e VB.net isto é mamão com açucar de fazer.

ph1959, sim eu quero executar ações qdo 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, vc chama o evento dentro de cada botão e depois verifica qual index foi clicado do elemento.

vlw ;)

vilmarbr

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/11/2008 20:47 hs

Tanto no VB 6 como no VBS nao pode ter () no nome de um método que não passa valor algum, ou seja, não usa parâmetro. Se fosse editor do Vb 6, automaticamente ele tiraria os () de método (Sub ou Function) sem parâmetro. Mas como era VBS no bloco de notas, eu tive de descobrir isto na marra mesmo

SOLUÇÃO:

<html>

<head>

<title>Trocar cor de fundo com VBS</title>

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>

TÓPICO EDITADO

Página(s): 1/1