Propriété Label.ForeColor (Access)

Utilisez la propriété ForeColor pour spécifier la couleur du texte dans un contrôle. Long (en lecture/écriture).

Syntaxe

expression. Forecolor

Expression Variable qui représente un objet Label .

Remarques

Utilisez cette propriété pour les contrôles sur les formulaires ou les états afin de les rendre faciles à lire ou de transmettre une signification particulière. Par exemple, vous pouvez modifier la couleur du texte dans le contrôle UnitsInStock lorsque sa valeur est inférieure au niveau de réorganisation.

Vous pouvez également utiliser cette propriété sur les rapports pour créer des effets spéciaux lorsque vous imprimez avec une imprimante couleur. Lorsqu'elle est utilisée dans un état, cette propriété spécifie la couleur d'impression et de dessin pour les méthodes Print, Line et Circle.

La propriété ForeColor contient une expression numérique qui représente la valeur de la couleur du texte dans le contrôle.

Utilisez le Générateur de couleurs pour définir cette propriété en choisissant le bouton Générer à droite de la zone de propriété dans la feuille de propriétés. Grâce au Générateur de couleur, vous pouvez définir des couleurs personnalisées pour le texte des contrôles.

Vous pouvez définir la valeur par défaut pour cette propriété à l’aide du style de contrôle par défaut d’un contrôle ou de la propriété DefaultControl dans Visual Basic.

Pour les États, vous pouvez définir la propriété Circle uniquement à l'aide d'une macro ou une procédure d'événement Visual Basic spécifiée dans le paramètre de propriété événementielle OnPrint d'une section.

Exemple

L’exemple suivant utilise la fonction RGB pour définir les propriétés BorderColor, BackColor et ForeColor en fonction de la valeur de la zone de texte txtPastDue. Vous pouvez également utiliser la fonction QBColor pour définir ces propriétés. Le fait de placer le code suivant dans l’événement Form_Current( ) définit les caractéristiques d’affichage du contrôle dès que l’utilisateur ouvre un formulaire ou passe à un nouvel enregistrement.

Sub Form_Current() 
 Dim curAmntDue As Currency, lngBlack As Long 
 Dim lngRed As Long, lngYellow As Long, lngWhite As Long 
 
 If Not IsNull(Me!txtPastDue.Value) Then 
 curAmntDue = Me!txtPastDue.Value 
 Else 
 Exit Sub 
 End If 
 lngRed = RGB(255, 0, 0) 
 lngBlack = RGB(0, 0, 0) 
 lngYellow = RGB(255, 255, 0) 
 lngWhite = RGB(255, 255, 255) 
 If curAmntDue > 100 Then 
 Me!txtPastDue.BorderColor = lngRed 
 Me!txtPastDue.ForeColor = lngRed 
 Me!txtPastDue.BackColor = lngYellow 
 Else 
 Me!txtPastDue.BorderColor = lngBlack 
 Me!txtPastDue.ForeColor = lngBlack 
 Me!txtPastDue.BackColor = lngWhite 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.