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.