Remplir une listbox en vb6.0 [Résolu]

simoarij 5 Messages postés jeudi 21 décembre 2000Date d'inscription 11 juillet 2009 Dernière intervention - 2 juil. 2009 à 09:50 - Dernière réponse : hellangel777 271 Messages postés jeudi 5 février 2009Date d'inscription 26 novembre 2013 Dernière intervention
- 2 juil. 2009 à 10:04
bjr
comment remplir une listbox en vb6?
merci
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
hellangel777 271 Messages postés jeudi 5 février 2009Date d'inscription 26 novembre 2013 Dernière intervention - 2 juil. 2009 à 10:01
3
Merci
Bonjour,

Je tape F1 sur le controle et magie quand tu me tiens.... Je trouve :

AddItem, méthode, exemple
L'exemple suivant utilise la méthode AddItem pour ajouter 100 éléments dans une zone de liste. Pour tester cet exemple, collez le code dans la section déclarations d'une feuille contenant un contrôle ListBox nommé List1, appuyez sur F5 et cliquez sur la feuille.

Private Sub Form_Click ()
   Dim Entry, I, Msg   ' Déclare les variables.
   Msg =  "Cliquez sur OK pour ajouter 100 " & _
         "éléments à la zone de liste."
   MsgBox Msg   ' Affiche le message.
   For I = 1 To 100   ' Compte de 1 à 100.
      Entry = "Entry " & I   ' Crée une entrée.
      List1. AddItem  Entry   ' Ajoute l'entrée.
   Next I
   Msg  = "Cliquez sur OK pour supprimer " & _
         "toutes les autres entrées."
   MsgBox Msg   ' Affiche le message.
   For I = 1 To 50   ' Détermine comment retirer
      List1.RemoveItem I   ' tous les autres
   Next I   ' éléments.
   Msg = "Cliquez sur OK pour supprimer " & _
         "tous les éléments de la zone de liste."
   MsgBox Msg   ' Affiche le message.
   List1.Clear   ' Vide la zone de liste.
End Sub


Extrait du msdn

HellAngel777
<hr />
Les machines ne font pas d'erreurs
Heureusement nous sommes humains

Merci hellangel777 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 122 internautes ce mois-ci

Commenter la réponse de hellangel777
Meilleure réponse
hellangel777 271 Messages postés jeudi 5 février 2009Date d'inscription 26 novembre 2013 Dernière intervention - 2 juil. 2009 à 10:04
3
Merci
AddItem, méthode, exemple

L'exemple suivant utilise la méthode AddItem pour ajouter 100 éléments dans une zone de liste. Pour tester cet exemple, collez le code dans la section déclarations d'une feuille contenant un contrôle ListBox nommé List1, appuyez sur F5 et cliquez sur la feuille.



Private Sub Form_Click ()    
Dim Entry, I, Msg   
' Déclare les variables.    
   Msg =  "Cliquez sur OK pour ajouter 100 " &amp; _          
   "éléments à la zone de liste."    
   MsgBox Msg   
   ' Affiche le message.    
   For I = 1 To 100   
   ' Compte de 1 à 100.       
      Entry = "Entry " &amp; I   
      ' Crée une entrée.       
      List1. AddItem  Entry   
      ' Ajoute l'entrée.    
   Next I    
   Msg  = "Cliquez sur OK pour supprimer " &amp; _          
   "toutes les autres entrées."    
   MsgBox Msg   
   ' Affiche le message.    
   For I = 1 To 50   
      ' Détermine comment retirer       
      List1.RemoveItem I   
      ' tous les autres    
   Next I   
   ' éléments.    
   Msg = "Cliquez sur OK pour supprimer " &amp; _          
   "tous les éléments de la zone de liste."    
   MsgBox Msg   
   ' Affiche le message.    
   List1.Clear   
   ' Vide la zone de liste. 
End Sub 




Avec la mise en forme

HellAngel777
<hr />
Les machines ne font pas d'erreurs
Heureusement nous sommes humains

Merci hellangel777 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 122 internautes ce mois-ci

Commenter la réponse de hellangel777

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.