Forms: Étiquette clignotante	Author(s) Dev Ashish

Étiquette clignotante.

(Q)    Comment produire une étiquette qui clignote?

(A)    On peut y réussir en utilisant la procédure événementielle  Timer du formulaire.

    Par exemple, si on possède l'étiquette  "lblSomeLabel" sur un formulaire qui possède également un sous formulaire exprimant une relation 1:M.

    Maintenant, on désire attirer l'attention de l'usager si plus de trois enregistrements existent dans le sous formulaire pour un enregistrement du formulaire principal, on peut décider de faire clignoter l'étiquette en question. 

    Plaçons le code suivant sous la procédure événementielle Timer.

'************* Code Start *************
Private Sub Form_Timer()
    With Me.lblSomeLabel
        .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
    End With
End Sub
'************* Code End *************

    Il faut maintenant un critère pour enclencher ce timer. Plaçons donc le code suivant sous la procédure événementielle Current.

'************* Code Start *************
Private Sub Form_Current()
    If Me![SomeSubForm].Form.RecordsetClone.RecordCount > 3 Then
        Me.TimerInterval = 300
    Else
        Me.TimerInterval = 0
        Me.lblSomeLabel.ForeColor = vbBlack
    End If
End Sub
'************* Code End *************