cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
19 déc. 2012 à 18:52
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
19 déc. 2012 à 19:47
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 ?
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 19 déc. 2012 à 19:29
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.
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 19 déc. 2012 à 19:47
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.