Discussion :

[Guillaume45]

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 :

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

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.

[Guillaume45]

Bon... après avoir encore cherché, j'ai rajouté cela dans la sub Load de mon formulaire :

Code :

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

Application.AddMessageFilter(Me)

Et cela re-fonctionne.
Chose bizarre c'est que je suis quasiment certain que je ne l'avais pas mis au départ et que cela à quand même fonctionné.

Enfin bon, les bizarreries de l'informatique !

En espérant que ça en aide d'autres !

Bonne continuation.