[déplacé VB.NET - VBA] Désactiver évènement "wheel" de la souris sur formulare

Question

Bonjour à toutes et à tous,

J'ai trouvé ce code sur le FAQ de developpez.com.

Option Compare Database
Option Explicit
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    Cancel = True
End Sub

Private Sub Form_Close()
If Not (clsMouseWheel Is Nothing) Then
        clsMouseWheel.SubClassUnHookForm
        Set clsMouseWheel.Form = Nothing
        Set clsMouseWheel = Nothing
    End If
End Sub

Private Sub Form_Load()
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub

Je l'ai intégré dans un projet test.
ça ne fonctionne pas, j'ai l'erreur suivant :
Erreur d'exécution '50002'
Erreur définie par l'applicatiion ou par l'objet.

Si quelqu'un à une idée, je suis prenneur.

Merci


Willy

PCPT · Answer

salut,

ME est un userform (et non une form), es-tu sûr que ce code est compatible VBA ????

(j'ai d'ailleurs déplacé ta question vers le thème approprié, il faut faire attention)

le mieux reste sans doute de demander directement à l'auteur du code sur DVP...

++
[hr]

PCPT · Answer

(désolé du double post)

ET DU COUP C'EST TOUT SIMPLE :
que le code soit compatible ou pas, tu as mis :

Private Sub Form_Load() 
or en VBA cet évènement n'existe pas, du coup ce code n'est pas exécuté logiquement...

(même si çà n'explique pas le code erreur relevé)

[déplacé VB.NET -> VBA] Désactiver évènement "wheel" de la souris sur formulare

2 réponses

Votre réponse

Discussions similaires