تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل]مراجعة لكود جملة FOR
#11
(03-04-19, 09:01 PM)بدري كتب : وهذا الكود هو معدل كل TabPage لوحده
بحيث تكون القيمه في Label الموجوده في TabPage
هي متوسط مجموع TextBox في نفس TabPage

For Each pg As TabPage In TabControl1.TabPages
   Dim lbl As Label = pg.Controls.OfType(Of Label)().First
   Dim tot As Single = 0
   For Each tb As TextBox In pg.Controls.OfType(Of TextBox)()
       If String.IsNullOrEmpty(tb.Text.Trim) Then
           tb.BackColor = Color.Red
       Else
           tb.BackColor = Color.White
       End If
       tot += Val(tb.Text)
   Next
   lbl.Text = tot / pg.Controls.OfType(Of TextBox)().Count
Next

عذراً أستاذي لم يكن هذا طلبي لا أريد متوسط - سأوضح لك أكثر -

ألم تقم بجمع قيمة حقول النص في كل TabPage على حده و من ثم أظهرت لي مجموع هذه القيم على أداة Label تمام أخي إلى هنا الأن أريد أن تعرف عدد الحقول المجموعة في TabPage1 مثلاً ومن ثم تقسمها على قيمة  Label الموجودة على نفس TabPage مثل  TabPage1 ونطبق السابق  على باقي TabPage المتبقية

أشكرك أخي بدري لقد أجبتني على طلبي وهذا ماكنت أريدة بالظبط ألف ألف شكر أستاذى كل الشكر والإحترام Shy
الرد }}}
تم الشكر بواسطة: بدري
#12
الذي تطلبه هو المتوسط اخي
فرضا TabPage1 فيه
TextBox1 = 4
TextBox2 = 15
TextBox3 = 5
مجموعهم = 24
Label1 = 24 / 3 
يعني  
Label1 = 6
الرد }}}
تم الشكر بواسطة:
#13
تم الحل وألف شكر لك أخي
الرد }}}
تم الشكر بواسطة: بدري , elgokr



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


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