Discussion :

[gnedea]

Salut le FORUM
Je viens vers vous pour solliciter votre aide.
En effet, je réussi a faire clignoter un label avec un bouton mais le problème est que je ne réussi pas à l'arrêter.
Pouvez-vous me filer un bout de code pouvant l'arrêter ?
Je joins le fichier suivant pour illustrer le problème.
Merci d'avance.

[EricDgn]

Bonjour,

Une façon de faire:
a) dans le formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub CommandButton1_Click()
    Clignoter = True
    Clignote TABLEAU.Label1.Name
End Sub
 
Private Sub CommandButton2_Click()
    Clignoter = False
    TABLEAU.Label1.Visible = True
End Sub

b) dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Public Clignoter As Boolean
 
Sub Clignote(Label As String)
    Dim Fin As Single
    Do While Clignoter
        TABLEAU(Label).Visible = Not TABLEAU(Label).Visible
        Fin = Timer + 0.6
        Do While Timer < Fin
            DoEvents
        Loop
    Loop
End Sub

Bonne continuation.