Propriété TextBox. ForeColor (Access)TextBox.ForeColor property (Access)

Vous pouvez utiliser la propriété ForeColor pour spécifier la couleur du texte dans un contrôle.You can use the ForeColor property to specify the color for text in a control. Long (en lecture/écriture).Read/write Long.

SyntaxeSyntax

expression. ForeColorexpression.ForeColor

expression Variable qui représente un objet TextBox .expression A variable that represents a TextBox object.

RemarquesRemarks

Vous pouvez utiliser cette propriété pour les contrôles des formulaires ou états afin d'en faciliter la lecture ou de leur conférer une signification particulière.You can use this property for controls on forms or reports to make them easy to read or to convey a special meaning. Par exemple, vous pouvez modifier la couleur du texte dans le contrôle UnitsInStock lorsque sa valeur tombe en dessous du seuil de réapprovisionnement.For example, you can change the color of the text in the UnitsInStock control when its value falls below the reorder level.

Vous pouvez également utiliser cette propriété sur les rapports pour créer des effets spéciaux lorsque vous imprimez avec une imprimante couleur.You can also use this property on reports to create special visual effects when you print with a color printer. 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.When used on a report, this property specifies the printing and drawing color for the Print, Line, and Circle methods.

La propriété ForeColor contient une expression numérique qui représente la valeur de la couleur du texte dans le contrôle.The ForeColor property contains a numeric expression that represents the value of the text color in the control.

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.You can use the Color Builder to set this property by choosing the Build button to the right of the property box in the property sheet. Grâce au Générateur de couleur, vous pouvez définir des couleurs personnalisées pour le texte des contrôles.Using the Color Builder enables you to define custom colors for text in controls.

Vous pouvez définir la valeur par défaut de 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.You can set the default for this property by using a control's default control style or the DefaultControl property in 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.For reports, you can set the Circle property only by using a macro or a Visual Basic event procedure specified in a section's OnPrint event property setting.

ExempleExample

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.The following example uses the RGB function to set the BorderColor, BackColor, and ForeColor properties depending on the value of the txtPastDue text box. Vous pouvez également utiliser la fonction QBColor pour définir ces propriétés.You can also use the QBColor function to set these properties. Le fait de placer le code suivant dans l’événement Form_Current () définit les caractéristiques d’affichage des contrôles dès que l’utilisateur ouvre un formulaire ou passe à un nouvel enregistrement.Putting the following code in the Form_Current( ) event sets the control display characteristics as soon as the user opens a form or moves to a new record.

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 commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.