Nur Groß- oder Kleinbuchstaben in Textboxen Wenn man in Textboxen nur Groß- oder Kleinbuchstaben erlauben will, muß man nicht unbedingt jeden Tastaturcode auslesen und umwandeln. Viel einfache...
Autor:   Wolfgang Kluge	Bewertung:     [ Jetzt bewerten ]	Views:  13.472
www.vbwelt.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 15 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wenn man in Textboxen nur Groß- oder Kleinbuchstaben erlauben will, muß man nicht unbedingt jeden Tastaturcode auslesen und umwandeln. Viel einfacher geht das mit der API-Funktion SetWindowLong.

' zunächst die benötigten Deklarationen
Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long
 
Private Const GWL_STYLE = (-16)

Zuerst werden die aktuellen Einstellungen der Textbox ausgelesen und mit SetWindowLong werden diese dann zurückgeschrieben. Windows wandelt nun alle Buchstaben in Groß- bzw. Kleinbuchstaben um, bevor sie an die Textbox geschickt werden.

' Nur Groß- oder Kleinbuchstaben in Textboxen
f& = GetWindowLong(Text1.hwnd, GWL_STYLE)
f& = f& Or &H8
' f& = f& Or &H10 für Kleinbuchstaben
SetWindowLong Text1.hwnd, GWL_STYLE, f&
 
' Normalzustand wiederherstellen
f& = GetWindowLong(Text1.hwnd, GWL_STYLE)
f& = f& And Not &H8
' f& = f& And Not &H10 bei Kleinbuchstaben
SetWindowLong Text1.hwnd, GWL_STYLE, f&