Discussion :

[zouzou_18]

Bonjour,

Je dévloppe mon projet à l'aide de VB.net & j'ai un problème au niveau de la listbox ..
Je désire selectionner des éléments à partir de la première listbox & les mettre dans la seconde par clic ..
(Des que je clic sur l'élément ds la listbox1 il sera affiché dans la listbox2 par exple)
Mais j'ai des doubles quand je clic 2 fois sur le même élément !
Or moi je veux que l'élément soit affiché une seule fois dans la seconde listbox !
J'ai pas su comment faire pour le test !
Est-ce-que qq1 pourra m'aider ?

Mercii d'avance ..

[zeavan]

Code :

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

1
2
3
4
5
6
List<string> s1;
List<string> s2;
 
Evenement click:
if(!s2.contain(s1.selecteditem))
     s2.add(s1.selecteditem)

[zouzou_18]

C'est en VB.net ?!
J'en doute ..

Y'a-t-il quelqu'un qui a le code en VB.net pour supprimer les doubles ?
Ou plus précisemment faire le test si l'element existe dans la seconde listbox ou pas ! Si c'est le cas on l'ajoute pas une deuxième fois sinon on l'ajoute ..

[Hinault Romaric]

Tu peut faire une fonction qui vérifier si le éléments existe déjà dans le listBox2 avant de l'insérer.

[zouzou_18]

C'est dans la fonction que j'ai eu le problème

Je sais pas comment faire pour écrire avec le code !

If l'élément existe OU If ListBox2 contient cet élément

Code :

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

If me.listbox2.Text = Me.Listbox1.SelectedItem

n'est pas juste !!

[Hinault Romaric]

Non pas du tout, voila une fonction pour verifier avant d'inserer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Function VerifOcurence(ByVal Val As String, ByVal List1 As ListBox) As Boolean
        Dim i As Integer = 0
        Dim Result As Boolean = False
        While i < List1.Items.Count  And Result = False
            If Val = List1.Items(i).Text Then
                Result = True
            End If
            i = i + 1
        End While
        Return Result
   End Function

Maintenant il te suffira juste de faire

Code :

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

1
2
3
4
 
  if VerifOcurence(me.Listbox1.SelectedItem,me.listbox2) = false then
  me.Listbox2.items.add(me.Listbox1.SelectedItem)
  end if

@++

[zouzou_18]

Oooh ..
Mercii beaucoup ..

ça a marché avec une petite modification :

Code :

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

 If Val = List1.Items(i) Then

Au lieu de :

Code :

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

 If Val = List1.Items(i).Text Then

Résoluuu avec succèèèès ..

[Hinault Romaric]

Une stupide erreur de ma par.

@++

[zouzou_18]

C'est pas si grave que ça .. ^^

Merciiii ..