German Textfeld auf eine Bestimmte Anzahl von Zeichen begrenzen

Sinan Tuzcu

Active Member
Licensed User
Hallo,

die Überschrift sagt bereits alles wo nach ich suche.
Mein Versuch war wie folgt:
B4X:
Sub txtOutputName_TextChanged (Old As String, New As String)
    If Old.Length = 30 Then
        txtOutputName.Text = txtOutputName.Text.SubString2(0, txtOutputName.Text.Length - 1)
    End If
End Sub
liefert Fehler, sobald ein LeerString existiert.
 

Sinan Tuzcu

Active Member
Licensed User
;) ok, ich hatte lenght eingegeben

hat sich erledigt

Sub EditText1_TextChanged (Old As String, New As String)
If New.Length > 4 Then
EditText1.Text = New.SubString2(0,4)
End If
End Sub
 
Top