[VB.NET] Fonction PreFilterMessage n'est plus appelée
Bonjour à toutes et à tous,
Je vous lis très fréquemment car je suis débutant en VB.NET, je développe sous VS2013.
Je vous sollicite car je suis interloqué par quelque chose de bizarre et j'aimerai votre avis d'expert :)
J'ai implémenté ImessageFilter sur une de mes forms afin de créer un compteur d'inactivité.
J'ai un timer qui à chaque tick de 1s incrémente un compteur, ce compteur est remis à 0 dans cette sub :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements IMessageFilter.PreFilterMessage
Dim mouse As Boolean = m.Msg = &H202
Dim kbd As Boolean = (m.Msg >= &H100 And m.Msg <= &H109)
If Me.Lbl_Log.Text <> "1" Then Exit Function
If mouse Or kbd Then
TempsInactivite = 0
End If
End Function |
J'ai mis un point d'arrêt directement sur l'appel de la sub mais rien n'y fait elle n'est plus appelée...
Je dis "plus appelée" car cela fonctionnait encore la semaine dernière !
Ce que j'ai fait et qui pourrait avoir une incidence :
- j'ai réalisé après coup que la plateforme sur laquelle mon application tournerait ne gérait pas le framework au dessus de 4.0 (windows server 2003...). J'ai donc "downgradé" le framework dans mon application au moment de la publication. J'ai tenté de remettre 4.5 pour tester, la sub n'est toujours pas appelée...
- j'ai installé le module Crystal Report de SAP (mais je ne vois pas le rapport...)
- il y a eu des mises à jours windows... mais je ne vois pas non plus le rapport !
Merci par avance de votre aide !
Bonne journée.
Guillaume
PS : Au cas où vous vous posiez la question, TempsInactivité est une variable "int" déclarée en public dans la class.
