HTA (VBS) ListBox dynamique

Signaler
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
 Bonsoir le Forum,


Je crée une Listbox dynamique à partir d'un ArrayList.
    ' Initialisation objet ArrayList
    Set MyArrayList = CreateObject("System.Collections.ArrayList")

    ' Récupération nom du client
    For i=2 To UBound(arrConfigLine)
        strClient = Split(arrConfigLine(i), Chr(58))(0)
        If InStr(1, strClient, "SAVEMUTU") = 0 Then MyArrayList.Add Trim(strClient)
    Next

    ' Tri de la collection ArrayList
    MyArrayList.Sort
    MyArrayList.insert 0, "Choix du client VTOM" & Space(8)

    ' Création ListBox dynamique
    For i=0 To MyArrayList.Count-1
        Set objOption = Document.CreateElement("OPTION")
        objOption.Text = MyArrayList(i)
objOption.Value = MyArrayList(i)             
lstClient.Add(objOption)
    Next


Puis, je parcours la ListBox.

For i = 1 to lstClient.Options.Length - 1

msgbox  lstClient.Options(i).Value

Next


Question:
Lors du parcours de la ListBox, est-il possible de rendre non selectionnable certains items ?

jean-marc

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,
Non directement, mais rien ne t'empêche :
- d'utiliser (au click de la listox) un select case, de sorte à ce que si tel ou tel autre index et sélectionné, alors ===>> listindex = -1


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Merci Jacques pour ta réponse,

Je réitère mon souci.

Dans la ListBox, j'ai
client 1
client 2
client 3
....

Avant d'afficher cette ListBox, je contrôle que tous les fichiers, pour chaque client, existent.
Si les fichiers/client n'existent pas, je souhaiterais rendre "cliquable" seulement les clients dont l'appli pourrait traiter.

Selon ton explication, je devrais donc afficher l'incident dans une textarea (ou label), et repositionner l'index de la ListBox à 0.

Ou créer deux ListBox, une avec les clients répondant à tous les critères, et l'autre en disabled.

C'est dommage !!!




jean-marc