EVENEMENT RACCOURCIS CLAVIER

Commentaire de Matth1986 le 06/06/2003 18:37:16

merci pour ta source (surtout pour ton module de classe). elle m'a bien servi dans un prog de chargement de site internet (raccourci Crtl+Enter permettant d'ajouter www."ton adresse" .com)

Commentaire de Renfield le 29/09/2003 14:53:57 administrateur CS

Je ne m'y connais helas pas en VBA.

je ne pense cependant pas que l'utilisation de cette classe soit vraiment differente de l'utilisation que tu pourrais en faire en VB...

Commentaire de Renfield le 11/01/2004 20:18:23 administrateur CS

Voilà rnosat, c'est corrigé....

Commentaire de ezekiel95 le 13/01/2004 09:32:53

Dis moi, j'en reviens toujours a ma question sur vba:
Ce type de form n'est pas gérer par vba mais tout le code est dans la classe "ReyHotKey" et est donc utilisable,non?
Quelle classe faut il instancier pour débuter le programme?

Bizoo ;-)

Commentaire de NoFutur le 08/03/2005 17:13:35

Merci pour la source, c'est nickel pour moi :-)
10/10

@plus

Commentaire de gmni le 18/04/2005 15:29:36

Ce code est exellent sauf que...
Sur mon projet il y a plusieurs fenetres. En quittant mon prog, j'ai des erreurs du type "Objet was unload", et il est impossible de fermer la fenetre principale. Quand je met ton code sur celle-ci, l'interface disparait brusquement, rien ce passe... Sinon sur une autre form il y a toujours un bug quand je quitte... Bien étrange non ?

Commentaire de gmni le 18/04/2005 16:12:42

Mon programme est tres lourd.
J'ai un "Form_Unload" sur la form principale avec ce type d'evénements :
Unload about
Unload Chemin
Unload conf
Unload debut
Unload infos
Unload listz
Unload mini
Unload wait
J'ai aussi essayé avec un QueryUnload.

Type d'erreurs :
'
Quand du systray j'ouvre ma fenetre principale, erreur :
"Object was unloaded"
Il me marque en jaune le nom de la form qui contient ton code:
ex: racc.hide
'
Quand je quitte avec le bouton X de la fenetre principale: Rien ce passe.
'
Quand je quitte à partir du systray (form fille du programme):
"Run-time error '365'
Unable to unload within context"
Il me marque "Unload F1" (F1 est la form principale).
'''
J'ai l'impression que ta source prend le dessus sur tous les evenements, meme quand on desactive
avec "HotKey.StopProcessing".
Alors comment la désactiver completement ?

Commentaire de Renfield le 19/04/2005 12:49:03 administrateur CS

Merci de l'info...

pour décharger simplement toutes les fenetres ouvertes dans ton appli... :

Private Sub Form_Unload()
   Dim Form as Form
   For Each Form In Forms
       If Not Form Is Me Then
             Unload Form
       End If
   Next Form
End Sub

Commentaire de Renfield le 07/12/2005 18:35:35 administrateur CS

Si, bien sur...
Shell pour lancer le programme, et un petit appel à FindWindow et DestroyWindow, pour chercher, et fermer le programme "cible"..

Commentaire de Renfield le 08/12/2005 00:15:04 administrateur CS

la base de registres ? pour quoi faire

Commentaire de Renfield le 08/12/2005 09:48:27 administrateur CS

J'avoue ne pas saisir...

Ce que j'ai compris :
Tu souhaite faire un petit programme, qui tourne, admettons dans le Systray...
Quand tu presses par exemple sur Ctrl + E :
  - Si le Bloc-Notes est fermé, le lancer
  - S'il est ouvert, le fermer...

si c'est bien cela, je dirais que dépendant du programme cible, il peu être maladroit voire dangereux de le fermer d'autorité...

Commentaire de titicar le 15/09/2006 18:42:29

Vu la date du post, j'arrive un peu en retard... comme d'hab!
En tout cas, bravo pour cette classe. Je ne savais même pas que ça existait.
Je ne l'ai pas testé en grandeur nature, mais un 9/10 me semble logique.

Par contre, pour trouver le vbKey de la touche PLAY de mon clavier multimédia... c'est pas évident, surtout si l'aide que j'ai trouvé sur vbKey dans VB date de 1995 (le multimédia existait à cette époque?)!
Alors pour ce qui sont dans le même cas que moi, y a une API qui s'en occupe : GetAsyncKeyState.

Créez un nouveau projet avec un TextBox (name=Text1) et un Timer (name=Timer1) et copiez le text suivant dans la Form:

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
' Cet API vous donnera le code vbKey associé à la touche préssée.
' Pour le code des touches 'usuelles', se référer à
'   - l'aide de VB en tapant VBKEY dans la recherche
'   - à la page http://www.vbfrance.com/codes/COMMENT-CONNAITRE-MOTS-PASSE-FACON-PLUS-SIMPLISTE-MONDE_17232.aspx
' Pour les touches plutôt 'nouvelles' genre clavier multimédia avec touches PLAY etc, _
    je n'ai pas trouvé de nom conventionné comme par ex. vbKeyA pour la touche 'A'. _
    En toute logique pour PLAY, le nom serait vbKeyPlay, mais allez savoir...
    

Private Sub Form_Load()
    Text1.Text = vbNullString
    Timer1.Interval = 1
        ' L'interval UN (exprimé en milliseconde) est juste pour cet essai, histoire d'être sur _
        que la touche pressée sera 'captée' par le process Timer. _
        Faut pas oublier que cet interval aussi petit dérange le processeur inutilement.
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim myKey As Integer
    For myKey = 0 To 256 'on scanne toute les touche du clavier
        ' Normalement, mkey n'est jamais égal à zéro
        ' La boucle va jusqu'à 256 (valeur max 8 bits), mais votre clavier n'a sans doute pas autant de touches :-)
        If GetAsyncKeyState(myKey) <> 0 Then
            Text1.Text = myKey
        End If
    Next myKey
End Sub

Commentaire de Duke49 le 21/09/2007 01:54:39

Merci !
Une source vraiment excellente.

Commentaire de Renfield le 12/01/2009 14:26:29 administrateur CS

retestes (j'ai uploadé la chose, en la modifiant pas mal)

Commentaire de Renfield le 12/01/2009 14:58:25 administrateur CS

sisi.

c'est une interface utilisée pour l'instruction
   Implements ISubclasser
du ReyHotKey

Commentaire de Renfield le 12/01/2009 15:59:18 administrateur CS

:/

étrange, dans la maquette, ca tourne avec 5 ....

quel Windows as tu ?
quels sont les raccourcis souhaités ?