منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي (/showthread.php?tid=37376)

مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي - Alziny - 04-01-21

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

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

للتوضيح أكثر

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

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

وشكرا

RE: مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي - 62531 - 05-01-21

كود :
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


RE: مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي - Alziny - 05-01-21

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

وشكرا

RE: مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي - 62531 - 05-01-21

كود :
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