Listbox & doubles ..

Version imprimable

27/08/2009, 10h22
zouzou_18

Listbox & doubles ..

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 .. ;)

Code:

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

27/08/2009, 14h34
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 ..
27/08/2009, 15h00
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.
27/08/2009, 15h11
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:

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

n'est pas juste !!

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

Code:

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:

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

@++ ;)

27/08/2009, 15h59
zouzou_18

Oooh ..
Mercii beaucoup .. :ccool:

ça a marché avec une petite modification :

Code:

If Val = List1.Items(i) Then

Au lieu de :

Code:

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

Résoluuu avec succèèèès .. ;)
27/08/2009, 16h18
Hinault Romaric

:mouarf: Une stupide erreur de ma par.

@++ ;)
27/08/2009, 23h56
zouzou_18

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

Merciiii .. ;)