Sub Process_Globals
Private TextChanged As Boolean
End Sub
Sub EditText1_TextChanged (Old As String, New As String)
'If it's been changed, then this sub will be called again, so ignore the next call
If TextChanged Then
TextChanged = False
Return
End If
TextChanged = True
Dim Pos As Int = EditText1.SelectionStart
EditText1.Text = New.ToLowerCase
EditText1.SelectionStart = Pos
End Sub
Use the filter of my Masked EditText library to convert any character to its lowercase version. It's much better than trying to alter the result with the TextChanged event.Hi, is there a way to force an editText to allways show lower case characters?
Depending on keyboard and its settings the first char may be a capital, but I want all input to be lower case. Didn't find a solution with InputType.
Use the filter event as suggested above.How usage a library Masked EditText library for force all lower case