Ajouter un item à une listbox en VB

Ajouter un item à une listbox en VB - VB/VBA/VBS - Programmation

Marsh Posté le 11-04-2005 à 15:38:09    

Comment ajouter un item dans une listebox, en vb ?
Voici mon code :
 
 

Code :
  1. For i = 0 To Me.liste_classe.ListCount - 1
  2.        
  3.         If Me.liste_classe.Selected(i) = True Then
  4.         classe = Me.liste_classe.Column(0, i)
  5.         chaine = "SELECT nom_eleve, prenom_eleve FROM eleve where designation_groupe=""" & classe & """"
  6.             rst_liste.Open chaine, CurrentProject.Connection
  7.             While Not rst_liste.EOF
  8.                  items = items & rst_liste("nom_eleve" )
  9.                  rst_liste.MoveNext
  10.             Wend
  11.            
  12.             rst_liste.Close
  13.         End If
  14.            
  15.     Next
  16.     liste_eleve_gauche.RowSource = liste_eleve_gauche.RowSource & items


---------------
Legends Never Die
Reply

Marsh Posté le 11-04-2005 à 15:38:09   

Reply

Marsh Posté le 11-04-2005 à 15:39:32    

[:pingouino] As-tu au moins regardé dans la référence sur les ListBox ?

Reply

Marsh Posté le 11-04-2005 à 15:40:18    

oui mais il n'y a pas d'équivalent à "additem" en java par exemple.


---------------
Legends Never Die
Reply

Marsh Posté le 11-04-2005 à 15:41:08    

Y'a un équivalent ;)

Reply

Marsh Posté le 11-04-2005 à 15:41:44    

et et et ? :o
:)


---------------
Legends Never Die
Reply

Marsh Posté le 11-04-2005 à 15:42:46    

J'ai pas le temps de chercher, mais toi si :D

Reply

Marsh Posté le 11-04-2005 à 15:43:46    

je sais que add existe en vb.net, mais pas vb..


---------------
Legends Never Die
Reply

Marsh Posté le 11-04-2005 à 15:58:19    

Bon aller, je suis sympa. Dans l'aide, tu pourra lire :

Méthode AddItem
Ajoute un nouvel élément à la liste des valeurs affichées par le contrôle zone de liste ou zone de liste modifiable spécifié.
 
expression.AddItem(Élément, Index)
expression      Obligatoire. Expression renvoyant l'un des objets figurant dans la liste Application.
 
Élément     String obligatoire. Texte affiché pour le nouvel élément.
 
Index     Variant facultatif. Position de l'élément dans la liste. Si cet argument est omis, l'élément est ajouté en fin de liste.


 
J'ai l'impression que tu n'as pas cherché bien loin ;)


Message édité par FlorentG le 11-04-2005 à 15:58:33
Reply

Marsh Posté le 11-04-2005 à 16:20:12    

applicable aux zones de liste modifiables.
La mienne ne l'était pas.
Mais j'ai trouvé une solution :
 
définir  
Me.liste_eleve_gauche.RowSourceType = "Liste valeurs"
de cette façon permet d'ajouter chaque élément séparé par des points virgules
 
Merci quand même :o


---------------
Legends Never Die
Reply

Marsh Posté le 11-04-2005 à 17:58:05    

Non, c'est au choix, modifiable ou non :??:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed