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

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