formattazione in maiuscolo

[abiale]

qualcuno sa dirmi come formattare in maiuscolo il contenuto di un edit box ?

[gyonny]

ucase se devi formattare la stringa

per formattare durante l'inserimento

' in un modulo bas
Function Upper(KeyAscii As Integer)
    If KeyAscii > 96 And KeyAscii < 123 Then
        KeyAscii = KeyAscii - 32
    End If
    Upper = KeyAscii
End Function

' nella text
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Upper(KeyAscii)
End Sub

[vonkranz]

Private Sub Text1_KeyPress(KeyAscii As Integer)
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

[abiale]

grazie:mavieni:

[gyonny]

vonk

un'ottimo codice veloce e senza passare per i bas.
volendolo modificare per avere solo la prima lettere in maiuscolo, come si può fare?

by

[jabjoint]

left(Ucase(txt.text),1)

[Mabi]

Se intendevi dire la prima lettera di ogni parola puoi usare la funzione StrConv:

Stringa = StrConv(Stringa, vbProperCase)

[jabjoint]

grazie per la funzione non l' avevo mai utilizzata interessante!