Buonasera a tutti, vorrei che la mia TEXTBOX gestisse solo lettere (e fin qui ci siamo) comprese le lettere accentate o quelle straniere (ç, ü, ä ecc…) e qui non ci siamo.
Mi dà un'errore. Questo è il codice:
Private Sub TbxCognome_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbxCognome.KeyPress
Dim KeyAscii As Byte = Asc(e.KeyChar)
If KeyAscii < 65 And KeyAscii <> 24 And KeyAscii <> 8 And KeyAscii <> 39 Then
KeyAscii = 0
ElseIf KeyAscii > 90 And KeyAscii < 97 Then
KeyAscii = 0
ElseIf KeyAscii > 122 And KeyAscii < 128 Then
KeyAscii = 0
ElseIf KeyAscii > 154 And KeyAscii < 160 Then
KeyAscii = 0
ElseIf KeyAscii > 165 Then
KeyAscii = 0
End If
e.KeyChar = Chr(KeyAscii)
End Sub
Grazie e a presto.