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 |
Partager