Hauptseite >Tips zu VB5/6 >  Eingaben in eine Textbox in Grossbuchstaben umsetzen
 
Wenn Sie erreichen möchten, dass sämtliche Benutzereingaben in eine Textbox automatisch in Grossbuchstaben umgesetzt werden, können Sie dies relativ umständlich mit VB-Methoden bewerkstelligen (Stichworte Change-Event, UCase$-Funktion). Einfacher geht's mit folgender Funktion, die der Textbox den Fensterstil ES_UPPERCASE verpasst; Windows kümmert sich dann um alles Notwendige.

Option Explicit

'API-Deklarationen
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const ES_UPPERCASE& = &H8&
Const GWL_STYLE& = (-16)


'Routine zum Setzen des Fensterstils
Sub SetTextBoxUppercase(ByVal tb As TextBox)
  Dim dwStyle As Long
  dwStyle = GetWindowLong(tb.hwnd, GWL_STYLE)
  dwStyle = dwStyle Or ES_UPPERCASE
  Call SetWindowLong(tb.hwnd, GWL_STYLE, dwStyle)
End Sub
            
Anwendungsbeispiel:

Sub Form_Load()
  SetTextBoxUppercase Me.Text1
End Sub
            
Hauptseite >  Tips zu VB5/6 >  diese Seite