textboxları kıyaslayıp renklendirmek

[blacklife07]

iki textboxları bir birine göre kıyaslayıp renklendirmek istiyorum. yapmak istediğim: 1. textbox 2. textboxa göre küçükse yeşile,
1. textbox 2. textboxa göre büyükse kırmızıya boyansın.

yaptığım çalışmada bazen bu oluyor ama bazende tersi renge boyanıyor.

yardımlarınızı bekliyorum..

 

[Ömer]

Merhaba,

Private Sub TextBox1_AfterUpdate()
 
    If TextBox1 > TextBox2 Then
        Me.TextBox1.BackColor = &HFF&
    Else
        Me.TextBox1.BackColor = &H8000&
    End If
End Sub
 
Private Sub TextBox2_AfterUpdate()
 
    If TextBox1 > TextBox2 Then
        Me.TextBox1.BackColor = &HFF&
    Else
        Me.TextBox1.BackColor = &H8000&
    End If
End Sub

Bu şekilde olabilir, denermisiniz..

.

 

[blacklife07]

İlginize teşekür ederim. Denedim ama hala bazen doğru renkleniyor, bazen yanlış. iki texbox kıyaslanıp, küçükse yeşil, büyükse kırmızı olsun istiyorum ama...