Discussion :

[shayw]

Bonjour

En utilisant le keypress event de la form
je verifie si le key.char est une lettre mais j'essaie de verifier si elle est sans accent ou tréma ou cédille etc...
faut il que je verifie pour le à è é ê etc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
If Char.IsLetter(e.KeyChar) Then
         Select Case e.KeyChar
                        Case "à"c : 'blabla
                        Case "ç"c
                        Case "è"c
                        Case "é"c
                        Case "ê"c
                        Case "ù"c
                        Case "ô"c
 
                    End Select 
      end if

ou y a t'il une autre astuce ?

Merci

[DotNetMatt]

Il existe une méthode pour vérifier cela. On normalise d'abord la valeur en Unicode :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim letter = e.KeyChar.ToString().Normalize(NormalizationForm.FormD)

Ensuite pour vérifier on compare juste la longueur des 2 chaines (celle normalisée et l'originale). Si elles ne sont pas égales alors il y a un accent :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim hasAccent = letter.Length > e.KeyChar.Length

[EDIT] Oups désolé pour le code en C# je n'avais pas fait attention qu'on était sur le forum VB.NET C'est mis à jour.

[shayw]

Oui ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
s = e.KeyChar.ToString().Normalize(NormalizationForm.FormD)
     If s.Length > e.KeyChar.ToString.Length Then
         Dim letter  As Char
        'la lettre sans accent 
              p = s(0)
      End If