[VB] formattare una stringa

[Rossella_75]

ciao a tutti

ho un problemino

io ho una textbox di nome ora adesso,l'utente deve inserire l'ora

ma se lui scrive 6.30 a LostFocus() deve restituire 06:30
se invece scrive 630 a LostFocus() deve sempre restituire 06:30
lo stesso se scrive 0630 a LostFocus() deve restituire 06:30


insomma comunque scriva a me deve tornare l'ora formattata cosi 06:30 oppure 13:30

come posso fare??

sto provando con Format ma non riesco ad ottenere quello che voglio

(scusatemi sto imparando)

[ddies]

nella lostfocus

text1.text=replace(text1.text,":","")
text1.text=replace(text1.text,".","")
text1.text=format(text1.text,"0000")
text1.text=mid(text1.text,1,2) & ":" & mid(text1.text,3,2)

[pasaran]

perche' non usi il controllo dtpicker?

lo trovi in "microsoft windows common control-2 6.0 (SP3)"

devi solo inpostare il formato come dtpTime

[Rossella_75]

Grazie pasaran ma ho risolto come ha detto ddies


siete stati gentilissimi
ddies funziona perfettamente

[icosimo]

Per ddies

mi intrometto scusate, ma vedo che "ddies" è preparato e ne approfitto e chiedo come è possibile avere la formattazione immediata dei numeri esempio:

io scrivo 1234 e nello stesso tempo devo vedere 1.234

la stessa cosa anche con i numeri decimali 1234,56 = 1.234,56

Questo l'ho già visto in un file.exe

Altrimenti dove posso trovare qualcosa.

Grazie mille.

[allejo]

format(text1.text,"###,###,###") 'per trasformare da 1234 a 1.234

format(text1.text,"###,###,###.00") 'per trasformare da 1234,5 1.234,5

Ciao