Impossible de récuperer toutes les variables.

Version imprimable

Bonsoir à tous,

Est il possible en HTA + vbs de récupérer sur une seul action (OnClick)
les valeurs des checkbox, input text, textarea...
Car j'ai essayé mais cela ne récupère que mes premiers champs pas le reste.
et on retombe sur la fameuse erreur objet requis...

Avez vous une idée ?
(Je suis en phase de test et j'ai récupéré le code de bbil)
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
<HTA:APPLICATION
      APPLICATION="htaBouton"
 
 > 
 </HEAD>
 <script language="VBScript">
      Sub tstBouton
		Dim stTransport, oTxtNom
			For i = 0 to chkTransport.length - 1
				if chkTransport(i).checked then
					stTransport = stTransport & chkTransport(i).value & ", "
 
				end if
			next
			<!--
			document.write "<H1>Résultats 1 : </H1>" & stTransport & "<br>."
			-->
 
		MsgBox "Action sur le bouton",vbExclamation,"interface-hta"
		oTxtNom = txtNom.value
		MsgBox "Valeur est : " & oTxtNom
 
		<!--
		document.write "<H1>Résultats 2 : </H1>" & oTxtNom
		-->
 
	End Sub
 </SCRIPT>
 <BODY>
Saisir votre nom : <INPUT TYPE="text" NAME="txtNom" SIZE="20" MAXLENGTH="30" VALUE="La valeur de mon champs">
<BR>
Vos moyens de transport préférés ? : <BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="Vélo" CHECKED>Vélo<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="Voiture"CHECKED>Voiture<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="Marche">Marche a pied<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="train" >Train<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="bus">Bus
<BR>
<INPUT type="button" value="Action bouton" onClick="tstBouton">
 
</body>

27/06/2013, 00h55
ProgElecT

Salut

ton premier document.write modifie et supprime de ta page tout les éléments, ton INPUT TYPE="text" et tes INPUT TYPE="checkbox" n'existent plus lors de la ligne de commande oTxtNom = txtNom.value

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<HTA:APPLICATION
      APPLICATION="htaBouton"
 > 
 </HEAD>
 <script language="VBScript">
      Sub tstBouton
        Dim stTransport,oTxtNom
            For i = 0 to chkTransport.length - 1
                if chkTransport(i).checked then
                    stTransport = stTransport & chkTransport(i).value & ", "
 
                end if
            Next
            oTxtNom = txtNom.value
            MsgBox "Action sur le bouton" & vbCr & "Résultat1 : "& vbCr &"Votre Nom est : " & oTxtNom & vbCr & "Résultats 2 : " & stTransport,vbExclamation,"interface-hta"
            <!--
            document.write "<H1>Résultats 1 :</H1><br> Votre Nom est :  "& oTxtNom &""
            document.write "<H1>Résultats 2 : </H1>" & stTransport & "<br>."
            -->
    End Sub
 </SCRIPT>
 <BODY>
Saisir votre nom : <INPUT TYPE="text" NAME="txtNom" ID="txtNom" SIZE="20" MAXLENGTH="30" VALUE="spawn974">
<BR>
Vos moyens de transport préférés ? : <BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="Vélo" CHECKED>Vélo<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="Voiture"CHECKED>Voiture<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="Marche">Marche a pied<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="train" >Train<BR>
<INPUT TYPE="checkbox" NAME="chkTransport" VALUE="bus">Bus
<BR>
<INPUT type="button" value="Action bouton" onClick="tstBouton">
</body>

27/06/2013, 18h44
spawn974

Bonjour à tous,

Effectivement avec du recul : MerKi ;)

Spawn974 :ccool: