[VB.NET] Label - Un timer pour tous ?

Version imprimable

28/04/2006, 13h13
b_lob

[RESOLU][VB.NET] Label - Un timer pour tous ?

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

Une proposition a l'arraché

Code:

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:

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

01/05/2006, 15h56
b_lob

Cela fonctionne a merveille !!!

Merci beaucoup Piotrek !!:P

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