Comment ajouter des éléments par le code dans la propriété liste d'une combobox

Question

Je voudrai ajouter des éléments dans la propriété liste d'une combobox , par le code.
C'est à dire qu'actuellement j'ai créé une combobox qui est vide avec un bouton "nouveau", quand je clique sur nouveau une nouvelle fenêtre apparaît avec une zone de saisie, une fois le texte saisi par la méthode additem j'alimente la combobox, malheureusement dés que je relance le programme , les entrées que j'ai fait ultérieurement sont effacées et ma combo est vide!
Il est vrai qu'on peut rentrer une liste manuellement dans la fenêtre propriété , propriété liste mais peux arriver au même résultat par le code?

cs_frop01 · Answer

combo1.additem "Exemple1"  'ajout d'un item

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

cs_frop01 · Answer

- pour effacer une ligne
Combo1.RemoveItem (0) '0  cest la première ligne de liste

- pour vider complétment :
combo1.clear

-pour connaitre le nombre des lignes
resultat= Combo1.ListCount

koa d'autres ?? humm

si tu ne veux pas que l'utilisateur puisse modifier le texte ou saisir tu mets la proprièté Style Dropdown List (=2)

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

cs_CanisLupus · Answer

Salut, domsel,
C un peu normal ton prob, lors de l'exécution de ton prog, tu peux ajouter tout ce que tu veux dans ta combo mais si tu ne sauvegardes pas le contenu de cette combo ds un fichier ou une table de base de données de manière à réalimenter la combo, tout est perdu quand tu quittes le prog.

Cordialement

CanisLupus

lilington · Answer

bien voilà ce que je fait et sa marche :

donc sur ta fenetre d'ajout il ya un boutton valider la tu fais par explemple

Frm_pricpal.CB_box.list(k)= ajout.text

avec k =  Cb_box.listcount
frm_Principal  la feuille sur laquelle se trouve ton Cbox.

comme l'a dit  Canislupus   tu peux le sauvegarder dans un fichier puis charger ta liste à la lecture exple:

open "c:\list.txt" for binary as #1

k =0

do
   element=""
   do
      get #1, ,e
      if e<> 13  then  element=element+chr(e) else exit do
      if eof(1)  then exit do
   loop
  
   get #1, ,e     'pour sauter le caractère 10 retour chariot   frm_Principal.CB_box.list(k)=element
   k=k+1
   if eof(1)  then exit do

loop until not EOF(1)

close #1

Comment ajouter des éléments par le code dans la propriété liste d'une combobox

4 réponses

Discussions similaires