Changer dynamiquement la couleur d'une étiquette d'un Textbox [Sources]

[argyronet]

Bonjour,

Voici un petit code source intéressant...
Comment changer dynamiquement la couleur d'une étiquette d'un Textbox ?

Objectif :
Vous remplissez un Textbox dans un formulaire et vous souhaitez que la couleur de l'étiquette qui lui est attachée change de couleur selon que le Textbox contient ou non quelque chose :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Compare Database
Option Explicit

Private Sub MyTextBox_BeforeUpdate(Cancel As Integer)
**Call ChangeColorCaption(MyTextBox, RGB(25, 160, 240))
End Sub

Private Sub ChangeColorCaption(TxtBox As TextBox, ByVal ChangedColor As Long)
Dim oCtl As Control
Dim oLabel As Label
Dim oForm As Form
Dim strContent As Variant
Dim strLabel As String
Dim lngColor
**strContent = TxtBox.Text
**If IsNull(strContent) Or Len(strContent) = 0 Then
****lngColor = RGB(0, 0, 0)
**Else
****lngColor = ChangedColor
**End If
**Set oForm = Form
**Set oCtl = TxtBox
**strLabel = oCtl.Controls.Item(0).ControlName
**Set oLabel = oForm.Controls(strLabel)
**oLabel.ForeColor = lngColor
**Set oCtl = Nothing
**Set oForm = Nothing
**Set oLabel = Nothing
End Sub

Le changement se fait sur l'événement BeforeUpdate() et considère les paramètres :

• NomDuControl TextBox
• Couleur RGB

associés lors de l'appel de la procédure ChangeColorCaption()

Argy

[cafeine]

Hello Argy,

en complément / additif de ta source, je poste la méthode pour généraliser ce code à l'ensemble des textbox, ce qui peut être pratique pour un formulaire de 50 textbox ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Form_Load()

Dim ctl As Control

For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        ctl.BeforeUpdate = "=TrackControl(""" & ctl.Name & """)"
    End If
Next ctl

Set ctl = Nothing

End Sub


Private Function TrackControl(ByVal ctlName As String)

If IsNull(Me.Controls(ctlName)) Or Len(Me.Controls(ctlName)) = 0 Then
    Me.Controls(Me.Controls(ctlName).Controls.Item(0).ControlName).ForeColor = RGB(0, 0, 0)
Else
    Me.Controls(Me.Controls(ctlName).Controls.Item(0).ControlName).ForeColor = RGB(25, 160, 240)
End If

End Function