Tableaux spécial pour keycode

Commenter

Contenu du snippet

Ce tableau peut servir à queqleus personnes qui mettent des raccourcis de fonction sur des keycode et qui souhaite donné le nom de la touche par simple donné du Keycode

Source / Exemple : 


'''Dans un module'''

Public MtKCd As Variant

Public Sub ChargementMtKDwn()

    Dim Var As Integer, Cp As Byte, MatUt As Variant

    ReDim MtKCd(255) As String
        
    For Var = 0 To 255
        MtKCd(Var) = "Non reconnue"
    Next
    
    For Var = 65 To 90
        MtKCd(Var) = Chr(Var)
    Next
    
    For Var = 96 To 105
        MtKCd(Var) = "Num Pad " & Cp
        Cp = Cp + 1
    Next
    Cp = 0
    
    For Var = 48 To 57
        MtKCd(Var) = CStr(Cp)
        Cp = Cp + 1
    Next
    Cp = 0
    
    MatUt = Array("*", "+", "Non reconnue", "-", ".", "/")
    For Var = 106 To 111
        MtKCd(Var) = "Num Pad " & MatUt(Cp)
        Cp = Cp + 1
    Next
    Cp = 0: Erase MatUt
    
    MatUt = Array("Espace", "Page précédente", "Page suivante", "Fin", "Origine")
    For Var = 32 To 36
        MtKCd(Var) = MatUt(Cp)
        Cp = Cp + 1
    Next
    Cp = 0: Erase MatUt

    MtKCd(45) = "Insérer": MtKCd(46) = "Supprimer"
    MtKCd(13) = "Entrée": MtKCd(19) = "Pause"
    MtKCd(145) = "Arrêt défilement": MtKCd(27) = "Echap"
    MtKCd(37) = "Flèche gauche": MtKCd(39) = "Flèche droite"
    MtKCd(38) = "Flèche haute": MtKCd(40) = "Flèche basse"

End Sub
'''Fin du module'''

'''Dans une form''' (un pti exemple)

Private Sub Form_Load()
 
    Me.KeyPreview = True 
    ChargementMtKDwn
    
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     
    if MtKcd(KeyCode)<>"Non reconnue" then MsgBox "Vous avez pressée la touche : " & MtKcd(Keycode)
    
End Sub
'''Fin de la form'''

Conclusion :


Si la touche n'est pas reconnue il n'affiche pas la touche pressée, j'ai omis volontairement certaine touche qui pourrait interférer avec l'utilisation des raccourci Menu.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gandalfkhorne)