EditText Max Characters Limit

[msdeveloper]

Is there a way to limit the number of characters a user can enter into EditText? In VB6 I would use the MaxLength property.

 

[Erel]

Something like:

Sub EditText1_TextChanged (Old As String, New As String)
   If New > 100000 Then EditText1.Text = Old
End Sub

 

[msdeveloper]

EditText MaxLength

Thanks. I figured that out right after I posted. I did add one additional part.

Sub txtReading_TextChanged(strOld As String, strNew As String)

'When new length invalid--
' Revert back to previous text, move cursor to the end
If strNew.Length > 3 Then
txtReading.Text = strOld
txtReading.SelectionStart = txtReading.Text.Length
End If


End Sub

 

[Roger Garstang]

Yes, everyone always forgets to set the cursor. I actually get the cursor position before and use the Min function to restore it to where it was or the end of the string as you have. That way if in the middle of the string the cursor is in the same spot.

 

[Sinan Tuzcu]

Something like:

Sub EditText1_TextChanged (Old As String, New As String)
   If New > 100000 Then EditText1.Text = Old
End Sub

this code does not working, because > 100000 this is number and not string.

 

[Mahares]

Here is the correct code:

Sub EditText1_TextChanged (Old As String, New As String)   
     If New.Length > 100000 Then EditText1.Text = Old
End Sub

 

[Eric H]

This code isn't working for me the way I would expect (I can enter 2342789692834 and it doesn't stop me).

Sub Globals
    Dim etxQuantity As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("myLayout")
End Sub

Sub etxQuantity_TextChanged (Old As String, New As String)
    If New.Length > 1000 Then etxQuantity.Text = Old
End Sub

What's wrong? its the same code as above, just EditText1 was changed to etxQuantity...

Thanks

 

[klaus]

What do you expect ?
In your code you limit the length of the text to 1000 characters !

Best regards.

 

[Eric H]

Doh! I mistakenly was thinking max value and not max length Appreciate the help

 

[Bryan]

This can result in your app crashing if using a dictionary/Spellchecking

Sub EditText1_TextChanged (Old As String, New As String)   
If New.Length > 20 Then EditText1.Text = Old
End Sub

If you happen to type into the EditText1 somewhere say 15 characters, and then start typing another word, and your dictionary/spellchecking pops up because of misspelling, and you choose a word that will put you over your max character limit then your app will crash. Maybe someone else can confirm this as I'm running my app in an emulator.

java.lang.IndexOutOfBoundsException: setSpan (11 ... 23) ends beyond length 20
    at android.text.SpannableStringBuilder.checkRange(SpannableStringBuilder.java:945)
    at android.text.SpannableStringBuilder.setSpan(SpannableStringBuilder.java:527)
    at android.text.SpannableStringBuilder.setSpan(SpannableStringBuilder.java:520)
    at android.widget.TextView.setSpan_internal(TextView.java:11473)
    at android.widget.TextView$SuggestionsPopupWindow.onItemClick(TextView.java:9988)
    at android.widget.AdapterView.performItemClick(AdapterView.java:292)
    at android.widget.AbsListView.performItemClick(AbsListView.java:1058)
    at android.widget.AbsListView$PerformClick.run(AbsListView.java:2514)
    at android.widget.AbsListView$1.run(AbsListView.java:3168)
    at android.os.Handler.handleCallback(Handler.java:605)
    at android.os.Handler.dispatchMessage(Handler.java:92)
    at android.os.Looper.loop(Looper.java:137)
    at android.app.ActivityThread.main(ActivityThread.java:4424)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:511)
    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:825)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:592)
    at dalvik.system.NativeStart.main(Native Method)

Best to use
EditText1.InputType = Bit.OR(EditText1.InputType, 524288)
to turn off spellchecking

 

[mangojack]

Maybe read post #4 by Erel Here ....

it should be ..

If New.Length > 20Then EditText1.Text = New.Substring2(0, 20)

Unsure if that solves the spellchecker problem .

 

[Bryan]

Thanks, I try that.

 

[Bryan]

If New.Length > 20Then EditText1.Text = New.Substring2(0, 20)

It Works, but spell checker still crashes my app if It inserts a word that exceeds the edittext1 limit.

 

[Erel]

Remove this event and use IME.SetLengthFilter instead.