Textbox koşullu biçimlendirme

[cem yılmaz]

Merhabalar,

Textbox içine başka sayfadan veri aldırıyorum.Eğer textbox içindeki veri "1000" olursa textbox back color rengi mavi "0" olursa gri olsun.
Bu işlemi yaptırabilirmiyiz?

 

[Korhan Ayhan]

Selamlar,

İstediğiniz özelliğin hangi durumda gerçekleşmesi gerektiğini belirtmediğiniz için bende formun açılış olayına ekledim. Aşağıdaki kodu denermisiniz.

Private Sub UserForm_Initialize()
    If TextBox1 = 1000 Then
    TextBox1.BackColor = vbBlue
    Else
    TextBox1.BackColor = &HC0C0C0
    End If
    If TextBox2 = 0 Then
    TextBox2.BackColor = &HC0C0C0
    Else
    TextBox2.BackColor = vbBlue
    End If
End Sub

 

[cem yılmaz]

Örneğin textbox1 içindeki değer "0" ise gri renk "1000" ise mavi olsun yukarıdaki kodda renk değiştiriyor yani formülü anladığım kadarıyla size anlatayım;

textbox1 eğer 1000 sayısına eşitse arka plan rengini mavi yap değilse arka plan rengini gri yap..

benim sizden istediğimi kod halinde yazarsak Korhan Hocam;

Textbox1 eğer 1000 sayısına eşitse arka plan rengini mavi yap eğer 0 sayısına eşitse gri yap diğer durumlardada kendi orjinal renginde kalsın..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub TextBox1_Change()
    Select Case TextBox1
        Case Is = 0
        TextBox1.BackColor = &HC0C0C0
        Case Is = 1000
        TextBox1.BackColor = &HFF0000
        Case Else
        TextBox1.BackColor = &H80000005
    End Select
End Sub

 

[cem yılmaz]

Bu sefer hiç çalışmadı Korhan hocam dosyama vermiş olduğunuz kodları ekledim tekrar bakarmısınız?

 

[Orion1]

Korhan hocamın kodlarını Initialize olayında kullandım .
Dosya ekte.

Private Sub UserForm_Initialize()
Call TextBox1_Change
Call TextBox2_Change
End Sub

 

[cem yılmaz]

Teşekkür ederim sağolun paylaşımlarınız için