Mettre une heure dans texbox

Bonjour

je souhaiterais mettre une textbox dans mon userform dans laquelle je veux saisir une HEURE au format hh:mm et verifier que j'ai le bon format. en cas d'erreur je mets msgbox "Mauvais format saisi"

je ne trouve pas de solution a mon probleme

Meric de m'aider

Salut,

Pourquoi ne pas utiliser une MaskTextBox ?
Elle sont faites pour ca.

__________
Kenji

 je suis vraiment mauvais je sais meme pas ce ke c'est ça

je cherche ou lol

Dans la boite à outils au même endrois que la TextBox (5 ou 6 items au dessus il me semble).

__________
Kenji

Je l'aie pas moi

j'ai fais un truc regarde STP
-------------------------------------------------------------------
Private Sub textbox21_change()
    Dim Valeur As Byte
    TextBox21.MaxLength = 5 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(TextBox21)
    If Valeur = 2 Then TextBox21 = TextBox21 & ":"
   
    If TextBox21.Value > "23:59" Then
    MsgBox "Valeur Impossible, Veuillez resaisir votre valeur."
    TextBox21.Value = ""
    End If

End Sub
-------------------------------------------------------------------------

par contre jarrive pas à mettre erreur si je tape 31 par exemple

je veux blinder le truc en disant que si le format n'est pas valide j'ai a resaisir le valeur

Alors inutile de faire complique :

	Try   Dim Time As DateTime = DateTime.Parse(TaTextBox.Text)   System.Windows.Forms.MessageBox.Show(Time.ToShortTimeString()) Catch ex As Exception   System.Windows.Forms.MessageBox.Show("C quoi c'te heure ???") End Try
(Coloration syntaxique automatique par Kenji)

__________
Kenji

avec une expression régulière ce serait plus propre

jai plein d'erreur dans ton expression pi c'est pas simple pour moi lol

Essaye çà, takin.
Dis-moi si celà te convient (et si oui, je te le perfectionne) :

Nom de ta textbox de saisie : HEURESAISIE

Code de l'événement keypress de cette textbox :

Private Sub HEURESAISIE_KeyPress(KeyAscii As Integer)
  sep = ":"
  comp = "00:00"
  ou = HEURESAISIE.SelStart
  If ou > 5 Then KeyAscii = 0: Exit Sub
  If KeyAscii = 8 Then
    If ou = 3 Then
      HEURESAISIE.Text = Left(HEURESAISIE.Text, 2)
      HEURESAISIE.SelStart = 2
      Exit Sub
    Else
      Exit Sub
    End If
  End If
  verif = HEURESAISIE.Text & Chr(KeyAscii) & Mid(comp, ou + 2)
  If Not IsDate(verif) Then
    KeyAscii = 0
    Beep
    Exit Sub
  End If
  ou = ou + 1
  HEURESAISIE.Text = HEURESAISIE.Text & Chr(KeyAscii)
  If ou = 2 Then
    HEURESAISIE.Text = HEURESAISIE.Text & sep
  End If
  KeyAscii = 0
  HEURESAISIE.SelStart = ou + 1
End Sub

Avec celà : pas de composant à ajouter à ton appli.

Private Sub TextBox1_Validating( ByVal sender As Object , ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

Dim MyRegEx As New System.Text.RegularExpressions.Regex( "^([0-1][0-9]|[2][0-3]):([0-5][0-9])$" )

If Not MyRegEx.IsMatch( CType (sender, TextBox).Text) Then

MsgBox(

"Format invalide" )

e.Cancel =

True

End If

End Sub