Discussion :

[chim33]

Bonjour,

Dans un formulaire je souhaite empêcher l'utilisation des touches PageUp et PageDown
J'ai bien essayé de tester la valeur de Keyascii sur l'évènnement KeyPress, mais j'ai l'impression que ces touches ne génèrent aucun code Ascii. Dailleurs je n'ai rien trouvé dans la doc.
Je n'ai rien vu non plus dans les Options....

Merci pour votre aide éventuelle.

[marot_r]

salut voici les valeurs générées :

vbKeyPageUp et vbKeyPageDown

voir la liste des constantes de KeyPress et regarde si KeyPreview ne ferait pas ton affaire.

A+

[chim33]

voir la liste des constantes de KeyPress et regarde si KeyPreview ne ferait pas ton affaire.

Merci beaucoup, je connaissais bien VbKeyPageUp et Down, mais pas l'utilisation de KeyPreview.

Voilà ce que j'ai mis dans le code de mon formulaire

Code :

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

1
2
3
4
5
6
7
8
Private Sub DateRgtS_KeyPress(KeyAscii As Integer)
  KeyAscii = PavNum(KeyAscii)
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageUp Then KeyCode = vbKeyCancel: Exit Sub
If KeyCode = vbKeyPageDown Then KeyCode = vbKeyCancel: Exit Sub
End Sub

Et pour l'instant ça marche.

J'ai utilisé Cancel comme touche de substitution car elle semble n'avoir aucun effet sur mon forumlaire. J'avais essayé avec KeyCode=Null mais ça me provoquai une erreur.
Si tu as une autre idée pour KeyCode = ??? , merci de me l'indiquer.

[cafeine]

essaie : KeyCode = 0

[chim33]

essaie : KeyCode = 0

Merci Caféine, ça marche très bien avec =0