تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] هل حجم ملف .exe لديه أي تأتير على إستهلاك الذاكرة sniperjawadino 2 227 02-01-22, 07:00 PM
آخر رد: sniperjawadino
  السلام عليكم عندي جدولين جدول به التاريخ والكود وجدول به بيانات بنفس الكود ahmedhhh2 6 434 25-11-21, 12:54 AM
آخر رد: ahmedhhh2
  سؤال فني للمحترفين..أرجو المساعدة alziny1 4 527 11-10-21, 12:16 AM
آخر رد: alziny1
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 2 1,595 16-07-21, 02:12 PM
آخر رد: إليسار
  [سؤال] أرجو مساعدة من الاعضاء الكرام safsf19 1 649 07-06-21, 11:48 AM
آخر رد: alfaiz678
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 830 10-04-21, 06:33 PM
آخر رد: معتز حسن
  [سؤال] كود لكتابه رقمين بعد الفاضله حسن الجلب 0 346 18-03-21, 11:35 PM
آخر رد: حسن الجلب
Lightbulb [VB.NET] أرجو المساعدة اخواني nssow 1 506 12-01-21, 10:23 PM
آخر رد: moosa_alabri
  أخواني قاعدة IF جننتني..أرجو المساعدة Alziny 4 678 05-01-21, 05:23 PM
آخر رد: 62531
  إثنين كومبو بوكس..أرجو المساعدة في طريقة التعامل معهم Alziny 4 890 05-01-21, 03:10 AM
آخر رد: Alziny

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


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