German Textfeld auf eine Bestimmte Anzahl von Zeichen begrenzen

Sinan Tuzcu

Well-Known Member

Licensed User

Longtime User

• Mar 9, 2019

• #1

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

Longtime User

• Mar 9, 2019

• #2

Sinan Tuzcu said:

die Überschrift sagt bereits alles wo nach ich suche.

Click to expand...

anscheinend hast Du aber dabei nicht die Suche rechts oben auf dieser Seite benutzt.

Dann gibt's auch die passenden Antworten.

 

Sinan Tuzcu

Well-Known Member

Licensed User

Longtime User

• Mar 9, 2019

• #3

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