تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] التحقق من وجود نص فى التكست بوكس
#21
السلام عليكم

انسخي هذه الاكواد الى برنامج


PHP كود :
Private Sub Text10_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text11_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text12_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text4_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text5_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text6_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text7_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + Val(Text8.Text) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text8_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text9_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub 


بالتوفيق

وهذا برنامجك بعد التعديل

المشكلة كانت في text8  راجعيها هتلاقي الفرق هو عدم ضرب قيمة text8 * 20


بالتوفيق


الملفات المرفقة
.rar   اختبار.rar (الحجم : 1.61 ك ب / التحميلات : 28)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
#22
(01-03-16, 12:00 AM)ahmedabdelaliem كتب : السلام عليكم

انسخي هذه الاكواد الى برنامج


PHP كود :
Private Sub Text10_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text11_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text12_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text4_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text5_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text6_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text7_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + Val(Text8.Text) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text8_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text9_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub 


بالتوفيق

وهذا برنامجك بعد التعديل

المشكلة كانت في text8  راجعيها هتلاقي الفرق هو عدم ضرب قيمة text8 * 20


بالتوفيق
اشكرك على الرد لكن اعلم جيدا انى وضعت قيم text8  لكن اختفت بعد التشغيل لاادرى لماذا ولكن .... اكرر الشكر على الافاده
الرد
تم الشكر بواسطة: ahmedabdelaliem
#23
السلام عليكم ورحمه اللة وبركاته 
سؤالي هو كيف اجعل التكست بوكس يظهر بالون الاحمر عند اضافه المستخدم للمصطلح الخطأ اكون شاكره لمن يساعدني بكتابه الكود
الرد
تم الشكر بواسطة:
#24
وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Sub Text1_Change()
If 
Text1.Text "Test" Then
Text1
.ForeColor vbBlue
Else
Text1.ForeColor vbRed
End 
If
End Sub 

بالتوفيق .
الرد
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن الكومبو بوكس princeofislam 2 223 02-07-19, 11:56 AM
آخر رد: princeofislam
  [vb6.0] كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس وادي العوضي 8 498 18-02-19, 12:09 AM
آخر رد: وادي العوضي
  احتاج مساعدة في الكومبو بوكس scsi7000 3 425 28-12-18, 11:22 AM
آخر رد: scsi7000
  التعديل علا اليست بوكس wolf1120 7 664 08-08-18, 06:58 AM
آخر رد: Ahmed_Mansoor
  اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل mhareek 8 909 03-12-17, 02:04 PM
آخر رد: eiocm
  حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة المبرمج العتيق 6 679 28-10-17, 07:11 PM
آخر رد: المبرمج العتيق
  ارسال من التاكست بوكس الى الوورد حافظ حافظ 4 722 19-09-17, 12:09 PM
آخر رد: مصمم هاوي
  لديا قيمة في تاكست بوكس اريد تحويلها wolf1120 2 605 14-09-17, 07:20 PM
آخر رد: wolf1120
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 919 22-08-17, 07:00 PM
آخر رد: Microformt
  تغيير لون تاكست بوكس عند سن معين بوزوينة علي 1 601 04-07-17, 02:06 AM
آخر رد: Ahmed_Mansoor

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


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