Création d'un clavier virtuel

Version imprimable

12/03/2018, 17h40
Chaton71

2 pièce(s) jointe(s)

Création d'un clavier virtuel

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 :
Pièce jointe 359413

Pour chaque touche j'effectue à peut-prêt la même chose :
Pièce jointe 359415

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
13/03/2018, 00h46
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]

1 pièce(s) jointe(s)

Salut Nouanda,

Voici par exemple le code qui s'applique sur ma touche "%" :
Pièce jointe 359892

Quand j'essaye de faire

Code:

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 ;)