+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل]مراجعة لكود جملة FOR (/showthread.php?tid=29238)
الصفحات:
1
2
RE: مراجعة لكود جملة FOR - sads - 03-04-19
(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 المتبقية
أشكرك أخي بدري لقد أجبتني على طلبي وهذا ماكنت أريدة بالظبط ألف ألف شكر أستاذى كل الشكر والإحترام
RE: مراجعة لكود جملة FOR - بدري - 03-04-19
الذي تطلبه هو المتوسط اخي
فرضا TabPage1 فيه
TextBox1 = 4
TextBox2 = 15
TextBox3 = 5
مجموعهم = 24
Label1 = 24 / 3
يعني
Label1 = 6
RE: مراجعة لكود جملة FOR - sads - 03-04-19
تم الحل وألف شكر لك أخي