Discussion :

[soso78]

Salut,

Dans une Listbox, j'ai ajouté des articles avec l'instruction suivante :

Code :

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

ListFieldsProperties.AddItem strControlName, intIndex

ou ListFieldsProperties est le nom de ma Listbox, strControlName son contenu et intIndex son index.

Je voudrais maintenant vérifier que l'article ajouté n'existe pas dans al listbox, et l'ajouter si tel est le cas, ou ne rien faire dans l'autre.

Comment réaliser ceci ?

Merci par avance.

[nguhv]

Pour vérifier tu fais ceci (meme si je n'en vois pas l'utiliser si tu l'ajoute avec une ligne de code)

Code :

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

1
2
3
if (listFieldsProperties.list(intIndex) <> strControlName) then
  ListFieldsProperties.AddItem strControlName, intIndex
end if

enfin je te donne ca mais c'est ce que j'ai compri de ton message, est cela que tu voulais fair? ou vérifier dans toutes la liste?

[soso78]

Ah ben je m'exprime mal sans doute ;-)...

En fait, c'est suite à mon message sur les contrôles dynamiques (enfin, c'est pas tout à fait pareil ;-)).

Mes contrôles sont maintenant positionnés sur ma form.

Sur celle-ci, j'ai également une listbox ou je veux faire apparaître certaine propriétée de ce contrôle (comme le texte, la police, ...). Mon idée est donc la suivante : dès que l'utilisateur déplace la souris sur l'un de ces contrôles, l'événement MouseMouve déclenche l'affichage des propriétés de la listbox.

Le problème étant que l'utilisateur peut survoler le même contrôle x fois, et que si l'élément existe déjà dans la listbox... ben y'a problème ! Je veux éviter d'initialiser à nouveau.

J'espère que j'ai étais plus clair ;-).

[nguhv]

Ah d'accord ben je comprends deja un peu mieux
Voila ce que je ferais:

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
dim max as integer
max = lstFieldsProperties.listcount
dim i as integer
dim a as integer
a=0
 
for i =0 to max
   if ( lstFieldsProperties.list(i) = strControlName ) Then
      a=1
   End if
Next
 
If (a = 0) then 
   ListFieldsProperties.AddItem strControlName, intIndex
end if

Enfoi voila la démarche que j'essaierais de faire...


Hum il y a peut être des erreurs de syntaxes.... je ne l'ai pas testé

[soso78]

En effet, en passant par une boucle...

Merci !