Force Case on Text Input

Category: Controls - Edit Controls

Date: 02-16-2022

'Edit controls have the built-in ability to force lower, upper, or password
'case on text as it is entered. style& values are used to produce the result.

'Primary Code:
Control Add TextBox, hDlg, id&, "TextBox", 100,100, 80,20, %ES_LOWERCASE
Control Add TextBox, hDlg, id&, "TextBox", 100,100, 80,20, %ES_UPPERCASE
Control Add TextBox, hDlg, id&, "TextBox", 100,100, 80,20, %ES_PASSWORD   'forces asterisk display

'Compilable Example:  (Jose Includes)
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
Global hDlg As Dword

Function PBMain() As Long
   Dialog New Pixels, 0, "Test Code",300,300,200,200, %WS_OverlappedWindow To hDlg
   Control Add TextBox, hDlg, 100,"Lower", 20,10,100,20, %ES_Lowercase Or %WS_TabStop
   Control Add TextBox, hDlg, 200,"Upper", 20,40,100,20, %ES_Uppercase Or %WS_TabStop
   Control Add TextBox, hDlg, 300,"Psw", 20,70,100,20, %ES_Password Or %WS_TabStop
   Dialog Show Modal hDlg
End Function

'gbs_00132
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm