[VB] Valore Null

[Francesco_76]

[supersaibal]Originariamente inviato da Johnny_Depp

Private Sub Form_KeyPress(KeyAscii As Integer)
    'così chiudi l'intero programma
    If KeyAscii = "27" Then End
    'così invece chiudi solo il form che ha il focus
    'If KeyAscii = "27" Then Unload Me 
End Sub

[/supersaibal]

Se faccio un progetto nuovo il tuo codice va benessimo ma nel mio no

[Francesco_76]

Ragazzi avete anche una soluzione per questo


Siete stati gentilissimi grazie ricambierò

[Johnny_Depp]

non capisco a cosa ti serve!!! cmq è semplice...

basta utilizzare l'evento LostFocus

Private Sub Text1_LostFocus()
    If Text1 = "27" Then Text1 = "ventisette"
End Sub

[Francesco_76]

Io ho fatto un'esempio con 31 ma l'utente potrebbe scrivere qualunque numero e il programma lo converte in lettere


sai aiutarmi??

[Johnny_Depp]

[quote]ma se volessi la prima Maiuscola e tutto il resto minuscolo

è possibile??[/b]

Text1 = StrConv(Text1, vbProperCase)

[Johnny_Depp]

Il problema è che (io credo) in VB non esistono funzioni
che convertono i numeri in lettere

es 13 in TREDICI

quindi devi creartene una tutta tua

ti ripeto NON CAPISCO A COSA PUO' SERVIRTI (assegni bancari???)

ma puoi sempre inserire tanti if...elseif
per quanti sono i numeri che l'utente E'ABILITATO A INSERIRE

alla fine ci metti un bel

ELSE text1 = "VALORE ERRATO"

l'unica soluzione che mi viene in mente è questa

[Francesco_76]

No mi serve per un contratto della agenzia immobiliare di mia sorella

quindi lei inserisce la cifra dell'immobile in cifre e il programma la deve convertire in lettere (quindi le cifre possono essere tante)






grazie per l'altra soluzione

[Johnny_Depp]

puoi anche crearti una routine INTELLIGENTE
che legge la lunghezza del numero inserito (per stabilire le migliaia)
e convertire solo i numeri da 0 a 9 (decimali)

ora provo io