Format(textbox1.text, "hh:mm:ss") marche pas

Bonjour à tous les internautes,
Voilà, j'ai deux textbox dans lesquelles l'utilisateur de mon application doit saisir deux heures en format hh:mm:ss. Comme le programme doit ensuite soustraire ces deux heures pour obtenir une durée, il est impératif que l'utilisateur les saisissent en respectant le format hh:mm:ss. C'est pourquoi je souhaite créer une alarme qui reconnaisse le format de la textbox et avertisse l'utilisateur s'il n'est pas correct. J'utilise le code suivant :

Code:

---

1 2 3 4

If textbox1.text <>Format(textbox1.text,"hh:mm:ss") or textbox2.text <>Format(textbox2.text,"hh:mm:ss") then MessageBox.Show("L'heure de début ou de fin n'est pas au format hh:mm:ss !") Else -CALCULS-

---

Lorsque je teste ce programme, quelque soit le format de l'heure que je saisi dans la textbox, le message d'erreur apparaît. En fait, format(textbox1.text, "hh:mm:ss") retourne "hh:mm:ss". Donc forcément, ce que je tape dans les textbox ne ressemble pas à ça, donc alerte !

Je ne comprend pas, j'ai l'impression que la fonction ne marche pas.
Merci de m'aider
Bonne journée

Tu as d'autres solutions que de verifier apres coup la validite de la saisie, tu peux soit controler les caracteres entres durant la saisie et empecher la saisie de caracteres invalides et/ou mal positionnes ou alors, encore plus simple je trouve, utiliser un MaskedTextBox avec une propriete Mask mise a "00:00:00"

Bonjour,
Merci de votre aide, c'est tout à fait ce qu'il me fallait.
Je rajoute juste la condition suivante :

Code:

---

1 2 3 4 5

If textbox1.MaskedCompleted=true and textbox2.MaskedCompleted=true then CALCULS else Message d'erreur End if

---

Merci encore !!

Bonjour,
Merci de votre aide, c'est tout à fait ce qu'il me fallait.
Je rajoute juste la condition suivante :

Code:

---

1 2 3 4 5 6

If textbox1.MaskedCompleted=true and textbox2.MaskedCompleted=true then CALCULS else Message d'erreur End if

---

Merci encore !!