TextBox Renklendirme

[wishm]

Değerli arkadaşlar sitede arama yaptım birkaç örnek buldum ancak tam olarak istediğim değil onun için konu ile ilgili soru sorma ihtiyacı duydum. Yardımcı olabileceklere şimdiden teşekkür ederim. UserForm üzerinde bulunan TextBox' larım var. İstediğim veri girişi yapacağım TextBox' ın içine girince "Örneğin mavi renk" olmasını veri girişi bitip diğer TextBox' a geçince eski rengine dönmesini istiyorum. Bu konuda yardımcı olabilirseniz memnun olurum. Saygılarımla.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
TextBox1.BackColor = vbYellow
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = vbWhite
End Sub

 

[Orion1]

Doısya ektedir.
Class modüldeki kodlar.

Public WithEvents txt As MSForms.TextBox
Private Sub txt_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim nesne As Control
For Each nesne In UserForm1.Controls
    If TypeName(nesne) = "TextBox" Then
        nesne.BackColor = vbYellow
        nesne.Font.Bold = False
        nesne.ForeColor = vbBlack
    End If
Next
txt.BackColor = vbBlue
txt.Font.Bold = True
txt.ForeColor = vbWhite
End Sub
Private Sub txt_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim nesne As Control
For Each nesne In UserForm1.Controls
    If TypeName(nesne) = "TextBox" Then
        nesne.BackColor = vbYellow
        nesne.Font.Bold = False
        nesne.ForeColor = vbBlack
    End If
Next
txt.BackColor = vbBlue
txt.Font.Bold = True
txt.ForeColor = vbWhite

End Sub

Userformdaki kodlar.
General kısmına

Dim txt(8) As New Class1

Initialize olayına

Private Sub UserForm_Initialize()
Dim nesne As Control, a As Byte
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Then
        nesne.BackColor = vbYellow
        nesne.Font.Bold = False
        nesne.ForeColor = vbBlack
        a = a + 1
        ReDim Preserve txt(a) As New Class1
        Set txt(a).txt = nesne
    End If
Next
TextBox1.BackColor = vbBlue
TextBox1.Font.Bold = True
TextBox1.ForeColor = vbWhite
End Sub

 

[wishm]

Sayın Evren Gizlen ve Sayın N.Ziya Hiçdurmaz yanıtlarınız için çok teşekkür ederim. Vermiş olduğunuz kodlarla istdiğimi elde ettim. Tekrar teşekkür ederim. Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen ve Sayın N.Ziya Hiçdurmaz yanıtlarınız için çok teşekkür ederim. Vermiş olduğunuz kodlarla istdiğimi elde ettim. Tekrar teşekkür ederim. Saygılarımla.

Rica ederim.
İyi çalışmalar.

 

[ebedyolcusu]

Merhabalar
Yeni konu açmamak adına aynı konu olduğu için buradan sorayım istedim.

Userform da bulunan hem textboxlar hemde comboboxlar için yukarıdaki kodları nasıl değiştirmek lazım bir kaç türlü denedim ama beceremedim.
Yardımcı olursanız sevinirim..

 

[yenilik025]

Daha fazla rengi bulmak için.Renge ait RGB kodlarını da yazabiliriz.

Hocalarımızın cevaplarının yanında
Direk renklerin RGB lerini yazarak da aslında daha fazla renk kartelasını kullanabiliyoruz
ÖRNEK
TextBox1.BackColor =RGB(122,110,101) gibi bu şekilde istenilen rengi elde edebiliyoruz.

Sayın Evren Gizlen ve Sayın N.Ziya Hiçdurmaz yanıtlarınız için çok teşekkür ederim. Vermiş olduğunuz kodlarla istdiğimi elde ettim. Tekrar teşekkür ederim. Saygılarımla.

 

[ÖMÜR ÖZKAN]

merhabalar arkadaşlar,
forum konusu güncelmi bilemedim ama bir umut yazıyorum yinede.
benim sorum şu : userform üzerinde texboxa aldığımız verilerin sadece istediğimiz yerlerini renklendirebilir miyiz.
örnek : texboxa bir bilanço geliyor. ve "DÖNEN VARLIKLAR" satırı komple yeşil olsun. "KISA VADELİ YABANCI KAYNAKLAR" satırı komple kırmızı olsun gibi yapabilirmiyim.

 

[Korhan Ayhan]

Bahsi geçen nesnenin arkaplan rengini değiştirince komple renk değişimi olacaktır.