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:	Views:  13.478
www.vbwelt.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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&

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.