Texbox renklendirme

[magnesia]

Arkadaşlar selam.
Textbox5'e diğer textboxlardan sonuç getiriyorum.
Texbox5'in içerisinde "doğru" kelimesi geçiyorsa, textboxun yeşile, "yanlış" kelimesi geçiyorsa texboxun kırmızıya boyanmasını nasıl sağlarım?
Şimdiden teşekkürler.

 

[yanginci34]

Aşağıdaki kodu denermisiniz.

Private Sub Textbox5_Change()
If Textbox5.Value ="*"& "doğru" &"*" Then
Textbox5.BackColor = vbGreen
ElseIf Textbox5.Value ="*"& "yanlış" &"*" Then
Textbox5.BackColor = vbRed
Else: Textbox5.BackColor = &H80000005
End If
End Sub

 

[magnesia]

yanginci34 arkadaşım.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Ancak sonuç vermedi..

 

[magnesia]

Başka bir arkadaş yardım edebilir mi?

 

[yanginci34]

2 nolu mesajımdaki kodu tekrar denermisiniz.

 

[Erdem Akdemir]

Sayın yanginci'nin kodunu aşağıdaki gibi kullanırsanız sonuç alırsınız.

Private Sub Textbox5_Change()
If TextBox5.Value Like "*" & "doğru" & "*" Then
TextBox5.BackColor = vbGreen
ElseIf TextBox5.Value Like "*" & "yanlış" & "*" Then
TextBox5.BackColor = vbRed
Else: TextBox5.BackColor = &H80000005
End If
End Sub

 

[yanginci34]

Sayın Erdem_34 bey bende sayenizde öğrenmiş oldum teşekkürler.

 

[magnesia]

Sayın Erdem_34
İşlem tamam..
İlginize, bilginize,emeğinize sağlık.
Çok çok teşekkür ederim.

 

[magnesia]

Sayın Erdem_34
Sonradan aklıma geldi.
Textbox kırmızıya boyandığında yazı fontunu nasıl beyaz yapabiliriz?

 

[Erdem Akdemir]

Aşağıdaki gibi deneyin.

Private Sub Textbox5_Change()
TextBox5.ForeColor = vbBlack
If TextBox5.Value Like "*" & "doğru" & "*" Then
TextBox5.BackColor = vbGreen
ElseIf TextBox5.Value Like "*" & "yanlış" & "*" Then
TextBox5.BackColor = vbRed
TextBox5.ForeColor = vbWhite
Else: TextBox5.BackColor = &H80000005
End If
End Sub

 

[magnesia]

İşlem tamam..
Tekrar tekrar ve çok çok teşekkür ederim...

 

[Erdem Akdemir]

Rica ederim, kolay gelsin.