Hallo,
weis einer warum dieses code nicht ausgeführt wird, wenn ich eine Text in das Feld Edittext1 reinkopiere, statt eintippe?
gruß
Sinan
weis einer warum dieses code nicht ausgeführt wird, wenn ich eine Text in das Feld Edittext1 reinkopiere, statt eintippe?
B4X:
Sub EditText1_TextChanged (Old As String, New As String)
If EditText1.text = "" Then
Button1.Enabled = False
Else If EditText1.text <> "" Then
Button1.Enabled = True
End If
If EditText1.Height < 225 Then
EditText1.Height = su.MeasureMultilineTextHeight(EditText1, New) + 30dip
Else If EditText1.Height > 225 Then
EditText1.Height = 225
End Ifgruß
Sinan