Home
Home

---Soumis par 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 OnCurrent.

'************* 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 *************