Discussion :

[Chaton71]

Bien le bonjour à tous,

Récemment j'étais à la recherche d'un nouveau clavier virtuel pour l'utilisation de tablettes fonctionnant sous Windows 10. Le clavier de Windows n'est vraiment pas terrible.
Sans recherches fructueuse, je me suis mis dans l'idée de programmer un clavier virtuel en vb.
Voici l'interface que j'ai créée :


Pour chaque touche j'effectue à peut-prêt la même chose :


Presque tout fonctionne sauf :

- 1er problème :Je n'arrive pas à afficher les caractères "%" "^" qui sont normalement des caractères spéciaux qu'il faut mettre entre accolades {%} {^} mais cela ne m'affiche pas le caractère cela m'affiche soit le chiffre 5 soit le chiffre 6, auriez-vous une solution pour résoudre ce 1er problème ?

- 2eme problème : Pour l'instant mon clavier ne fonctionne que sous l'application Notepad, je me demandais si il était possible de récupérer le nom de la fenêtre qui serait mis au 1er plan dans une variable et l'ajouter dans ma commande AppActivate ?

Je vous remercie d'avance pour l'attention que vous porterez à mon problème


Chaton71

[nouanda]

1 - qu’est-ce que ça donne si tu retourne des chaines échappées (mince, comment on dit escaped strings en français???), en faisant @"^" ou @"%" ?
2 - bien sur que c'est possible! [EDIT] J'avais poste une solution un peu trop complexe... Du cote de System.Diagnotics.Process, il doit y avoir ce qu'il faut...[/EDIT]

[Chaton71]

Salut Nouanda,

Voici par exemple le code qui s'applique sur ma touche "%" :


Quand j'essaye de faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
        If CheckBox1.Checked = True Or CheckBox3.Checked = True Then
            AppActivate("Sans titre*- Bloc-notes")
            System.Windows.Forms.SendKeys.Send(@"%")
            CheckBox1.Checked = False
            CheckBox3.Checked = False
        Else
            AppActivate("Sans titre*- Bloc-notes")
            System.Windows.Forms.SendKeys.Send("ù")
        End If
    End Sub

j'ai un message d'erreur qui apparaît comme quoi une expression est attendu.

Je vais regarder du côté de System.Diagnotics.Process.

Merci