Hi,
I created folowing sub:
Sub EditText1_TextChanged (Old AsString, New AsString)
If New.Length >8Then
Msgbox("Max 8 letters","")
EditText1.Text= Old
EndIf
End Sub
the error is not the message but putting comment the line [EditText1.Text= Old] the app continues.
also the emulator stoppes with the message unfortunaly...etc...
i, however, want that the user has a max [edittext - input] of 8 characters.
Thanks for any help.
Léon
I created folowing sub:
Sub EditText1_TextChanged (Old AsString, New AsString)
If New.Length >8Then
Msgbox("Max 8 letters","")
EditText1.Text= Old
EndIf
End Sub
the error is not the message but putting comment the line [EditText1.Text= Old] the app continues.
also the emulator stoppes with the message unfortunaly...etc...
i, however, want that the user has a max [edittext - input] of 8 characters.
Thanks for any help.
Léon