Discussion :

[identifia]

bonjour,

voila : j'ai un probléme au niveau de la listbox , je fais un teste pour que les doublants ne soient pas ajoutés dans la liste mais ca ne marche pas
voila mon morceau de code

Code :

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

1
2
3
4
5
6
7
8
dim i as integer
for i=0 to listbox.items.count-1
if trim(listbox.items.item(i)).tostring<>trim(txtbox1.text &"__"& txtbox2.text) then
listbox.items.add(txtbox1.text &"__&"txtbox2.text)
else
exit sub 
end if
next i

merci d'avance de m'aider

[Capitaine Kirk]

Bonjour

Je te propose cette façon de faire qui te permet l'économie d'une boucle sur tous les éléments de ta ListBox.

Code :

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

1
2
3
 
If Not ListBox1.Items.Contains(TextBox1.Text & "_" & TextBox2.Text) Then       
ListBox1.Items.Add(TextBox1.Text & "_" & TextBox2.Text) End If

Ps: à l'avenir te serait-il possible de poster ton code entouré des balises , la lecture sera facilité, et de ce fait les réponses surement plus rapide et efficace