Firetextbox Uppercase characters

[Petrus Vorster]

Is there a way to make a firetextbox only upper or lower text characters by default?

[Paul Squires]

Hi Peter,

It has been a loooooooong time since I worked with the FireTextBox code, but the code below should help you filter out uppcase letters. You can easily modify the SELECT CASE to filter out whatever you don't want.

Code Select Expand


'--------------------------------------------------------------------------------
Function FORM1_FIRETEXTBOX1_FIRETEXTBOX_MSG_KEYPRESS (ControlIndex As Long, hWndForm As Dword, hWndControl As Dword, idTextControl As Long, pKeyPressNotify As Dword) As Long

   Dim pKey As FIRETEXTBOX_KEYPRESS Ptr
   
   pKey = pKeyPressNotify
   
   Select Case @pKey.nKeyPress
      Case 65 To 90    ' all uppercase letters
         ' cancel the input of the uppercase letter
         Function = 1: Exit Function
   End Select     
   
   Function = 0   ' change according to your needs
End Function


[Petrus Vorster]

Thanks, yes i had something like this going. I just thought it could be done like a normal textbox.
I kind of like the fire-textbox's line and looks.