cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007
-
31 mai 2004 à 08:13
gandalfkhorne
Messages postés70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004
-
1 juin 2004 à 13:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
gandalfkhorne
Messages postés70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004 1 juin 2004 à 13:07
NHenry c très intéressant, mais en faisant ta boucle tu perd du temps parce que tu rajoutes des conditions.
Sinon j'ai po mis certaine comme Ctrl, Alt, F1 à F12 car ca interfere avec les raccourcis menu, et désolé mais j'ai terminé de compléter chez moi et j'ai boulier d'y remetrre (merci qd meme Lord Freddy)
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 1 juin 2004 à 12:58
Je n'ai pas testé la source, mais il me semble que la premiere boucle qui met tout le tableauà "Non reconnue", tu peu la virée et mettre à la fin de ta procédure :
if Tableau(Index)="" then Fonction="Non recconnue" else Fonction=Tableau(Index)
TheLordFreddy
Messages postés157Date d'inscriptionmardi 9 décembre 2003StatutMembreDernière intervention 3 février 20052 1 juin 2004 à 11:25
voila et pour les touche F1 a F12 ya plus simple soit:
For Var = 112 To 123
MtKCd(Var) = "F" & Var - 111
Next
bon jespere n'avoir pa dit de bêtise ^^
a+
lauchris1
Messages postés4Date d'inscriptionmardi 25 mai 2004StatutMembreDernière intervention 7 janvier 2005 1 juin 2004 à 08:54
C'est très intéressant.
J'ai aussi une petite routine qui sert à detecter les touches de fonctions (F1, F2 ...)
La voilà
Pour compléter la routine, on peut ajouter le test des vbKey
Public Sub Touches_fct(KeyCode)
If KeyCode = vbKeyF5 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(1)
ElseIf KeyCode = vbKeyF6 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(2)
ElseIf KeyCode = vbKeyF7 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(3)
ElseIf KeyCode = vbKeyF8 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(4)
ElseIf KeyCode = vbKeyF1 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(5)
ElseIf KeyCode = vbKeyF9 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(6)
End If
End Sub
C'est en fait une routine qui doit être appelée dans l'événement KEYDOWN de la forme. Elle fonctionne à condition de mettre la propriété KEYPREVIEW de la forme à TRUE.
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 31 mai 2004 à 08:13
Je voulai justement le faire et tu l'a fait, merci a toi, c'est pile ce que je voulai en plus
1 juin 2004 à 13:07
Sinon j'ai po mis certaine comme Ctrl, Alt, F1 à F12 car ca interfere avec les raccourcis menu, et désolé mais j'ai terminé de compléter chez moi et j'ai boulier d'y remetrre (merci qd meme Lord Freddy)
1 juin 2004 à 12:58
if Tableau(Index)="" then Fonction="Non recconnue" else Fonction=Tableau(Index)
1 juin 2004 à 11:25
pour ceux qui recherche les autres touches (il manque Impr écran):
MtKCd(16) = "Shift"
MtKCd(17) = "Control"
MtKCd(18) = "Alt"
MtKCd(222) = "²"
MtKCd(9) = "Tab"
MtKCd(20) = "Cadena"
MtKCd(8) = "Retour"
MtKCd(37) = "Flèche gauche"
MtKCd(38) = "Flèche haut"
MtKCd(39) = "Flèche droite"
MtKCd(40) = "Flèche bas"
MtKCd(144) = "VerrNum"
MtKCd(92) = "Windows"
MtKCd(93) = "Menu"
MtKCd(27) = "Echape"
MtKCd(12) = "Num Pad 5"
MtKCd(221) = "^"
MtKCd(186) = "$"
MtKCd(192) = "ù"
MtKCd(220) = "*"
MtKCd(188) = ","
MtKCd(190) = ";"
MtKCd(191) = ":"
MtKCd(223) = "!"
MtKCd(226) = "<"
MtKCd(219) = ")"
MtKCd(187) = "="
voila et pour les touche F1 a F12 ya plus simple soit:
For Var = 112 To 123
MtKCd(Var) = "F" & Var - 111
Next
bon jespere n'avoir pa dit de bêtise ^^
a+
1 juin 2004 à 08:54
J'ai aussi une petite routine qui sert à detecter les touches de fonctions (F1, F2 ...)
La voilà
Pour compléter la routine, on peut ajouter le test des vbKey
Public Sub Touches_fct(KeyCode)
If KeyCode = vbKeyF5 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(1)
ElseIf KeyCode = vbKeyF6 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(2)
ElseIf KeyCode = vbKeyF7 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(3)
ElseIf KeyCode = vbKeyF8 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(4)
ElseIf KeyCode = vbKeyF1 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(5)
ElseIf KeyCode = vbKeyF9 Then
MDIForm1.Toolbar1_ButtonClick MDIForm1.Toolbar1.Buttons(6)
End If
End Sub
C'est en fait une routine qui doit être appelée dans l'événement KEYDOWN de la forme. Elle fonctionne à condition de mettre la propriété KEYPREVIEW de la forme à TRUE.
31 mai 2004 à 08:13