[vb6] gestione data in textbox

[disumano]

mi serve un immissione obbligata di una data in una text box.
del tipo che se la textbox perde il focus c'è un qualche controllo della stringa immessa che verifica che sia una data giusta.
mi aiutate?

[Ramius]

utilizza al posto della textbox un controllo maskedbox che ti permette di inserire un testo formattato in una certa maniera. poi con l'eveto validate controlli se la stringa immessa e' una data valida.
es. tratto dall'help



Private Sub Text1_Validate(KeepFocus As Boolean)
' If the value is not a date, keep the focus, unless the user
' clicks Help.
If Not IsDate(Text1.Text) Then
KeepFocus = True
MsgBox "Please insert a date in this field.", , "Text1"
End if
End Sub



l'esempio e' per il controllo text, dovresti poterlo adattare alla maskedbox se necessario