Modification de l'interface graphique lors d'un événement

Bonjour,

J'aurais aimé avoir un renseignement sur la possibilité de modifier l'interface hta.
Je recherche à ajouter dans ma fenetre, un nouveau champ de texte lorsque l'on choisit une option particulière dans une liste déroulante (voir qu'on clique sur un bouton).

Merci pour cette précision.

Salut

Ajouter, je ne sais pas faire :aie:, mais rendre visible ou non oui, txtAjout.style.display = ""pour rendre visible, et txtAjout.style.display = "none" pour rendre invisible.
txtAjout etant l'ID du champs texte.
Dans Donner une interface à vos script VBS , HTA : Html Application tutoriel de bbil, tu trouveras des astuces pour ce genre de choses.

:salut:
Vous pouvez regarder ceci aussi formulaire pour envoyer des mails avec pièce jointe

Bonjour,

Pour le moment cela ne fonctionne pas (et un autre pb est venu se greffer...). Je joins un dessous le Sub incriminé.
Lorsque je clique sur le bouton AddComp, je rempli un tableau dont le nombre de ligne s'incrémente de 1 à chaque fois. Dans la première colonne est indiqué le numéro de ligne et dans la deuxième, une valeur récuperée d'un précédent InputBox.
Les problèmes :
- lorsque j'affiche chaque case du tableau via la dernière boucle (après ajout de la ligne n): les MsgBox affichées sont vides pour les lignes n-1, et correctes pour la ligne n ;
- je n'arrive pas à afficher chaque ligne du tableau dans ma fenetre graphique (avec actualisation à chaque nouvelle ligne ajoutée).

Pouvez vous me mettre sur la voie?Merci.

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

a = -1 b = 0 c = 0 Dim tableau(0,1)   Sub AddComp a = a + 1 c = b + 1 ReDim Preserve tableau(b,1) For i = a to a For j = 0 to 1 'indication du numéro de ligne du tableau If j=0 Then tableau(i,j) = c End If If j=1 Then tableau(i,j) = NameComp.value End If Next For i = 0 to Ubound(tableau) For j = 0 to 1 msgbox(tableau(i,j)) Next Next b = b +1 End Sub

---

Salut

Code:

---

1 2 3 4 5

Sub AddComp a = a + 1 '<************** c = b + 1 ReDim Preserve tableau(b,1) For i = a to a '<**** ???? *****

---

a étant égal à a pourquoi une boucle For ... Next ?
Tu ne boucles pas, les instruction dans For i ... Next ne s'execute qu'une fois par appel de ta Sub.

Ta boucle For j .... Next me semble inutile

Code:

---

1 2	tableau(i, 0) = c tableau(i, 1) = NameComp.Value

---

En effet, ces boucles For...Next sur les i et j sont inutile. Le prog a le même comportement sans cette boucle.

Citation:

---

Envoyé par MSDN

'Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau.

---

Donc impossible d'utiliser un tableau a 2 dimensions.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim TablIdx(), TablName() Dim a, b, c, i, j   b = 0   Sub AddComp() If b <> 0 Then b = UBound(TablIdx) + 1   ReDim Preserve TablIdx(b) ReDim Preserve TablName(b) TablIdx(b) = UBound(TablIdx) TablName(b) = NameComp.Value b = b + 1 'Provisoir pour debug For i = 0 To UBound(TablIdx) MsgBox TablIdx(i) & " / " & TablName(i) Next End Sub

---

OK merci pour l'info. Le plus simple en fait serait de passer par des fichiers textes temporaires que je viendrais completer et lire.