VB-Homepage Tipp 097

UCase gleich bei Eingabe in Textfeldern

UCase - diese VB-Funktion kennen Sie ja sicher, damit läßt sich vorzugsweise Text in generell Großbuchstaben umwandeln. Also so nach dem Motto:
Text1.Text = UCASE(Text1.Text)

Wie wäre es aber, wenn der Benutzer gleich bei der Eingabe in Großbuchstaben schreibt ohne das er dazu die Umschalttaste drücken muß. Da die Funktion auf die Buchstabentasten beschränkt ist, ist es außerdem weiterhin möglich Zahlen und Sonderzeichen einzufügen (wenn gewünscht).

Um das ganze in der Praxis zu erleben, brauchen wir wie immer ein VB3 - Projekt und dieses bekommt als einziges notwendiges Element eine Textbox.

Nun fügen Sie unter
General/Declarations folgendes ein.

Function Upper (KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = KeyAscii - 32
End If
Upper = KeyAscii
End Function

Und als nächstes und zugleich letztes wird der Textbox in der Action KeyPress folgender Aufruf hinzugefügt.

Sub Text1_KeyPress (KeyAscii As Integer)
KeyAscii = Upper(KeyAscii)
End Sub

Und nun ..... Bitte testen

Tipp-Download

Quelle : Chris Warnke,Dell Computer Corp.

Zurück zur Übersichtsseite