textboxun renk değişimi??

[udentr2002]

textboxların içindeki yazıya göre renk değiştirmeleri gibi bir kod olabilirmi mesala textox1 in içinde cevaplandı yazarsa yeşil renk alsın, cevaplanmadı yazarsa textbox1 kırmızı ren gözüksün böyle bir kod yazabilrmiyizz???

 

[Seyit Tiken]

Kodu deneyiniz.

Private Sub TextBox1_Change()
If Me.TextBox1.Text = "Cevaplandı" Then Me.TextBox1.BackColor = &HC0FFC0
If Me.TextBox1.Text = "Cevaplanmadı" Then Me.TextBox1.BackColor = &HFF&
End Sub

 

[udentr2002]

merhaba hocam

öncelikle ilgilendiğin için teşekkürler kodunu uyguladım çalışıyor ancak bi sorun var benim böyle 9 tane textboxum var hepsinde mantık aynı eğer cevaplandı yazıyorsa yeşil renk olsun cevaplanmadı yazıyorsa kırmızı renk olsun diğer textboxlarada aynı kodu yazmaya çalıştığımda gelip en sondaki textboxun rengini ayarlıyor diğerlerine uygulamıyor bunu 9 textboxa nasıl uygulayabilirizz???

 

[udentr2002]

seyit hocam

anlatabildimmi acaba sorumu ;
9 tane textboxum var senin kodları onlara uyguladığımda en son textbox için uyguluyor diğer textboxlar için uygulamıyor nasıl çözebilriz bu sorunu ?????

 

[alpi]

Dosyanız ekte

 

[Seyit Tiken]

Evet anlatabildiniz sorunuzu. Döngü ile yapılır mı? yapılmaz mı? Tam bilmiyorum. Biraz uğraştık, şuan bişey yok. Niye her Text'te aynı kodu uygulamıyorsunuz? Biraz kod fazlalığı olur. Ama iş görür. Şimdilik bu şekilde idare edin. Ben yada diğer arkadaşlar, kısa kodlarla çözüm bulduğumuz takdirde, bir şekilde haberiniz olacaktır.

 

[udentr2002]

teşekkürler

saolun alpi hocam şimdilik dediğinizi uyguladım yanlız şöyle bi sorum daha olacak bunun büyük yada küçük harfe duyarlı olmaması için ne ekleyebilrim ??

 

[alpi]

Class içerisinde bulunan MetinKutusu_Change prosedürünü silip aşağıdakini yazınız

Private Sub MetinKutusu_Change()
    If MetinKutusu = "Cevaplandı" Or MetinKutusu = "CEVAPLANDI" Then
        MetinKutusu.BackColor = &HC0FFC0
    ElseIf MetinKutusu.Text = "Cevaplanmadı" Or MetinKutusu = "CEVAPLANMADI" Then
        MetinKutusu.BackColor = &HFF&
    Else
        MetinKutusu.BackColor = &H80000005
    End If
End Sub