Création formulaire par programmation en VBScript/HTA

Signaler
Messages postés
211
Date d'inscription
lundi 31 mars 2003
Statut
Membre
Dernière intervention
11 juin 2007
-
Messages postés
3
Date d'inscription
lundi 2 août 2004
Statut
Membre
Dernière intervention
31 mai 2008
-
Bonjour,


je souhaiterai avoir des indications pour pouvoir créer un formulaire
dans une page hta en fonction d'un contrôle dudit formulaire.

Je m'explique !!!

Sur un formulaire écrit directement dans la section body de ma page je dispose de 2 boutons radio.

Lorsque l'utilisateur clique sur un des 2 boutons je souhaite que cela
affiche une zone liste multi sélection à côté du bouton radio.

Déjà ça je ne sais pas trop comment m'y prendre.

Je suppose qu'il s'agit de l'évènement onclick du bouton radio mais je ne sais pas trop comment l'implémenter.


Histoire de compliquer la chose, les éléments contenus dans la liste
multi sélection doivent être rentrés par programmation car découlent du
résultat d'une requête WMI ==> je suppose que cette liste doit être
créée dans un vbsrcipt et non dans le body.


Je m'y connais en développement vb, windev mais je débute en html et donc hta.


Pour résumer, comment en vbscript afficher des élements de formulaire
(dans mon body j'ai déjà créé une zone span qui accueillera cette
liste).


Merci à tous pour vos réponses / indications

Guich77

1 réponse

Messages postés
3
Date d'inscription
lundi 2 août 2004
Statut
Membre
Dernière intervention
31 mai 2008

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é.