Edittext maxlength

critalsoft · Jun 21, 2011

Hi Erel,

How can I set the maxlength of any textbox (edittext).

Thanks

gobblegob · Jun 21, 2011

Hi mate I had a quick look through the documentation and it doesn't mention length as a property, maybe you could try something like string length using the edittext textchanged event

edittext1.text = string
if string.length = "3" then
edittext1.enabled = false
else
next if

or something like that maybe, hope it helps.

cheers Waz

Erel · Jun 21, 2011

You will need to handle the TextChanged event. If the text is longer than x characters you should call Substring to truncate it.

davepamn · Nov 3, 2014

Erel said:
You will need to handle the TextChanged event. If the text is longer than x characters you should call Substring to truncate it.

B4X:

Sub txtTruckNumber_TextChanged (Old As String, New As String)

If New.Length>19 Then

txtTruckNumber.text= New.SubString2(0,19)

txtTruckNumber.SelectionStart=19

EndIf

End Sub

The selectionStart keeps the cursor at the end of the textbox

NJDude · Nov 3, 2014

You could try THIS library.

sirjo66 · Jul 11, 2018

I re-open this thread because I want to contribute with my solution, for me better than post #4, because it works better with SelectionStart when you change text at the middle of EditText

B4X:

Sub txtTruckNumber_TextChanged (Old As String, New As String)
   If New.Length > 19 Then
       Dim pos As Int = Codice.SelectionStart
       Codice.Text = Old
       Codice.SelectionStart= pos - 1
   End If
End Sub

Edittext maxlength

critalsoft

Member

gobblegob

Member

Erel

B4X founder

davepamn

Active Member

NJDude

Expert

sirjo66

Well-Known Member

Similar Threads

Edittext maxlength

critalsoft

Member

gobblegob

Member

Erel

B4X founder

davepamn

Active Member

NJDude

Expert

sirjo66

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency