[VB6] Forzatura di un formato data in TextBox

[snake88m]

ciao a tutti. ho una textbox e vorrei fare in modo che l'utente possa solamente inserire la data in questo formato: gg/mm/aaaa come faccio? nel mio programma il controllo della data deve essere effettuato all'evento lost_focus. ho provato a usare l'istruzione: if not isdate(text1.text) then msgbox "Errore", ma facendo così mi accetta la data in qualsiasi formato

grazie in anticipo

[giorgiogio48]

Private Sub Text1_LostFocus()
Text1 = Format(Text1, "dd/mm/yyyy")

End Sub

[yyzyyz]

un'idea grezza potrebbe essere questa:

Private Sub Text1_LostFocus()
Dim set_gg As String
Dim set_mm As String
Dim set_yyyy As String
Dim set_date As String

Text1.Text = Replace(Text1.Text, " ", "")
set_gg = (Mid(Text1.Text, 1, 2))
set_mm = (Mid(Text1.Text, 3, 2))
set_yyyy = (Mid(Text1.Text, 5, 4))
set_date = set_gg & "/" & set_mm & "/" & set_yyyy
set_date = Format(set_date, "dd/mm/yyyy")
MsgBox (set_date)

End Sub

ps. potresti anke utilizzare il componente MaskEdBox1 di microsoft.