Discussion :

[b_lob]

Framework 1.1
VB. NET 2003

Bonjour,

j'éssai d'avoir plusieurs label clignotants sur ma form. J'ai dérivé la classe label et y ai ajouté un timer.

Comment faire en sorte que tout les objets partage le meme timer ???

J'ai utilisé Shared mais je ne suis pas certain de mon choix.


Merci

[Piotrek]

Une proposition a l'arraché

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
18
19
20
21
22
 
Class Clignoteur
    Inherits Timer
 
    Private ControlList As New ArrayList
    Private i As Int32
    Private s As Boolean
 
    Public Sub Add(ByVal ctl As Control)
        ControlList.Add(ctl)
    End Sub
 
    Protected Overrides Sub OnTick(ByVal e As System.EventArgs)
        MyBase.OnTick(e)
 
        For i = 0 To ControlList.Count - 1
            DirectCast(ControlList(i), Control).Visible = s
        Next
 
        s = Not (s)
    End Sub
End Class

A utiliser comme suit:

Code :

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

1
2
3
4
5
 
        Dim n As New Clignoteur
        n.Add(Me.ListBox1)
        n.Interval = 1000
        n.Start()

Remarque importante: ne pas oublier d'implementer la procedure pour retirer les controles si ceux-ci sont supprimes dans la Form

[b_lob]

Cela fonctionne a merveille !!!

Merci beaucoup Piotrek !!

Je vais aussi essayer de mettre tout ca dans un datagrid.. enfin essayer