déclencher une action avec un timer

Bonjour,

j'utilise un timer qui tick toutes les 30 secondes au chargement de mon load.

Dans le load de ma form :

Code:

---

1 2	Timer1.Interval = 5000 Timer1.Start()

---

Dans mon événement tick

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim i As Integer i = ListBoxDatedemande.Items.Count Dim j As Integer = 0 Do While ListBoxDatedemande.Items.IndexOf(j) <= i If ListBoxDatedemande.Items.Item(j) = DateAndTime.Now.Date Then MsgBox("OK") j = j + 1 Else : MsgBox("KO") j = j + 1 End If Timer1.Stop() Loop Timer1.Stop()

---

Mon problème: dans la première ligne de mon while, mon j = 3 et mon i = 3 jusque la tout va bien, mais il me fait une erreur avec j = 4 et i = 3 ... normalement il ne devrait pas rentrer dans la boucle vu que la condition n'est pas rempli... ou si mon code est totalement érroné ...
Si quelqu'un a une idée et une solution, je suis toute ouïe ^^

Merci.

ce forum a une balise code pour la mise en forme car c'est illisible
de plus au lieu de dire "j'ai un erreur" on précise quelle est l'erreur (bien qu'on puisse miser sur un OutOfRange)
et à mon avis y a moyen de réduire le nombre de ligne de code, mais pour ca il faut que tu précises ce que tu veux faire

le problème vient, il me semble, du fait que ton "Do - while" teste la condition en fin de boucle... il faudrait donc remplacer ton "<=" par "<" tout simplement!
à tester et confirmer...

et + 1 pour le message précédent, les balises code seraient les bienvenues pour plus de lisibilité...

Si je comprend ce que tu souhaites (bien que les balise code serait un plus), c'est bouclé sur tes items de ta listbox et tester si la valeur de ton item est égal à la date du jour ?

Pourquoi ne pas faire une boucle For ?

Code:

---

1 2 3 4 5 6

For i as integer = 0 to ListBoxDatedemande.Items.Count If ListBoxDatedemande.Items(i) = DateAndTime.Now.Date Then MsgBox("OK") End If Next

---

Merci de vos réponses, et désole pour les balises :?

Mon erreur est la suivante :

Citation:

---

L'exception ArgumentoutofrangeException n'a pas été géré

---

(donc tu as raison Pol63)

Citation:

---

InvalidArgument=La valeur '3' n'est pas valide pour 'index'. Nom du paramètre : index

---

j'ai le même message d'erreur avec une boucle For to.

Ce que je veux faire, c'est vérifier une listbox de date (ListBoxDatedemande) par rapport à la datesystem (DateAndTime.Now.Date), et si cela correspond alors j'affiche OK sinon j'affiche KO. Je simplifie mon code car à la base j'envoi un e-mail + alerte... Je fait cette vérife à partir d'un timer avec un interval de 30s (30000 millisecondes) qui lance cette vérification toutes les 30 secondes.

Si besoin de plus d'explication, n'hésitait pas !!!

Fait un -1 sur ListBoxDatedemande.Items.Count car ListBoxDatedemande.Items est de base 0

Donc au niveau de la boucle for cela donne :

Code:

---

1 2 3

For i as integer = 0 to ListBoxDatedemande.Items.Count - 1 'Le reste du code Next

---

Merci beaucoup OGOTCHA ^^ :ccool:

Code:

---

MsgBox("GOODJOB")

---