Discussion :

[étudiant49]

Bonjour,

Voici mon probleme:
j'ai une ListBox qui affiche des Classes,
Je voudrais pouvoir lors d'un clic récupérer l'objet Classe
voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub buildListBox()

        _classeManager = New ClasseManager()

        Try
            Me.lsbClasse.Items.Clear()

           // je récupère une liste de Classe
            Dim liste As List(Of Classe) = _classeManager.getClasse() 
         
            // pour chaque Classe je l'ajoute à la liste box
            For Each classe As Classe In liste

                // le probleme est ici à chaque fois le Tag est écrasé par l'enregistrement suivant ce qui fait qu'a la fin le Tag = 4 (derniere classe)
                lsbClasse.Tag = classe
                lsbClasse.Items.Add(classe.Libelle)
            Next
        Catch ex As Exception
            Throw ex
        End Try

    End Sub

ensuite pour récupérer mes infos je fais cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub lsbClasse_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsbClasse.SelectedIndexChanged
 
        // je récupère la classe sélectionnée
        Dim selectedClasse As Classe
 
 
        Try
            If Me.lsbClasse.SelectedItem IsNot Nothing Then
 
                selectedClasse = TryCast(Me.lsbClasse.Tag, Classe)
 
                If selectedClasse IsNot Nothing Then
                    setClasse(selectedClasse, Me._classeManager)
                Else
                    Me.txtLibelle.Text = ""
                End If
            End If
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur")
 
        End Try
 
    End Sub

Voyez-vous une solution ?
Merci d'avance.

[Pol63]

un control ne peut avoir qu'un tag, pas un par ligne

de plus les controles .net utilisent la méthode ToString pour afficher des infos, il faut donc l'utiliser

Code :

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

1
2
3
4
5
6
7
8
 
public class maclasse
    public property Id as long
    public property Libelle as string
    public overrides function ToString as string
        return me.libelle
    end sub
end class

Code :

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

1
2
3
4
 
for each item as maclasse in mylistof
    listbox1.items.add(item) ' mettre l'instance plutot que la propriété libellé
next

Code :

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

1
2
 
directcast(listbox1.selecteditem,maclasse) ' contient directement l'instance de la classe

le listbox ne sachant pas afficher une classe va appeler .ToString qui dans ce cas va retourner le libellé
et selecteditem contient l'instance, pas seulement le libellé, ce qui est pratique
le but de la POO c'est de garder des instances partout plutot que des propriétés

ca marche aussi pour les combobox
et sur certains controles, on peut se débrouiller sans overrider la méthode tostring, grace à la propriété DisplayMember dans laquelle on met le nom de la propriété qu'on veut afficher

[étudiant49]

Merci pour cette explication claire et détaillée.

Plus de problème maintenant.