EVENEMENT RACCOURCIS CLAVIER
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
4 juin 2003 à 17:46
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 12 janv. 2009 à 16:07
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 12 janv. 2009 à 16:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7330-evenement-raccourcis-clavier
https://codes-sources.commentcamarche.net/source/7330-evenement-raccourcis-clavier
12 janv. 2009 à 16:07
Sinon j'ai testé sous XP et Vista, même soucis.
12 janv. 2009 à 16:00
ce module est reccurrent dans lmes projets, suffit d'ajouter le module et l'interface, ca tourne direct, sans se poser de question...
l'interface est une garantie de ne pas oublier de code ^^
12 janv. 2009 à 15:59
étrange, dans la maquette, ca tourne avec 5 ....
quel Windows as tu ?
quels sont les raccourcis souhaités ?
12 janv. 2009 à 15:55
Sinon la classe ne fonctionne pas dans mon projet au delà de 3. Pareil que l'ancienne mise à part que parfois elle ne n'initialise même pas.
12 janv. 2009 à 14:58
c'est une interface utilisée pour l'instruction
Implements ISubclasser
du ReyHotKey
12 janv. 2009 à 14:54
Sinon à quoi sert la classe ISubclasser.cls ? A rien à première vue :)
12 janv. 2009 à 14:26
12 janv. 2009 à 13:02
Une idée pour corriger cela ?
21 sept. 2007 à 01:54
Une source vraiment excellente.
15 sept. 2006 à 18:54
15 sept. 2006 à 18:42
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
11 janv. 2006 à 20:48
Superbe source qui répond 100% à mes besoins !!!
Bonne continuation !
8 déc. 2005 à 09:48
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é...
8 déc. 2005 à 00:24
alors il faut enregistrer le raccourci quelques par dans windows et je pense que c'est dans la base de registre !
8 déc. 2005 à 00:15
7 déc. 2005 à 19:26
autrement dit:
si par exemple j'appuie sur (Ctrl+E), windows connais le raccourci et ouvre le programme associé !
je pense qu'il faut mettre quelque chose dans la base de registre ?!
7 déc. 2005 à 18:35
Shell pour lancer le programme, et un petit appel à FindWindow et DestroyWindow, pour chercher, et fermer le programme "cible"..
7 déc. 2005 à 18:03
On pourra pas par exemple affecter un raccourci à un programme sous windows pour l'ouvrir ou le fermer ?
19 avril 2005 à 12:49
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
18 avril 2005 à 18:05
Sinon merci pour ton attention,
a+ gmmni
18 avril 2005 à 16:12
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 ?
18 avril 2005 à 15:36
comment quittes tu ton application ?
(code / bouton X ... )
18 avril 2005 à 15:29
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 ?
9 avril 2005 à 01:32
ta source me donne preske la solution que je cherche, connaitrais tu un moyen d interagir avec des applications grace aux touches multimedia d' un clavier??
je pense aux keycodes, mais je n'ai pa reussi a les integrer a ta source.
voila mes keycodes :
suivant : 176
play : 179
stop : 178
precedent : 177
8 mars 2005 à 17:13
10/10
@plus
13 janv. 2004 à 11:03
il te suffirais de copier coller le code présent dans la form, enfin, a quelques details pres, je pense, je te l'ai dit, VBA, je connais pas trop !
13 janv. 2004 à 09:32
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 ;-)
12 janv. 2004 à 20:20
voila un code super utile ... et surtout qui consomme peu de ressoures !
A la prochaine !
Rnosat
11 janv. 2004 à 20:18
11 janv. 2004 à 15:03
moi, sous windows xp avec vb6 prof, la pression de CTRL + SHIFT + Q ne produit rien ! la form reste affichée sans devenir "maximized" ou "minimized".
Je ne vois pas la source de l'erreur, idéees ?
Rnosat
29 sept. 2003 à 14:53
je ne pense cependant pas que l'utilisation de cette classe soit vraiment differente de l'utilisation que tu pourrais en faire en VB...
29 sept. 2003 à 14:14
Merci d'avance!
6 juin 2003 à 18:37
4 juin 2003 à 17:46