Listbox avec colonne

cs_mickael56100 Messages postés 94 Date d'inscription vendredi 12 septembre 2008 Statut Membre Dernière intervention 19 mai 2012 - 4 févr. 2009 à 16:53
cs_mickael56100 Messages postés 94 Date d'inscription vendredi 12 septembre 2008 Statut Membre Dernière intervention 19 mai 2012 - 5 févr. 2009 à 14:33
Bonjour, j'ai un problème pour la création d'une listbox à colonne.
En fait, j'ai créé 6 colonnes :

- C0  (Text = "N°")
- C1 (Text = "Nom")
- C2 (Text = "Prénom")
- C3 (Text = "Téléphone")
- C4 (Text = "Couriel")
- C5 (Text = "Adresse")

Voici un extrait de mon code :

Private Sub C_Classe_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_Classe.SelectedIndexChanged
        L_Etudiant.Items.Clear()
        'Remplissage de la ListBox concenant les étudiants
        Dim reqselectetudiant As String        reqselectetudiant "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER BY NomEleve"
        Dim dt3 As DataTable
        dt3 = F_Menu.ReqSelection(reqselectetudiant, "Eleve")
        For i = 0 To dt3.Rows.Count() - 1
            C1.ListView.Items.Add(dt3.Rows(i).Item(0))
            C2.ListView.Items.Add(dt3.Rows(i).item(1))
        Next
    End Sub

Je n'ai pas continué jusqu'à C5 puisque cela ne correspondait pas à ce que je souhaite réaliser, en effet, lorsque je teste ceci, cela m'affiche les n° et noms dans la même colonne, or je souhaiterais afficher toute les informations concernant une même personne au sein de la même ligne.

Voilà, Merci d'avance.

5 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
4 févr. 2009 à 16:54
joues avec un ListView
0
cs_mickael56100 Messages postés 94 Date d'inscription vendredi 12 septembre 2008 Statut Membre Dernière intervention 19 mai 2012
4 févr. 2009 à 18:25
c'est à dire?
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
5 févr. 2009 à 00:57
ben, c'est à dire de pas utiliser un ListBox, mais un ListView, qui est fait pour l'affichage d'element sur plusieurs colonnes ^^
0
cs_mickael56100 Messages postés 94 Date d'inscription vendredi 12 septembre 2008 Statut Membre Dernière intervention 19 mai 2012
5 févr. 2009 à 10:14
ah oui autant pour moi renfield, en fait ce n'est pas une listbox que j'utilise mais une lisview.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_mickael56100 Messages postés 94 Date d'inscription vendredi 12 septembre 2008 Statut Membre Dernière intervention 19 mai 2012
5 févr. 2009 à 14:33
c'est bon je viens de trouver sur le net la solution, mais désormais la listview n'est plus actualiser lors du changement du code classe et code promo par l'utilisateur dans la liste déroulante. Voici mon code :

Public Class F_ConsultEtudiant
    Private Sub B_Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Fermer.Click
        Me.Close()
    End Sub
    Private Sub F_ConsultEtudiant_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            'Remplissage de la liste déroulante concernant les Classes
            Dim reqselectclasse As String
            reqselectclasse = "SELECT CodeClasse FROM Classe ORDER BY CodeClasse DESC"
            Dim dt As DataTable
            dt = F_Menu.ReqSelection(reqselectclasse, "Classe")
            For i = 0 To dt.Rows.Count() - 1
                C_Classe.Items.Add(dt.Rows(i).Item(0).ToString)
            Next
            C_Classe.SelectedIndex = 0

            'Remplissage de la liste déroulante concernant les promos
            Dim reqselectpromo As String
            reqselectpromo = "SELECT CodePromo FROM Annee ORDER BY CodePromo DESC"
            Dim dt2 As DataTable
            dt2 = F_Menu.ReqSelection(reqselectpromo, "Annee")
            For i = 0 To dt2.Rows.Count() - 1
                C_Promo.Items.Add(dt2.Rows(i).Item(0).ToString)
            Next
            C_Promo.SelectedIndex = 0

            'Remplissage de la ListBox concenant les étudiants
            Dim reqselectetudiant As String            reqselectetudiant "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve,TelmobileEleve,CourielEleve,AdresseEleve,CodePostalEleve,VilleEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER BY CodeEleve"
            Dim dt3 As DataTable
            dt3 = F_Menu.ReqSelection(reqselectetudiant, "Eleve")
            For i = 0 To dt3.Rows.Count() - 1
                Dim lvi As New ListViewItem
                'Remplissage de la première colonne
                lvi.Text = dt3.Rows(i).Item(0)
                'Remlissage de la deucième colonne
                lvi.SubItems.Add(dt3.Rows(i).Item(1))
                'Remplissage de la troixième colonne
                lvi.SubItems.Add(dt3.Rows(i).Item(2))
                'Remplissage de la quatrième colonne
                lvi.SubItems.Add(dt3.Rows(i).Item(3))
                'Remplissage de la cinquième colonne
                lvi.SubItems.Add(dt3.Rows(i).Item(4))
                'Remplissage de la sixième colonne
                lvi.SubItems.Add(dt3.Rows(i).Item(5) & " " & dt3.Rows(i).Item(6) & " " & dt3.Rows(i).Item(7))
                'Ajout d'une nouvelle ligne
                L_Etudiant.Items.Add(lvi)
            Next
        Catch ex As Exception
        End Try
    End Sub

    Private Sub C_Promo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C_Promo.SelectedIndexChanged
        Try
            L_Etudiant.Items.Clear()
            'Remplissage de la ListBox concenant les étudiants
            Dim reqselectetudiant1 As String            reqselectetudiant1 "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER BY CodeEleve"
            Dim dt4 As DataTable
            dt4 = F_Menu.ReqSelection(reqselectetudiant1, "Eleve")
            For i = 0 To dt4.Rows.Count() - 1
                Dim lvi As New ListViewItem
                'Remplissage de la première colonne
                lvi.Text = dt4.Rows(i).Item(0)
                'Remlissage de la deucième colonne
                lvi.SubItems.Add(dt4.Rows(i).Item(1))
                'Remplissage de la troixième colonne
                lvi.SubItems.Add(dt4.Rows(i).Item(2))
                'Remplissage de la quatrième colonne
                lvi.SubItems.Add(dt4.Rows(i).Item(3))
                'Remplissage de la cinquième colonne
                lvi.SubItems.Add(dt4.Rows(i).Item(4))
                'Remplissage de la sixième colonne
                lvi.SubItems.Add(dt4.Rows(i).Item(5) & " " & dt4.Rows(i).Item(6) & " " & dt4.Rows(i).Item(7))
                'Ajout d'une nouvelle ligne
                L_Etudiant.Items.Add(lvi)
            Next
        Catch ex As Exception
        End Try
    End Sub

    Private Sub C_Classe_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_Classe.SelectedIndexChanged
        Try
            L_Etudiant.Items.Clear()
            'Remplissage de la ListBox concenant les étudiants
            Dim reqselectetudiant2 As String            reqselectetudiant2 "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER CodeEleve"
            Dim dt5 As DataTable
            dt5 = F_Menu.ReqSelection(reqselectetudiant2, "Eleve")
            For i = 0 To dt5.Rows.Count() - 1
                Dim lvi As New ListViewItem
                'Remplissage de la première colonne
                lvi.Text = dt5.Rows(i).Item(0)
                'Remlissage de la deucième colonne
                lvi.SubItems.Add(dt5.Rows(i).Item(1))
                'Remplissage de la troixième colonne
                lvi.SubItems.Add(dt5.Rows(i).Item(2))
                'Remplissage de la quatrième colonne
                lvi.SubItems.Add(dt5.Rows(i).Item(3))
                'Remplissage de la cinquième colonne
                lvi.SubItems.Add(dt5.Rows(i).Item(4))
                'Remplissage de la sixième colonne
                lvi.SubItems.Add(dt5.Rows(i).Item(5) & " " & dt5.Rows(i).Item(6) & " " & dt5.Rows(i).Item(7))
                'Ajout d'une nouvelle ligne
                L_Etudiant.Items.Add(lvi)
            Next
        Catch ex As Exception
        End Try
    End Sub

    Private Sub B_ModifEtudiant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_ModifEtudiant.Click
        Me.Close()
        F_ModifEtudiant.Show()
    End Sub

End Class
0