• Home
 · 
• Windows API Call/Explanation
 · 
• Make TextBox to Convert all the Entered Characters to Lower Case

Make TextBox to Convert all the Entered Characters to Lower Case

Make TextBox to Convert all the Entered Characters to Lower Case

API Declarations



Private Const ES_LOWERCASE = &H10&
Private Const GWL_STYLE = (-16)
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long



Rate Make TextBox to Convert all the Entered Characters to Lower Case

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
    Dim tmp As Long
    tmp = SetWindowLong(Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_LOWERCASE)
End Sub