Impossible de récuperer toutes les variables.

**spawn974** · 26/06/2013, 22h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

**ProgElecT** · 26/06/2013, 23h55

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

**hackoofr** · 27/06/2013, 11h53

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

**spawn974** · 27/06/2013, 17h44

Bonjour à tous,

Effectivement avec du recul : MerKi

Spawn974

Impossible de récuperer toutes les variables.

VBScript

Discussions similaires

Partager

Partager