Bonjour à tous,

Je voudrais savoir comment fermer le clavier virtuel à l'aide d'un bouton en VB.

J'ai déjà ce code pour l'ouvrir avec un autre bouton:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim proc As New System.Diagnostics.Process()
        'Nom de l'executable à lancer
        proc.StartInfo.FileName = "osk.exe"
        proc.Start()
 
Et pour le fermer j'ai essayé ça, mais quand je lance le programme ça me ferme le clavier virtuel et la userform, j'aimerai juste fermer le clavier virtuel.
 
Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
        Dim p() As Process
        Dim r As Process
        If e.KeyCode = Keys.Enter Then
            p = Process.GetProcessesByName("osk.exe")
            For Each r In p
 
                r.Kill()
            Next
 
 
            End
 
 
        End If