VBA ouvrir clavier virtuel à l'affichage userform
Résolu
kevina
-
kevina -
kevina -
Bonjour,
Je n'arrive pas à ouvrir le clavier virtuel de windows lors de l'affichage d'un de mes userform.
J'ai essayé de coder dans mon userform:
Private Sub LaTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.ShortcutMenu = False
If Button = acRightButton Then
Shell "osk.exe"
End If
End Sub
Je souhaiterai que celui apparaisse lorsque l'utilisateur clique dans la textebox1.
Merci de votre aide,
Kevina
Je n'arrive pas à ouvrir le clavier virtuel de windows lors de l'affichage d'un de mes userform.
J'ai essayé de coder dans mon userform:
Private Sub LaTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.ShortcutMenu = False
If Button = acRightButton Then
Shell "osk.exe"
End If
End Sub
Je souhaiterai que celui apparaisse lorsque l'utilisateur clique dans la textebox1.
Merci de votre aide,
Kevina
A voir également:
- VBA ouvrir clavier virtuel à l'affichage userform
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Clavier virtuel iphone - Guide
- Bureau virtuel windows 10 - Guide
7 réponses
Bonjour,
'http://vb.developpez.com/faq/?page=Systeme#killprocess
'http://vb.developpez.com/faq/?page=Systeme#killprocess
Private Sub CommandButton2_Click()
KillProcess "osk.exe"
End Sub
Public Function KillProcess(ByVal ProcessName As String) As Boolean
Dim svc As Object
Dim sQuery As String
Dim oproc
Set svc = GetObject("winmgmts:root\cimv2")
sQuery = "select * from win32_process where name='" & ProcessName & "'"
For Each oproc In svc.execquery(sQuery)
oproc.Terminate
Next
Set svc = Nothing
End Function
kevina
Merci beaucoup ça fonctionne très bien!
Bonjour,
Private Sub LaTextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.ShortcutMenu = False
If Button = 1 Then 'clic gauche
retval = Shell("cmd /c C:\Windows\System32\osk.exe", vbNormalFocus)
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci beaucoup pour vos réponses. Désolé f894009 je ne comprends pas non plus pourquoi ca ne fonctionnait pas.
Cs_le_pivert encore une fois merci !
Cs_le_pivert encore une fois merci !
Voilà le code pour ouvrir le clavier lorque mon userform est activé:
Private Sub UserForm_Activate()
'open virtual keyboard
keyboard = Shell("CMD /C " & """" & "C:\Windows\System32\osk.exe" & """")
End Sub
Pour fermer le clavier j'ai essayé (mais ca ne fonctionne pas) :
Private Sub UserForm_Click()
KillApp keyboard
End Sub
Private Sub UserForm_Activate()
'open virtual keyboard
keyboard = Shell("CMD /C " & """" & "C:\Windows\System32\osk.exe" & """")
End Sub
Pour fermer le clavier j'ai essayé (mais ca ne fonctionne pas) :
Private Sub UserForm_Click()
KillApp keyboard
End Sub