TextBox colorié si CheckBox coché

Le
Pierre93
Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5230941
Bonsoir,

Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub

JB


On 10 mar, 18:51, "Pierre93"
Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93


JB
Le #5230931
Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, vbRed, vbWhite)
End Sub

JB


On 10 mar, 19:04, JB
Bonsoir,

Private Sub CheckBox1_Click()
  Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub

JB

On 10 mar, 18:51, "Pierre93"


Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Pierre93
Le #5230871
Bonsoir et merci JB !!!


"JB"

Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, vbRed, vbWhite)
End Sub

JB


On 10 mar, 19:04, JB
Bonsoir,

Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub

JB

On 10 mar, 18:51, "Pierre93"


Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Modeste
Le #5230801
Bonsour® JB avec ferveur ;o))) vous nous disiez :

Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub


pour le fun !!
Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = RGB(255, -255 * Not (Me.CheckBox1), -255 * Not
(Me.CheckBox1))
End Sub




--
--
@+
;o)))

JB
Le #5230701
Bonjour,

ou ça

TextBox1.BackColor = -vbRed * CheckBox1 + vbWhite * (1 + CheckBox1)

JB

On 10 mar, 20:47, "Modeste"
Bonsour® JB  avec ferveur  ;o))) vous nous disiez :

Private Sub CheckBox1_Click()
  Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub


pour le fun !!
Private Sub CheckBox1_Click()
  Me.TextBox1.BackColor = RGB(255, -255 * Not (Me.CheckBox1), -255 * N ot
(Me.CheckBox1))
End Sub

--
--
@+
;o)))



Publicité
Poster une réponse
Anonyme