German Textfeld auf eine Bestimmte Anzahl von Zeichen begrenzen

Sinan Tuzcu

Well-Known 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.
 

Kiffi

Well-Known Member
Licensed User
die Überschrift sagt bereits alles wo nach ich suche.
anscheinend hast Du aber dabei nicht die Suche rechts oben auf dieser Seite benutzt.

rNHq4HD.png


Dann gibt's auch die passenden Antworten.
 

Sinan Tuzcu

Well-Known 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