VBA ouvrir clavier virtuel à l'affichage userform

Résolu/Fermé

kevina - 6 juil. 2015 à 09:29
kevina - 7 juil. 2015 à 08:28

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

A voir également:

VBA ouvrir clavier virtuel à l'affichage userform
Ouvrir fichier .bin - Guide
Bureau virtuel windows 10 - Guide
Comment ouvrir un fichier epub ? - Guide
Telecharger clavier arabe virtuel - Télécharger - Divers Web & Internet
Ouvrir fichier rar - Guide

7 réponses

Réponse 1 / 7

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
7 juil. 2015 à 07:57

Bonjour,

'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
7 juil. 2015 à 08:28

Merci beaucoup ça fonctionne très bien!

Réponse 2 / 7

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
6 juil. 2015 à 10:25

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

kevina
6 juil. 2015 à 11:34

Bonjour,

Merci pour votre réponse, mais malheureusement le clavier ne s'ouvre toujours pas.. Pourtant la commande "C:\Windows\System32\osk.exe" fonctionne en utilisant sous Windows..

Réponse 3 / 7

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
6 juil. 2015 à 12:01

Bonjour,

Avec ceci:

 Shell "CMD /C " & """" & "C:\Windows\System32\osk.exe" & """"

Réponse 4 / 7

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 6/07/2015 à 13:56

Re,

faudra m'expliquer pourquoi ca marche chez moi !!!!!!!

Est-ce que le code se deroule ???

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
6 juil. 2015 à 14:41

Re,

fichier test avec ligne de commande au plus simple

https://www.cjoint.com/c/EGgmPsWLvsL

Réponse 6 / 7

kevina
7 juil. 2015 à 03:07

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 !

Réponse 7 / 7

kevina
7 juil. 2015 à 03:47

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

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

Dessiner avec son clavier et avec des lettres

Discussions similaires

Newsletters