Discussion :

[leeloo95]

Bonjour,

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

Dans le load de ma form :

Code :

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

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

Dans mon événement tick

Code :

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

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.

[Pol63]

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

[beren.kei]

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é...

[Ogotcha]

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 :

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

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

[leeloo95]

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

Mon erreur est la suivante :

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

(donc tu as raison Pol63)

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 !!!

[Ogotcha]

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

Donc au niveau de la boucle for cela donne :

Code :

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

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

[leeloo95]

Merci beaucoup OGOTCHA ^^

Code :

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

MsgBox("GOODJOB")