Opgelost Opmaak van Textbox bij bepaalde tekst

[franssack]

Ik zag onderstaande code;

Private Sub TextBox3_Change()
If TextBox3.Value > 10 Then
TextBox3.BackColor = vbRed
Else
TextBox3.BackColor = vbWhite
End If
End Sub

Is er een code die dit ook doet als het tekst is? i.p.v. een waarde >10

 

[Lampie173]

Misschien zoiets?
If Textbox3.Value="bla bla" Then

 

[edmoor]

Of zo:

Private Sub TextBox3_Change()
    TextBox3.BackColor = IIf(TextBox3.Value = "De gewenste tekst", vbRed, vbWhite)
End Sub

NB:
De controle op tekst is case-sensitive.

 

[AHulpje]

Of meer algemeen:

TextBox3.BackColor = IIf(IsNumeric(TextBox3.Value), vbRed, vbWhite)

 

[snb]

TexttBox3 is per default een tekst. De toevoeging Textbox3.Text of Textbox3.Value is daarom overbodig.

 

[franssack]

Top!, bedankt.

 

[franssack]

Sorry, kan dit ook met meerdere teksten, bv tekst1 wordt rood, tekst2 wordt blauw, tekst3 groen?

 

[AHulpje]

Kijk eens naar Select Case.

 

[edmoor]

Inderdaad.
Zo dus:

Private Sub TextBox3_Change()
    With TextBox3
        Select Case .Text
            Case "tekst1":  .BackColor = vbRed
            Case "tekst2":  .BackColor = vbBlue
            Case "tekst3":  .BackColor = vbGreen
        End Select
    End With
End Sub