handles, évènements dans vb6

Version imprimable

25/10/2016, 14h21
cyfo2015

handles, évènements dans vb6

j'ai une application vb6 basée sur une fenêtre principale de type MDI Form avec plusieurs fenêtres de type Child Form dans mon projet.
la question à la base est de détecter l'inactivité de l'utilisateur à partir d'un certain délai (5mn par exemple) et pendant un temps bien défini (15mn par exemple), et de le déconnecter au-delà. mais si avant 15mn ce dernier réagit, alors le programme doit détecter son retour en activité et stopper le décompte.
Personnellement voici la réflexion que je me suis fait de prime abord:
-écrire un bloc de code qui doit être capable de détecter qd le programme a reçu un évènement.
-centraliser ce bloc de code dans un module afin qu'il détecte les évènements qui se produise sur n'importe quel fenêtre (MDI ou Child).
question1:
existe t-il une procédure/fonction windows système qui informe une application qu'un évènement s'est produit ?
si oui, comment la récupérer en vb6 ?
question2:
est-il possible de donner le contrôle de tous les childs au mdi form du programme, i.e un évènement se produit dans le child peut-il être récupéré par le mdi form ?

enfin, si quelqu'un peut me donner un coup de pouce dans la réflexion et même des pistes d'implémentation, ça me fera avancer dans ce projet.
merci d'avance.
:calim2:

Bonjour et BIENVENUE sur DVP.

Pour un début, voici un exemple de code où l'on s'intéresse à l'appuie sur une touche du clavier ou un clic souris.
Essaie de l'adapter à ton cas en ajoutant une valeur minimale et une autre maximale pour le temps d'inactivité :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
' Pour tester, mettre un contrôle Label1 sur Form1
Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private bFIN As Boolean
 
Private Sub Form_Load()
Dim lLastAction As Long 'Valeur du Timer pour la dernière action clavier ou souris
Dim lSecondsIdle As Long 'Nombre de secondes depuis la dernière action
Dim iCt As Integer
 
bFIN = False ' initialisation du flag qui arrêtera "Loop"
Me.Show ' s'assurer que Form1 est affichée
 
 Do Until bFIN = True
 
    For iCt = 0 To 255 'parcourt toutes les touches
        If GetAsyncKeyState(iCt) <> 0 Then ' si une touche est enfoncée, remet à zéro le compteur
            lLastAction = Timer
        End If
        DoEvents ' rend la main au système et/ou à l'utilisateur
    Next iCt
    lSecondsIdle = Timer - lLastAction ' Retourne le temps d'inactivité (souris et clavier)
    ConvTime lSecondsIdle
 Loop
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    ' Arrête Loop
    bFIN = True
    ' S'assure que l'application prend fin
    End
End Sub
 
Sub ConvTime(TM As Long)
  Dim H&, M&, S&
  H = TM \ 3600
  M = (TM - H * 3600) \ 60
  S = TM - H * 3600 - M * 60
  'Affiche la durée d'inactivité dans un Label
  Label1 = Right("00" & CStr(H), 2) + ":" + Right("00" & CStr(M), 2) + ":" + Right("00" & CStr(S), 2)
End Sub

29/10/2016, 22h46
Mat.M

Citation:

Envoyé par cyfo2015

est-il possible de donner le contrôle de tous les childs au mdi form du programme, i.e un évènement se produit dans le child peut-il être récupéré par le mdi form ?

je crains qu'il soit nécessaire de passer par du subclassing avec SetWindowLong() éventuellement
Ainsi tu obtiens la fonction de procédure de fenêtre pour gérer les messages de gestion MDI
30/10/2016, 11h59
DarkVader

Bonjour,
Voir du coté de SetTimer et GetLastInputInfo