[Alziny]

السلام عليكم أخواني

لدي إثنين تيكست بوكس..أريد كود يقارن الرقمين أتوماتيكيا ويحذرني مثلا بلون أحمر في التيكست بوكس المطلوب أو رسالة تحذيرية

للتوضيح أكثر

تيكست بوكس1 يوجد فيه رقم 100...عندما يقوم المستخدم بملأ الفراغات في تيكست بوكس2 بوضع مثلا رقم أكبر من 100..مثلا وضع 200..هنا السيستم يحذرني برسالة ويعطي لون أحمر في تيكست بوكس1

هل يوجد كود أو حل لذلك أخواني؟

وشكرا

[62531]

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   If Val(TextBox1.Text) = Val(TextBox2.Text) Then
       TextBox2.BackColor = Color.White
   Else
       TextBox2.BackColor = Color.Red
   End If
End Sub

[Alziny]

مشكور أخوي ويعطيك ألف صحة وعافية يارب...معلش اثقل عليك..هل ممكن استخدام هذا الأمر او امر مشابه بحيث يحدث الأمر مباشرة في حالة تخطي قيمة تيكست بوكس الثاني؟ ولا لازم عن طريق وضع الكود في button

وشكرا

[62531]

كود :

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
   If Val(TextBox1.Text) = Val(TextBox2.Text) Then
       TextBox2.BackColor = Color.White
   Else
       TextBox2.BackColor = Color.Yellow
   End If
End Sub