Format(textbox,"hh:mm:ss") marche pas! V

Résolu
vérokit Messages postés 68 Statut Membre -  
vérokit Messages postés 68 Statut Membre -
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 :

"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
Configuration: Windows 2000
Internet Explorer 6.0

3 réponses

  1. vérokit Messages postés 68 Statut Membre 9
     
    Bonjour,
    Merci de votre réponse.
    En langage VB.net, "value" n'est pas un membre de System.Windows.Textbox. Lorsque j'essaie :

    "If textbox1.text <> Format(Val(textbox1.text),"hh:mm:ss") ...."

    J'ai le même type d'erreur..
    1
  2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    Je me demande si textbox1.test est déjà mis à jour au moment de la vérification. Je suggère textbox1.value.
    0
  3. vérokit Messages postés 68 Statut Membre 9
     
    Solution trouvée !,
    Grâce à un internaute, j'ai remplacé mes textbox par des MaskedTextbox avec comme masque : 00:00:00. Ensuite la condition :

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

    et voilà ! Merci encore
    0