Discussion :

[FreudDu31]

Voici mon problème.
J'ai une structure qui inclut un objet de type timer :

Code :

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

1
2
3
4
    Public Structure listeServeurASurveiller
        ...
        Dim objTimer As System.Timers.Timer
    End Structure

Je les initialise de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim i As Integer
        While i < objListeServeurASurveiller.Length
            objListeServeurASurveiller(i).objTimer = New System.Timers.Timer(objConfigSentinel.szTimer * 1000)
            AddHandler objListeServeurASurveiller(i).objTimer.Elapsed, AddressOf objTimer_Tick
 
            objListeServeurASurveiller(i).objTimer.Enabled = True
            objListeServeurASurveiller(i).objTimer.Start()
            i += 1
        End While

Sauf qu'après je ne sais pas comment distinguer quel timer est en cours dans ma fonction objTimer_Tick vu que on ne peut donner d'argument sur un AddressOf.

Pouvez vous m'aider?

[Graffito]

Le paramètre sender du tick event indique le timer qui a déclenché l'event.

[FreudDu31]

Ca serait possible d'avoir plus d'infos?
Que là dans mon sender je n'ai pas beaucoup d'infos dedans, enfin rien qui me permette de reconnaitre qui a déclenché l'event.

En fait ce que je compte récupérer comme info, c'est quel est le objListeServeurASurveiller qui a déclenché l'event afin de lancer genre :

Code :

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

lancerScrutation(objListeServeurASurveiller(i))

[_PascalC_]

Salut,

Code :

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

1
2
 
Dim t as Timer = DirectCast(sender, Timer)

[FreudDu31]

Salut,

Code :

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

1
2
 
Dim t as Timer = DirectCast(sender, Timer)

Les infos du Timer ne m'interesse pas, c'est les infos de la structure qui inclu mon timer qui m'interresse.

[Pol63]

je ne sais pas ce que vous avez tous en ce moment à vouloir faire des structures plutot que des classes ...

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
 
Public Structure listeServeurASurveiller
        ...
        Dim objTimer As System.Timers.Timer
        public event Tick (sender as listeServeurASurveiller)
 
        public sub InitTimer(interval as integer)
           objtimer = new system.timers.timer(...)
           (...)
           addhandler objtimer addressof TickTimer
        end sub
 
        private sub TickTimer(mettre les bon paramètres)
           raiseevent Tick(me)
        end sub
 
    End Structure

et tu fait un addhandler objListeServeurASurveiller(i).TickTimer, addressof ou tu veux


à vérifier que ca marche dans une structure, mais ca marche dans une classe

[FreudDu31]

Bon j'ai tout cassé, j'ai viré ma structure qui en fait à y réfléchir servait à rien.
Merci Pol63
Me reste plus qu'a trouver comment raffraichir mon interface à la fin de ma scrutation qui est lancé par le tick de mon timer