German Textfeld auf eine Bestimmte Anzahl von Zeichen begrenzen

[Sinan Tuzcu]

Hallo,

die Überschrift sagt bereits alles wo nach ich suche.
Mein Versuch war wie folgt:

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]

die Überschrift sagt bereits alles wo nach ich suche.

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

Dann gibt's auch die passenden Antworten.

 

[Sinan Tuzcu]

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