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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] أرجو المساعدة اخواني nssow 1 109 12-01-21, 10:23 PM
آخر رد: moosa_alabri
  أخواني قاعدة IF جننتني..أرجو المساعدة Alziny 4 205 05-01-21, 05:23 PM
آخر رد: 62531
  إثنين كومبو بوكس..أرجو المساعدة في طريقة التعامل معهم Alziny 4 243 05-01-21, 03:10 AM
آخر رد: Alziny
  سؤال لم أجد له إجابة ابدا..أرجو المساعدة Alziny 2 165 04-01-21, 11:10 PM
آخر رد: Alziny
  سؤال فني لأخواني..أرجو المساعدة Alziny 2 162 03-01-21, 03:22 PM
آخر رد: Alziny
  أرجو مساعدتي جزاكم الله خير..مشروعي واقف على هالنقطة Alziny 3 205 22-12-20, 10:45 PM
آخر رد: ابراهيم ايبو
  [سؤال] أرجو المساعدة العاجلة أخواني خبراء VB.NET Alziny 2 228 12-12-20, 03:26 PM
آخر رد: Alziny
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 410 16-09-20, 03:57 PM
آخر رد: رامى محمد
  أدوات التقارير غير موجودة فى الفيجوال أرجو المساعدة talatm 7 661 26-08-20, 01:57 AM
آخر رد: talatm
  نقل التركيز الى الخلية التالية في الداتا جريد بعد كتابة رقمين ismaeel 0 384 09-08-20, 05:09 PM
آخر رد: ismaeel

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


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