VB.Net Remplir un Tableau à partir d'élément sélectionnés dans un ListBox [Résolu]

cs_MagDix 532 Messages postés lundi 5 juin 2006Date d'inscription 6 octobre 2012 Dernière intervention - 19 août 2008 à 20:21 - Dernière réponse : dedenet2 372 Messages postés vendredi 27 juillet 2007Date d'inscription 22 juillet 2013 Dernière intervention
- 20 août 2008 à 13:06
Bonjour


Comment est-il possible de récupérer les éléments sélectionnés dans un ListBox et les mettres dans un tableau ???


Premiere question...
Comment fait-on pour connaitres le nombre d'élément sélectionné dans le ListBox


C'est un tric du genre que je veux faire mais je n'yarrive pas


merci de votre aide





Dim j As Integer
Dim Test As String()
.......   
For j = 0 To ListBox1.SelectedItems.Item 'Erreur
    Test(j) = ListBox1.SelectedItems.Item(j) 'Erreur ????
Next
.......
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
dedenet2 372 Messages postés vendredi 27 juillet 2007Date d'inscription 22 juillet 2013 Dernière intervention - 20 août 2008 à 02:49
3
Merci
salut ,
Pourquoi faire simple quant on peut faire compliquer !
Voici un code qui permet de recupérer les lignes selectionnées
du Listbox.(et non toute la liste!)

-----------------------------------------------------------
Dim j As Integer
Dim Element As String
'parcours les lignes selectionnées
For Each j In ListBox1.SelectedIndices
Element = ListBox1.Items.Item(j)
'---------------------------------------------
'créer le code pour mettre ces données au fur
'et à mesure dans ton tableau.
'---------------------------------------------
Next
Bonne nuit

Merci dedenet2 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de dedenet2
dedenet2 372 Messages postés vendredi 27 juillet 2007Date d'inscription 22 juillet 2013 Dernière intervention - 19 août 2008 à 21:21
0
Merci
Salut MagDix ,
Y pas un tric mais un truc !

Voici ce que je te propose:
--------------------------------------------------------------------------------------
Dim j
As
Integer
Dim Element
As
String
Dim NombreElementDuListbox
As
String








'Nombre total d'élement du Listbox

  NombreElementDuListbox = ListBox1.Items.Count


'parcours toute la liste

  For
j = 0

To
NombreElementDuListbox - 1
         Element = ListBox1.Items.Item(j)


 

         'créer le code pour mettre ces données au fur
et à mesure dans ton tableau.

 
Next
-----------------------------------------------------------------------------------------------
  A+++
Commenter la réponse de dedenet2
cs_MagDix 532 Messages postés lundi 5 juin 2006Date d'inscription 6 octobre 2012 Dernière intervention - 20 août 2008 à 01:57
0
Merci
Salut Dedenet2...

En plus de faire des fautes de frappes (tric) j'oublie de mettre ma deuxième question....

Le code est ok mais ca sélectionne tous les éléments du listbox.

Si j'en sélectionne que 2 par exemple, je veux mettre dans smon tableau que les deux éléments sélectionnés..

J'ai essayé le SelectedItems ou SelectedItem mais ca me donne rien....

Dim Element
As
String
Dim j
As
Integer
Dim NombreElementDuListbox
As
String<strike>NombreElementDuListbox = ListBox1.Items.Count </strike>

<strike>'Nombre total d'élement du Listbox</strike>NombreElementDuListbox = ListBox1.SelectedItem.Count  'Je dois avoir le nombre d'item sélectionné dans le ListBox

For j = 0
To NombreElementDuListbox - 1
     Element = ListBox1.Items.Item(j) 'Seulement les élément sélectionnés seront dans le tableau, je n'y arrive pas

Next

Merci de ton aide
Commenter la réponse de cs_MagDix
cs_MagDix 532 Messages postés lundi 5 juin 2006Date d'inscription 6 octobre 2012 Dernière intervention - 20 août 2008 à 02:36
0
Merci
Encore moi...

J'ai trouvé une façcon de faire mais je ne la trouve pas tres bonne...

J'y arrive mais je dois vérifier toutes les lignes du ListBox. Existe-t-il une façcon pour lire que les lignes sélectionnés.. ??

merci de ton aide..

Voici le code qui fonctionne mais n'est pas au point

Dim

SiSelection
As
Boolean
Dim j
As
Integer
Dim NombreElementDuListbox
As
Integer, Compteur
As
Integer

If Tableau_Selection
IsNot
Nothing
Then
ReDim Tableau_Selection(0)
'Efface le Tableau
   NombreElementDuListbox = ListBox1.Items.Count
'Nombre total d'élement du Listbox
   For j = 0
To NombreElementDuListbox - 1
'Lit tous les éléments du ListBox
      SiSelection = ListBox1.GetSelected(j)
'Renvois un Boolean si l'élément est sélectionné alors SiSelection  = True
      If SiSelection =
True
Then
         Count_Nb_Ligne_Tableau = Count_Nb_Ligne_Tableau + 1

         If Compteur = 0
Then
            ReDim Tableau_Selection(Compteur)

         Else
            ReDim
Preserve Tableau_Selection(Compteur)

         End
If
      Tableau_Selection(Compteur) = ListBox1.Items.Item(j)
      Compteur = Compteur + 1

   End
If
Next
Commenter la réponse de cs_MagDix
cs_MagDix 532 Messages postés lundi 5 juin 2006Date d'inscription 6 octobre 2012 Dernière intervention - 20 août 2008 à 12:19
0
Merci
ok merci

c'était le SelectedIndicesque je ne connaissais pas

merci
Commenter la réponse de cs_MagDix
dedenet2 372 Messages postés vendredi 27 juillet 2007Date d'inscription 22 juillet 2013 Dernière intervention - 20 août 2008 à 13:06
0
Merci
salut ,
Eh bien ,maintenant tu le connais !
A+
Commenter la réponse de dedenet2

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.