Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tomlev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jcl49]

merci,
mais ça me retourne le message

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

[tomlev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jcl49]

Du coup c'est le message :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tomlev]

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 ? )

[jcl49]

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

[tomlev]

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

[jcl49]

un dataset

[tomlev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[jcl49]

ça marche merci bcp

[tomlev]

ça marche merci bcp

Utilise le bouton alors
(en bas de la page)