B4J Question [SOLVED][B4X] TextArea: max. number of characters

[GMan]

Is it possible to restrict a textarea to i.e. the max. of 80 characters, may be a min-length, too ?

 

[Andrew (Digitwell)]

You can use the _TextChanged(old as string, new as string) method to check the length of the new string and limit it to 80 characters.

 

[GMan]

Sure, i am using it this way - but its not good.

Private Sub TextArea1_TextChanged (Old As String, New As String)
    If TextArea1.Text.Length > 80 Then
        TextArea1.Editable = False
    End If
End Sub

Its not good, because if the are more then 80 chars the user cant correct it.

I need a choice to stop the input, so disable the input

 

[Andrew (Digitwell)]

You should try
:

Private Sub TextArea1_TextChanged (Old As String, New As String)
    If new.Length > 80 Then
        TextArea1.text = old
        TextArea1.setSelection(textarea1.text.length,textarea1.text.length) ' put the cursor at the end of the text
    End If
End Sub

or

Private Sub TextArea1_TextChanged (Old As String, New As String)
    If new.Length > 80 Then
        TextArea1.text = new.substring2(0,79)
        TextArea1.setSelection(textarea1.text.length,textarea1.text.length) ' put the cursor at the end of the text
    End If
End Sub

This is probably better as it can cope with pasting in lots of text.

edit: minor corrections to if statement

 

[GMan]

Thx, that does the trick