تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مقارنة بين رقمين..أرجو لمن لديه العلم والكود مساعدتي
#1
السلام عليكم أخواني

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

للتوضيح أكثر

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

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

وشكرا
الرد
تم الشكر بواسطة:
#2
كود :
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
الرد
تم الشكر بواسطة:
#3
مشكور أخوي ويعطيك ألف صحة وعافية يارب...معلش اثقل عليك..هل ممكن استخدام هذا الأمر او امر مشابه بحيث يحدث الأمر مباشرة في حالة تخطي قيمة تيكست بوكس الثاني؟ ولا لازم عن طريق وضع الكود في button

وشكرا
الرد
تم الشكر بواسطة:
#4
كود :
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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 182 10-04-21, 06:33 PM
آخر رد: معتز حسن
  [سؤال] كود لكتابه رقمين بعد الفاضله حسن الجلب 0 84 18-03-21, 11:35 PM
آخر رد: حسن الجلب
Lightbulb [VB.NET] أرجو المساعدة اخواني nssow 1 223 12-01-21, 10:23 PM
آخر رد: moosa_alabri
  أخواني قاعدة IF جننتني..أرجو المساعدة Alziny 4 338 05-01-21, 05:23 PM
آخر رد: 62531
  إثنين كومبو بوكس..أرجو المساعدة في طريقة التعامل معهم Alziny 4 498 05-01-21, 03:10 AM
آخر رد: Alziny
  سؤال لم أجد له إجابة ابدا..أرجو المساعدة Alziny 2 277 04-01-21, 11:10 PM
آخر رد: Alziny
  سؤال فني لأخواني..أرجو المساعدة Alziny 2 251 03-01-21, 03:22 PM
آخر رد: Alziny
  أرجو مساعدتي جزاكم الله خير..مشروعي واقف على هالنقطة Alziny 3 300 22-12-20, 10:45 PM
آخر رد: ابراهيم ايبو
  [سؤال] أرجو المساعدة العاجلة أخواني خبراء VB.NET Alziny 2 294 12-12-20, 03:26 PM
آخر رد: Alziny
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 510 16-09-20, 03:57 PM
آخر رد: رامى محمد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم