M micro Well-Known Member Licensed User Longtime User Jan 26, 2014 #1 Hi to All I use this code for UpperCase Text insert: B4X: Sub TextEdit1_TextChanged (Old As String, New As String) Dim i As Int i = TextEdit1.SelectionStart TextEdit1.Text = New.ToUpperCase TextEdit1.SetSelection(i, i) End Sub there is another better solution? Thanks
Hi to All I use this code for UpperCase Text insert: B4X: Sub TextEdit1_TextChanged (Old As String, New As String) Dim i As Int i = TextEdit1.SelectionStart TextEdit1.Text = New.ToUpperCase TextEdit1.SetSelection(i, i) End Sub there is another better solution? Thanks
Erel B4X founder Staff member Licensed User Longtime User Jan 27, 2014 #2 This is the way to do it. Upvote 0