pcsoft.fr.windevCopyright 2026, PC SOFT6 Jul 2020 11:40:34 Z6 Jul 2020 10:56:11 ZBonjour, Ci dessous un petit code pour afficher la liste des raccourcis clavier d'une fenêtre. Merci à ceux qui ont répondu au post https://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev/240929-raccourcis-clavier/read.awp Soit : - constantesTouches un tableau associatif de chaines reprenant les constantes de KeyConst.wl ex. [code:wl] constantesTouches[ 0x0D ] = "Entrée" // "VK_RETURN" [/code] - gproc_traduire_toucheRaccourci qui traduit le numéro de la propriété ..ToucheRaccourci en chaine - gproc_afficher_touchesRaccourcis qui renvoie une info listant tous les raccourcis [code:wl] PROCÉDURE gproc_traduire_toucheRaccourci( _toucheRaccourci est un entier, _libelle est une chaîne = "" ) i, iMax est un entier toucheRaccourci, valeurSansPoidsFaible est un entier libelle, toucheControle, toucheCaractere, toucheConstante est une chaîne combinaison est un tableau de 0 chaîne avecEtCommercial est un booléen toucheRaccourci = _toucheRaccourci libelle = _libelle // Après '&' du libellé SI toucheRaccourci = 65535 _ET_ libelle <> "" ALORS iMax = Taille( libelle ) POUR i = 1 À iMax SI libelle[ i ] = "&" ALORS avecEtCommercial = PAS avecEtCommercial SINON SI avecEtCommercial ALORS TableauAjoute( combinaison, "Alt + " + libelle[ i ] ) SORTIR FIN // SI libelle[ i ] = "&" ALORS FIN // POUR i = 1 À iMax SINON valeurSansPoidsFaible = Val( toucheRaccourci - PoidsFaible( toucheRaccourci ) ) SELON valeurSansPoidsFaible CAS trAlt : toucheControle = "Alt" CAS trControl : toucheControle = "Ctrl" CAS trShift : toucheControle = "Maj" AUTRE CAS : toucheControle = "" FIN // SELON valeurSansPoidsFaible SI toucheControle <> "" ALORS TableauAjoute( combinaison, toucheControle ) SI PoidsFaible( toucheRaccourci ) >= 0 ET PoidsFaible( toucheRaccourci ) <= 255 ALORS toucheConstante = COL_Outils.constantesTouches[ PoidsFaible( toucheRaccourci ) ] SI toucheConstante <> "" ALORS TableauAjoute( combinaison, toucheConstante ) SINON toucheCaractere = Caract( PoidsFaible( toucheRaccourci ) ) SI toucheCaractere <> "" ALORS TableauAjoute( combinaison, toucheCaractere ) FIN // SI toucheCaractere <> "" ALORS FIN // SI toucheConstante <> "" ALORS FIN // SI PoidsFaible( toucheRaccourci ) >= 0 ET PoidsFaible( toucheRaccourci ) <= 255 ALORS FIN // SI toucheRaccourci = 65535 ALORS RENVOYER TableauVersChaîne( combinaison, " + " ) [/code] [code:wl] PROCÉDURE gproc_afficher_touchesRaccourcis( _fenetreInterne est un Champ ) raccourcis est un tableau de chaîne iproc_enumereChamp( _fenetreInterne ) SI TableauOccurrence( raccourcis ) > 0 ALORS TitreSuivant( "Raccourcis clavier" ) Info( TableauVersChaîne( raccourcis, CR ) ) FIN // SI TableauOccurrence( raccourcis ) > 0 ALORS PROCÉDURE INTERNE iproc_enumereChamp( LOCAL _parent est un Champ ) i est un entier champ, libelle, raccourci est une chaîne parents est un tableau de Champ c est un Champ // Boucle sur les champs i = 1 champ = EnumèreChamp( _parent, i ) TANTQUE champ <> "" c <- EnumèreChamp( _parent, i ) SI c..Type DANS ( typDisposition, typFen, typGrp, typFenêtreInterne, typModèleDeChamp, typOnglet, typRegroupementRuban, typRuban, typSuperChamp, typTiroir, typVoletOnglet, typZoneMultiligne, typZoneRépétée ) ALORS TableauAjoute( parents, c ) SINON SI c..ToucheRaccourci <> 0 ALORS raccourci = gproc_traduire_toucheRaccourci( c..ToucheRaccourci, c..Libellé ) SI raccourci <> "" ALORS SELON c..Type CAS typBouton : libelle = "Bouton" CAS typComboAVS, typComboSNS, typListe, typListeImage : libelle = "Liste" CAS typInterr, typInterrupteurABascule : libelle = "Interrupteur" CAS typSélect : libelle = "Sélecteur" AUTRE CAS : libelle = "Champ" FIN // SELON c..Type SI c..Libellé <> "" ALORS libelle += [ " " ] + c..Libellé SINON libelle += [ " " ] + champ FIN // SI c..Libellé <> "" ALORS TableauAjoute( raccourcis, libelle + " : " + raccourci ) FIN // SI raccourci <> "" ALORS FIN // SI champs[ champ ]..ToucheRaccourci <> 0 ALORS FIN // SI champs[ champ ]..Type DANS ( typDisposition, typFen, typGrp, typFenêtreInterne, typModèleDeChamp, typOnglet, typRegroupementRuban, typRuban, typSuperChamp, typTiroir, typVoletOnglet, typZoneMultiligne, typZoneRépétée ) ALORS i++ champ = EnumèreChamp( _parent, i ) FIN // TANTQUE champ <> "" POUR TOUT parent DE parents iproc_enumereChamp( parent ) FIN // POUR TOUT parent de parents FIN // PROCÉDURE INTERNE iproc_enumereChamp( LOCAL _parent est une chaîne ) [/code] Et le résultat : https://hostimage.windev.io/images/capture1_29a616cd1308bf99fc6453127b862b42.png https://hostimage.windev.io/images/capture2_df5785c9e5a569b6cc52fbb25804918b.png30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240956-raccourcis-clavier/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Samir BOUCHETIBATpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240956-raccourcis-clavier-240957/read.awp6 Jul 2020 11:40:34 ZBonjour, Merci pour le partage. Toujours appréciable d'avoir un retour sur l'usage fait des contributions. Bon dev !https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240956-raccourcis-clavier-240957/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240956-raccourcis-clavier-240957/read.awpRaccourcis clavier