Spanish Controlar introducion texto

Jorgelcr

Active Member
Licensed User
Longtime User
Hola,

Me gustaría poder controlar la introducción del texto en un campo, es decir, controlar que no se puedan introducir, signos, iconos,etc.

Alguien puede indicarme algo?

Gracias!!
 

JCO

Active Member
Licensed User
Longtime User
Que yo sepa, no es posible controlarlo en la interfaz.

Podrías intentar quitar los caracteres inválidos en el código con algo de este estilo:

B4X:
Sub textbox1_TextChanged (Old As String, New As String)
    Dim validChars As String ="ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz0123456789"
  
    Try
        If validChars.Contains(New.SubString(New.Length-1)) = False Then
            textbox1.Text = New.SubString2(0, New.Length-1)
            textbox1.SelectionStart = textbox1.Text.Length          
        End If

    Catch
        Log(LastException)
    End Try

End Sub

Hay que tener en cuenta que en el validChars habrá que incluir también todas las combinaciones de acentos que deben ser aceptados

Saludos,
 
Top