Discussion :

[nemog]

Bonjour tout le monde,

J'ai un formulaire avec de nombreuses (variable) textboxes auxquelles je voudrais affecter pendant le chargement du formulaire une fonction sur l'évènement OnKeyDown.

Dans un 1er temps (Load du formulaire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim ctl As Control
 
For Each ctl In Me.Controls
 
ctl.OnKeyDown = "=maFonction(............?)"
 
Next ctl

Dans un 2e temps, dans le vba du formulaire ou un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function maFonction(KeyCode ? as ?)
 
   Dim ctl as control
   Set ctl = Screen.ActiveControl
 
    Select Case KeyCode
 
        Case 65        
            'action1
 
        Case 66        
            'action2
 
    End Select
 
End Function

Mon pb est que je n'arrive pas à 'récupérer' la valeur KeyCode produite à l' appui d'une touche( après avoir mis le curseur dans le textbox concerné, bien sûr ).

Qu'est-ce que j'oublie ? ou ne sais pas encore ?

Merci

[micniv]

Bonjour, j'ai utilisé l'exemple donné dans Microsoft Learn, et ça me parait OK :
donc avec un champ nommé KeyHandler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub KeyHandler_KeyDown(KeyCode As Integer, Shift As Integer)
 Dim intShiftDown As Integer, intAltDown As Integer, intCtrlDown As Integer
 
    ' Use bit masks to determine which key was pressed.
    intShiftDown = (Shift And acShiftMask) > 0
    intAltDown = (Shift And acAltMask) > 0
    intCtrlDown = (Shift And acCtrlMask) > 0
    ' Display message telling user which key was pressed.
    If intShiftDown Then MsgBox "You pressed the Shift key."
    If intAltDown Then MsgBox "You pressed the Alt key."
    If intCtrlDown Then MsgBox "You pressed the Ctrl key."
 
    Debug.Print "You pressed the " & KeyCode & " key"  ' ajout MN
 
End Sub

[nemog]

oui, si on attribue/exploite l ' évènement KeyDown à un textbox bien précis, aucun problème
Mais comment le généraliser à un ensemble variable de textboxes à l'ouverture du formulaire ?

mon critère de départ dans le formulaire est "si le nom du contrôle commence par E"
et à ce moment-là j'essaie d'appliquer la fonction (maFonction) à l'évènement (OnKeyDown)

Je l'ai déjà fait avec l' évènement OnDblClick sans problème parce qu'il n'y a pas de variable associée (comme KeyCode pour OnKeyDown)

Autrement dit : Après avoir cliqué dans un textbox nommé 'Eqquechose', comment puis-je savoir quelle touche a été appuyée dans la fonction maFonction ? est-ce seulement possible ?
Où se trouve la valeur KeyCode au moment du déclenchement de l'évènement KeyDown et comment le transmettre à maFonction ?

J'ai essayé des trucs du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ctl.OnKeyDown = "=maFonction(Keycode as Integer)"
ctl.OnKeyDown = "=maFonction(" & keyCode & ")"

il n'y a que si je force la valeur entre parenthèse que je passe à la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ctl.OnKeyDown = "=maFonction(12)"

mais ça n'a aucun intérêt

[EricDgn]

Voir si quelque chose de ce genre ne pourrait pas être exploité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_KeyPress(KeyAscii As Integer)
    Debug.Print Me.ActiveControl.Name, Chr(KeyAscii)
End Sub
 
Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

Cordialement.

[nemog]

Ben oui ! prendre simplement le pb dans l'autre sens !

Tout autoriser et limiter ensuite aux contrôles intéressés ! Merci EricDgn !

ça donne par exemple (vite fait) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_KeyPress(KeyAscii As Integer)
 
 
    If Left(Me.ActiveControl.Name, 1) <> "E" Then Exit Sub
 
    Select Case KeyAscii
 
        Case 65 'A
 
            Me.ActiveControl.BackColor = RGB(243, 168, 45)
 
        Case 67 'C
 
            Me.ActiveControl.BackColor = RGB(50, 50, 45)
 
    End Select
 
End Sub

Merci aussi à Micniv