Spanish [SOLUCIONADO]Avisa cuando supere X caracteres

TheFalcon · Feb 29, 2016

Buenas, estoy mirando pero no encuentro nada que me valga comento:
Para hacerlo resumido, lo que quiero saber es si puedo hacer que en un textbox cuando supere 40 caracteres me avise que e pasado el limite permitido , pero me deje seguir metiendo caracteres.

en B4 no se como contabilizar los caracteres que añado.

Gracias y un saludo

Heppy · Feb 29, 2016

Hola.

B4X:

Sub EditText1_TextChanged (Old As String, New As String)
    Dim s As String
    s=New
    Label1.text=s.Length
    If s.Length>40 Then ToastMessageShow("Límite",False)
end sub

TheFalcon · Aug 6, 2016

Es de bien nacidos ser agradecidos jeje.
Mas vale tarde que nunca pero hasta ayer aunque parezca mentira no pude probarlo.
Va perfecto es lo que buscaba muchísimas gracias Heppy.
Me lo guardo en mis apuntes

Spanish [SOLUCIONADO]Avisa cuando supere X caracteres

TheFalcon

Active Member

Heppy

Active Member

TheFalcon

Active Member

Spanish [SOLUCIONADO]Avisa cuando supere X caracteres

TheFalcon

Active Member

Heppy

Active Member

TheFalcon

Active Member

Privacy & Transparency

Privacy & Transparency