Discussion :

[vérokit]

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 :

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

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

[OhMonBato]

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"

[vérokit]

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

Code :

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

1
2
3
4
5
If textbox1.MaskedCompleted=true and textbox2.MaskedCompleted=true then
CALCULS
else
Message d'erreur
End if

Merci encore !!

[vérokit]

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

Code :

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

1
2
3
4
5
6
 
If textbox1.MaskedCompleted=true and textbox2.MaskedCompleted=true then
CALCULS
else
Message d'erreur
End if

Merci encore !!