İKİ TEXTBOX ARASINDAKİ İŞLEME GÖRE RENKLENDİRME

[ergunalbayrak1]

ARKADAŞLAR MERHABA
KOLAY GELSİN

BENİM SORUM ŞU;

İKİ TEXTBOX ARASINDAKİ İŞLEMİN SONUCUNA GÖRE KIRMIZI VEYA SARI OLABİLİR Mİ? ÖRNEĞİN TEXTBOX3=TEXTBOX1-TEXTBOX2 SONUCU EKSİ DEĞER İSE KIRMIZI, ARTI DEĞER İSE SARI OLABİLİR Mİ?

YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER
:hey:

 

[veyselemre]

[vb:1:d11b02c781]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 <> "" Then TextBox3.Value = TextBox1.Value - TextBox2.Value
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then TextBox3.Value = TextBox1.Value - TextBox2.Value
End Sub
Private Sub TextBox3_Change()
If TextBox3.Value < 0 Then
TextBox3.BackColor = vbRed
Else
TextBox3.BackColor = vbYellow
End If
End Sub[/vb:1:d11b02c781]

 

[Seyit Tiken]

Bu kodu kendinize göre değiştirip deneyiniz.

Private Sub TextBox1_Change()
If TextBox1 < 0 Then
TextBox1.BackColor = &H8080FF
Else
TextBox1.BackColor = &HFFFF&
End If
End Sub

 

[eskli]

bir tane de benden