Référence du développeur Access
TextBox.ForeColor, propriété
Afficher tout
Masquer tout
La propriété ForeColor permet de spécifier la couleur du texte d’un contrôle (contrôle : objet d’interface utilisateur graphique, comme une zone de texte, une case à cocher, une barre de défilement ou un bouton de commande, qui permet aux utilisateurs de contrôler le programme. Vous pouvez utiliser des contrôles pour afficher des données ou des choix, effectuer une action ou rendre l’interface utilisateur plus lisible.). Type de données Long en lecture/écriture.
Syntaxe
expression.ForeColor
expression Variable qui représente un objet TextBox.
Remarques
Vous pouvez utiliser cette propriété pour les contrôles des formulaires (formulaire : objet de base de données Access dans lequel vous placez des contrôles qui permettent d’exécuter des actions ou d’entrer, d’afficher et de modifier des données dans des champs.) ou états (état : objet de base de données Access que vous pouvez imprimer, qui contient des informations mises en forme et organisées en fonction de vos spécifications. Des synthèses de ventes, des listes de numéros de téléphone et des étiquettes de publipostage sont des exemples d’états.) afin d’en faciliter la lecture ou de leur conférer une signification particulière. Vous pouvez, par exemple, changer la couleur du texte du contrôle UnitsInStock (pièces en stock) lorsque sa valeur tombe en dessous du seuil de réapprovisionnement.
Vous pouvez également l’utiliser pour créer des effets spéciaux lorsque vous imprimez sur une imprimante couleur. Lorsqu’elle est utilisée dans un état, cette propriété spécifie la couleur d’impression et de dessin des méthodes Print, Line et Circle.
La propriété ForeColor contient une expression numérique (expression numérique : expression dont le résultat après évaluation est un nombre. L’expression peut être une combinaison quelconque de variables, de constantes, de fonctions et d’opérateurs.) qui représente la valeur de la couleur du texte dans le contrôle.
Vous pouvez utiliser le Générateur de couleur pour définir cette propriété en cliquant sur le bouton Générer situé à droite de la zone de propriété dans la feuille des propriétés (feuille des propriétés : volet qui permet d’afficher ou de modifier les propriétés de différents objets tels que des tables, des requêtes, des champs, des formulaires, des états, des pages d’accès aux données et des contrôles.). 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 de cette propriété à l’aide du style de contrôle par défaut (style de contrôle par défaut : paramètre de propriété par défaut d’un type de contrôle. Vous personnalisez un type de contrôle avant de créer deux contrôles similaires, ou plus, pour éviter de personnaliser chaque contrôle individuellement.) d’un contrôle ou de la propriété DefaultControl dans Visual Basic.
Dans le cas d'états, vous pouvez définir la propriété Circle uniquement à l'aide d'une macro ou d'une procédure événementielle Visual Basic spécifiée dans le paramètre de la propriété d'événement 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 . Vous pouvez également utiliser la fonction QBColor pour définir ces propriétés. Si vous placez le code suivant dans l'événement Form_Current( ), les caractéristiques du contrôle s'affichent dès que l'utilisateur ouvre un formulaire ou passe à un nouvel enregistrement.
Visual Basic pour Applications
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
Partager