FORUM WINDEV

Salut à tous les WinDevMan

J'ai un soucis avec un champ sélecteur.
Je voudrais initialiser mon selecteur avec un nombre d'option qui peut varier au cours du temps.
En effet ces options sont dans un fichier. Je lit ce fichier et par programme, je voudrer ajouter ces options dans mon selecteur et que mon selecteur
s'agrandisse automatiquement en fonction du nombre d'option qu'on lui a rentré.

Quelles sont les lignes d'instruction a rentrer SVP

Merci de votre aide

Tu ne peux pas ajouter une option par programmation, mais tu peux contourner le problème ainsi...
Tu crée un sélecteur par exmple de 50 options sans aucun libellé d'option. (Entré, entrée, entrée,.....à vide)
Ensuite tu crée une combo liste que tu nomme "COMBO_Sélecteur" dans la même fenêtre. Par la suite tu pourras la rendre invisible.
La combo tu la remplie manuellement à la création ou par programmation avec les données d'un fichier ou liée à un fichier.

Dans le code d'initialisation du sélecteur, tu place le code ci-dessous...

Code: Tout sélectionner

i est un entier
nOption est un entier = ListeOccurrence(COMBO_Sélecteur)
POUR i=1 A 50 //On part depuis le 1ème sélecteur au dernier
   //On affiche que les sélecteurs dont le libellé est le contenu de COMBO_Sélecteur
   SI i <= nOption ALORS
      //On rend visible le sélecteur
      SEL_Sélecteur1[i]..Visible = Vrai
      //On donne au libellé le contenu de la combo COMBO_Sélecteur
      SEL_Sélecteur1[i]..Libellé = COMBO_Sélecteur[i]..ValeurAffichée
   SINON
      //Le sélecteur n'est pas visible si il n'y a plus de contenu dans COMBO_Sélecteur
      SEL_Sélecteur1[i]..Visible = Faux
   FIN
FIN

Au lancement de la fenêtre le sélecteur sera affiché selon le nombre de ligne contenu dans la COMBO_Sélecteur.
Les options supplémentaires ne seront pas affichées mais réservées et affichées selon le nombre de ligne de la COMBO_Sélecteur. Plus tu rempli la combo plus tu affiche de sélecteur.
Le maximum autorisé et de 256 options.

J'espère que tu as compris le système.

Merci de ton aide samifred mais c'est un peu ce que j'ai fait :

Code: Tout sélectionner

HLitPremier(EXPRESS_Type_Matrice,IDEXPRESS_Type_Matrice)
i est un entier = 1
//tantque pas HEnDehors(EXPRESS_Type_Matrice)
POUR i = 1 A Dimension(EXPRESS_Type_Matrice.Type_Matrice)
   MoiMême[i]..Libellé = EXPRESS_Type_Matrice.Type_Matrice[i]
   SI EXPRESS_Type_Matrice.Type_Matrice[i] = "" // fin de tableau ALORS
      POUR i = i  A 12
         MoiMême[i]..Visible = Faux
      FIN
      SORTIR
   FIN
FIN
//FIN
POUR i = i  A Occurrence(MoiMême)
   MoiMême[i]..Visible = Faux
FIN
i = Occurrence(MoiMême)

Type_Mat = MoiMême

Donc j'utilise pas de combo mais c'est presque pareil.
cependant le cadre de l'ensemble des sélecteurs reste constant quelque soit le nb de selecteur dans le champ.
Pour l'exemple pour 12 selecteur, j'en ai six qui sont invisible et le cadre reste de la meme taille

Voici la photo





Tu vois là j'ai pas de soluce !

Si t'as une idée ?

Bonjour!

J'ai le même problème que toi! tu as trouvé une solution?

ben non c'est pourquoi j'ai choisi la solution du dessus