Discussion :

[Alsk6]

Bonjour,

J'ai utilisé la solution proposée dans la faq pour bloquer la molette de la souris : http://access.developpez.com/faq/?pa...#molettesouris
mais la molette continue d'être active dans les sous formulaires...
J'ai tenté de copier le code dans les évènements des sous formulaires, cela bloque effectivement la molette, mais verouille aussi les sous-formulaires!

Quelqu'un sait-il comment bloquer la molette dans les sous formulaires?

Merci!

[argyronet]

Bonjour,

...mais la molette continue d'être active dans les sous formulaires...

Il y a quelque chose de pas clair dans tes actions...

J'ai tenté de copier le code dans les évènements des sous formulaires, cela bloque effectivement la molette, mais verouille aussi les sous-formulaires!

Peut-on voir ton code dans les 2 classes ?

Argy

[Alsk6]

bonjour,

J'ai vraiment utilisé le code de la faq, après avoir installé et référencé la dll:
La seule chose différente est que je n'utilise pas la déclaration Option Explicit.

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
19
20
21
22
23
' Déclaration dans chaque formulaire après Option Explicit et Option Compare Database
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
 
 'Procédure à rajouter dans chaque formulaire
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    Cancel = True
End Sub
 
Private Sub Form_Load()
        'Code à rajouter dans l'événement chargement de chaque formulaire   
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
 
Private Sub Form_Close()
    'Code à rajouter dans l'événement fermeture de chaque formulaire
    If Not (clsMouseWheel Is Nothing) Then
        clsMouseWheel.SubClassUnHookForm
        Set clsMouseWheel.Form = Nothing
        Set clsMouseWheel = Nothing
    End If
End Sub

Ce code est donc sensé fonctionner aussi dans les sous-form?

[Arkham46]

bjr,

Ce code est donc sensé fonctionner aussi dans les sous-form?

oui mais il ne fonctionne pas
suit ce lien pour une dll qui fonctionne dans les sous-formulaires

[Alsk6]

ok, merci,
A.