Convertir e.keycode en char [Résolu]

Question

Sujet Précédent Sujet Suivant

Convertir e.keycode en char [Résolu]

Signaler

cs_ShayW

Messages postés: 3258
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 3 décembre 2019

- 28 juin 2015 à 09:16
cs_ShayW

Messages postés: 3258
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 3 décembre 2019

- 28 juin 2015 à 11:35

Bonjour,

Je déclare une list of char

 Private remainletters As New List(Of Char)

je remplis cette liste et verifie à l'évenement Form1_KeyDown si le key
se trouve dans la liste .
J'utilise les caractères du clavier espagnol(que j'ai ajouté)
le clavier de base est us
Le problème est que
Si par ex remainletters contient Ñ et que je frappe la touche qui correspond
à la lettre Ñ j'obtiens un résultat erroné

 Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

 If Not remainletters.Contains(Convert.ToChar(e.KeyCode)) And (e.KeyValue <> 8) Then
            Exit Sub
        End If

Merci

A voir également:

Keycode vba
Vba keycode - Meilleures réponses
Char vb.net - Meilleures réponses
Keycode liste ✓ - Forum - Visual Basic
Keycode vba excel ✓ - Forum - Visual Basic
Attribution d'une touche dans un userform à un bouton - Forum - VBA Office (Excel, Word ...)
KeyCode/VbKeyLeft - Forum - Visual Basic
KeyCode du point d'exclamation ?? - Forum - Visual Basic

4 réponses

Répondre Posez votre question

ucfoutu · Answer 1 · 2015-06-28T10:30:25+0200

Bonjour,

Je ne crois pas que cela soit possible, dès lors que Windows réagit en fonction, à la fois :
- de la touche pressée (sa position)
- de l'affectation faite d'un caractère à cette touche
Or, il n'y a à ma connaissance qu'une seule affectation possible : celle définie pour l'objet clavier (global).
Pour être plus clair : si par exemple tu :
- branches un clavier azerty
- et un second clavier qwerty
- et que tu choisis de déclarer que ton clavier est Français
===>>>
la pression de la touche A sur le clavier français affichera "a"
la pression de la touche Q sur le clavier anglais affichera également "a" et non "q".

ucfoutu · Answer 2 · 2015-06-28T10:36:35+0200

Réponse 2 / 4

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

237
28 juin 2015 à 10:36

Il te faut donc à mon sens nécessairement déclarer que tu vas utiliser tel ou tel autre clavier avant de l'utiliser
Sous VB.Net, cela peut apparemment se faire comme tu le verras ici :
http://www.commentcamarche.net/forum/affich-11596045-changement-de-langue-sous-vb-net

Whismeril · Answer 3 · 2015-06-28T10:53:45+0200

Réponse 3 / 4

Whismeril

Messages postés: 16041
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 19 juin 2021

551
28 juin 2015 à 10:53

Bonjour, vite fait, il y a peut-être moyen de prendre directement le bon cultureinfo sans passer par la récupération de tous les existants

        Dim es As Globalization.CultureInfo = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)(9)
        Dim c As Char = Convert.ToChar(209, es)

cs_ShayW · Answer 4 · 2015-06-28T11:35:08+0200

Merci à vous deux
en bricolant un peu

Dim c As Char
        If e.KeyCode = Keys.Oem3 Then
            c = "Ñ"c
        Else
            c = Convert.ToChar(e.KeyCode)
        End If
        If Not remainletters.Contains(c) And (e.KeyValue <> 8) Then
            Exit Sub
        End If

ou

 Dim c As Char
        Dim es As Globalization.CultureInfo = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)(9)
        If e.KeyCode = Keys.Oem3 Then
            c = "Ñ"c
        Else
            c = Convert.ToChar(e.KeyCode, es)
        End If
        If Not remainletters.Contains(c) And (e.KeyValue <> 8) Then
            Exit Sub
        End If

Votre réponse