Création formulaire par programmation en VBScript/HTA
gandalflegris007
Messages postés
211
Date d'inscription
lundi 31 mars 2003
Statut
Membre
Dernière intervention
11 juin 2007
-
11 juin 2007 à 17:33
VanSnaeskerke Messages postés 3 Date d'inscription lundi 2 août 2004 Statut Membre Dernière intervention 31 mai 2008 - 18 juin 2007 à 10:52
VanSnaeskerke Messages postés 3 Date d'inscription lundi 2 août 2004 Statut Membre Dernière intervention 31 mai 2008 - 18 juin 2007 à 10:52
1 réponse
VanSnaeskerke
Messages postés
3
Date d'inscription
lundi 2 août 2004
Statut
Membre
Dernière intervention
31 mai 2008
18 juin 2007 à 10:52
18 juin 2007 à 10:52
Une solution est de créer la liste dans un div caché.
Puis lorsque l'on clique sur le bouton, la liste est clonée et insérée dans le span prévu à cet effet.
Voici le schéma :
1. Le div caché :
<select size= "1" name="nom_de_la_liste">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
2. Le formulaire avec son span prévu :
<form name ="Formulaire" id="Formulaire">
Cliquer sur le bouton pour afficher la liste
1
2
3
</form>
3. Le script qui clone et insère :
<script id="script_1" language="VBScript" type="text/vbscript">
Sub B0_OnClick
Set modelo = Document.All.modele
Set mon_div = modelo.firstChild
Set monClone = mon_div.cloneNode(true)
Set maZone = Document.All.lazone
maZone.appendChild(monClone)
End Sub
</script>
Cela ne répond qu'à votre première question. Désolé.
Puis lorsque l'on clique sur le bouton, la liste est clonée et insérée dans le span prévu à cet effet.
Voici le schéma :
1. Le div caché :
<select size= "1" name="nom_de_la_liste">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
2. Le formulaire avec son span prévu :
<form name ="Formulaire" id="Formulaire">
Cliquer sur le bouton pour afficher la liste
1
2
3
</form>
3. Le script qui clone et insère :
<script id="script_1" language="VBScript" type="text/vbscript">
Sub B0_OnClick
Set modelo = Document.All.modele
Set mon_div = modelo.firstChild
Set monClone = mon_div.cloneNode(true)
Set maZone = Document.All.lazone
maZone.appendChild(monClone)
End Sub
</script>
Cela ne répond qu'à votre première question. Désolé.
