Kan man sätta så att det automatiskt blir versaler när en användare skriver i en textruta. Hur?

Prova nedanstående kod i textrutans KeyPress händelse:
KeyAscii = Asc(UCase(Chr(KeyAscii)))

eller om du vill ha små bokstäver:
KeyAscii = Asc(LCase(Chr(KeyAscii)))

Vill du ha en förklaring på koden så svara på detta.


Mvh/Olof

Hej
Eftersom det alltid skiljer 32 tecken mellan
versaler och gemener kan du skriva så här
I KeyPress Event

Select Case KeyAscii
Case 97 To 122, 215 To 255
KeyAscii = KeyAscii - 32
'Kommer att ge Versaler
Case 65 To 90, 192 To 223
KeyAscii = KeyAscii + 32
'Kommer att ge gemener
End Select

mvh
Sven

Hej igen
Upptäckte en sak som jag aldrig tänkt på
Om man gör Kopiera och Klistra direkt från
tex mitt exempel ovan får man med skräptecken
(mellanslag) framför tex här KeyAscii vilket medför att VB
bråkar när man försöker köra exemplet.
Se till att vänsterpacka koden innan Ni kör.

mvh
Sven