Utilisation DataSource sur ListBox

Version imprimable

Bonjour à tous,

j'ai un petit soucis avec ce code :
Code:

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 26 27 Public Class Form1 Dim Mois() As String Dim Couleur() As String Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Mois = {"Janvier", "Février", "Mars"} Couleur = {"Bleu", "Blanc", "Rouge"} End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.ListBox1.DataSource = Nothing Me.ListBox1.DataSource = Mois End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.ListBox1.DataSource = Nothing Me.ListBox1.DataSource = Couleur End Sub End Class
Si je click sur le bouton1, j'affiche la liste "Mois" dans la ListBox.
Je sélectionne le mois "Mars", et je clique sur le bouton2 qui m'affiche bien la liste "Couleur".
Je sélectionne la couleur "Blanc".
Je re-click sur le bouton1, il m'affiche la liste "Mois", mais il me re-sélectionne la couleur "Blanc" !
Comment est-ce possible ?
J'ai ajouté "Me.ListBox1.DataSource = Nothing" mais ça n'a rien changé.

A chaque fois qu'on assigne une List au ".DataSource", la propriété ".BindingContext" ajoute un élément à sa liste.
Cet élément contient un champs "dataSourceHashCode" qui correspond au HashCode de la List qu'on obtient avec
la fonction ".GetHashCode".
Je pense qu'à chaque assignement de la propriété ".DataSource", il utilise le HashCode de la List s'il le
trouve dans la liste ".BindingContext()".
On peut y voir un champs ".Position" qui indique je pense l'Index sélectionné.
J'ai filtré la List "Mois", mais évidement comme il crée une autre List elle apparait en "Inconnu" :

Code:

Me.ListBox1.DataSource = Mois.Where(Function(i) i.StartsWith("F")).ToList

J'ai écrit ceci pour le visualiser :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim propertiesInfo As PropertyInfo()
        Dim prop As PropertyInfo
        Dim valProp As Object
        Dim valDataSourceHashCode As FieldInfo
        Dim BD As Object
 
        Dim HashCodeMois As Integer
        Dim HashCodeCouleur As Integer
 
        Dim NomListe As String
        Dim Position As Integer
        Dim Hcode As Integer
 
        HashCodeMois = Mois.GetHashCode
        HashCodeCouleur = Couleur.GetHashCode
 
        For Each BD In Me.ListBox1.BindingContext
            propertiesInfo = BD.GetType().GetProperties()
            For Each prop In propertiesInfo
                valProp = prop.GetValue(BD, Nothing)
                If prop.Name = "Key" Then
                    valDataSourceHashCode = valProp.GetType().GetField("dataSourceHashCode", BindingFlags.NonPublic Or BindingFlags.Instance)
                    Hcode = valDataSourceHashCode.GetValue(valProp)
                    If Hcode = HashCodeMois Then
                        NomListe = "Mois"
                    ElseIf Hcode = HashCodeCouleur Then
                        NomListe = "Couleur"
                    Else
                        NomListe = "Inconnu"
                    End If
                    Console.WriteLine("Liste : " & NomListe)
                ElseIf prop.Name = "Value" Then
                    Position = BD.value.target.position
                    Console.WriteLine("Position : " & Position)
                End If
            Next prop
        Next BD
 
        Console.WriteLine()

15/06/2026, 11h10
popo

As-tu essayé avec juste Me.ListBox1.DataSource = Mois.ToList() ?
ToList() créé une nouvelle liste, elle ne devrait donc pas avoir le même HashCode.
15/06/2026, 14h51
umfred

Citation:

Envoyé par pqboot

Je re-click sur le bouton1, il m'affiche la liste "Mois", mais il me re-sélectionne la couleur "Blanc" !

Je pense que tu voulais le mois "Mars" (et quand tu recliques sur le bouton 2, ça sélectionne "Blanc")

Si tu ne veux plus qu'il y ait de sélection, le plus simple serait d'utiliser Listbox1.ClearSelected (ou Listbox1.SelectedItem=-1)