Bonjour à tous,

j'ai un petit soucis avec ce 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
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é.