listbox selection multiple VB

Bonjour
Voilà c'est surement tout con mais je ne retourne que la première valeur sélectionnée alors que je pensais que le "Movenext" me placerais bien sur la ligne suivante (j'ai aussi essayé avec des "selectItems(i)" mais je retourne aussi bien la valeur de DisplayMember que de la ValueMember...j'y vois plus clair
Merci de votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Btn_ajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ajout.Click Dim i As Integer Dim utilajoutxt As String Dim MonEnum As IEnumerator = Me.lst_utilisateurs.SelectedItems.GetEnumerator i = 0 While MonEnum.MoveNext utilajoutxt = Me.lst_utilisateurs.SelectedValue i = i + 1 End While End Sub

Citation:
Envoyé par jcl49
Bonjour
Voilà c'est surement tout con mais je ne retourne que la première valeur sélectionnée alors que je pensais que le "Movenext" me placerais bien sur la ligne suivante (j'ai aussi essayé avec des "selectItems(i)" mais je retourne aussi bien la valeur de DisplayMember que de la ValueMember...j'y vois plus clair
Merci de votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Btn_ajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ajout.Click Dim i As Integer Dim utilajoutxt As String Dim MonEnum As IEnumerator = Me.lst_utilisateurs.SelectedItems.GetEnumerator i = 0 While MonEnum.MoveNext utilajoutxt = Me.lst_utilisateurs.SelectedValue i = i + 1 End While End Sub
Tu mélanges un peu tout là... MoveNext n'a rien à voir avec la ListBox, c'est une méthode de l'énumérateur qui sert à passer à l'élément suivant de la collection. Ca ne touche pas à l'élément sélectionné de la ListBox... D'ailleurs en général tu n'as pas besoin de manipuler explicitement l'énumérateur, il y a la boucle For Each qui sert à ça.

Si tu veux afficher toutes les valeurs sélectionnées, tu peux faire ça :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Btn_ajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ajout.Click Dim i As Integer Dim utilajoutxt As String For Each util As String In lst_utilisateurs.SelectedItems utilajoutxt = utilajoutxt & ", " & util End While MessageBox.Show(utilajoutxt) End Sub

merci,
mais ça me retourne le message

Citation:

La conversion du type 'DataRowView' en type 'String' n'est pas valide.

Citation:

Envoyé par jcl49

merci,
mais ça me retourne le message

Ah ok, j'ai supposé que les items de ta ListBox étaient des String... Si tu l'as bindé à une DataTable, effectivement c'est des DataRowView

Donc il faut faire un truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
 
    Private Sub Btn_ajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ajout.Click
        Dim i As Integer
        Dim utilajoutxt As String
        For Each row As DataRowView In lst_utilisateurs.SelectedItems
            Dim util As String = CString(row(lst_utilisateur.ValueMember))
            utilajoutxt = utilajoutxt & ", " & util
        End While
        MessageBox.Show(utilajoutxt)
    End Sub

Du coup c'est le message :

Citation:

v_individus.vClpesydreId n'est pas un DataColumn ou un DataRelation pour la table v_individus.

Au chargement du formulaire je rempli ma listebox avec cela
Code:

1 2 3 4 Me.lst_utilisateurs.DataSource = mesreqt.remplir_debase1("v_individus", "select v_individus.vNomcomplet, v_individus.vClpesydreId from v_individus Order by vNomcomplet") Me.lst_utilisateurs.DisplayMember = "v_individus.vNomcomplet" Me.lst_utilisateurs.ValueMember = "v_individus.vClpesydreId" Me.lst_utilisateurs.SelectedIndex = -1
merci si tu trouves moi je sèche (j'ai remplacé dans ton ex Cstring en CChar

Pourquoi tu mets "v_individus.vClpesydreId" comme ValueMember ? Le nom de la table n'est utilisé que dans le requête SQL (quoi que dans ce cas précis ce n'est même pas nécessaire). Mets juste "vClpesydreId", ça devrait marcher

(c'est Fort Boyard ton application ? :mrgreen:)

effectivement cela vient d'une appli où on gère des temps...
bref si je vire le nom de la table ma listebox ne se remplit plus

Elle renvoie quoi la fonction remplir_debase1 ? Une DataTable ? Un DataSet ?

un dataset

Citation:

Envoyé par jcl49

un dataset

OK, donc déjà c'est bizarre ce que tu fais... en général on met pas directement un DataSet en DataSource d'une ListBox, ou alors on précise le nom de la table dans DataMember. Mais bon tu vas pas tout changer maintenant, donc modifie juste cette ligne :

Code:

Dim util As String = CString(row("vClpesydreId"))

(et garde le nom complet avec la table pour DisplayMember/ValueMember)

résolu

:ccool:ça marche merci bcp

Citation:

Envoyé par jcl49

:ccool:ça marche merci bcp

Utilise le bouton :resolu: alors ;)
(en bas de la page)