Sub EditText1_TextChanged (Old As String, New As String)
If ContieneCaratteriNonConsentiti(New) Then
EditText1.Text = Old ' 🔁 Ripristina il testo precedente
ToastMessageShow("Carattere non valido!", False)
End If
End Sub
' Funzione di esempio che controlla simboli vietati
Sub ContieneCaratteriNonConsentiti(testo As String) As Boolean
Dim pattern As String = "[^a-zA-Z0-9 ]" ' Solo lettere, numeri e spazi
Dim m As Matcher
m = Regex.Matcher(pattern, testo)
Return m.Find
End Sub