منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] جمع قيم داخل listbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] جمع قيم داخل listbox (/showthread.php?tid=40466)

جمع قيم داخل listbox - رضوان الجماعي - 12-01-22

اخواني الأعزاء لا انكر فظلكم عليا في تعلمي لغة vb.n
واود ان اسئل سؤال كيف يمكن جمع قيم داخل lisbox غير مرتبطه باداتاجريد وإظهارها تلقائيا او عن طريق بوتن في تكست بوكس .
علمني احد المطورين في هذا المنتدى شى رائع جدا ان البرمجه ليست كود فقط وانما تفكير في حل المشكله فشكرا له من اعماق روحي كان اسمه ابراهيم ايبو سلام من الله عليه .

RE: جمع قيم داخل listbox - ابراهيم ايبو - 12-01-22

السلام عليكم ورحمة الله وبركاته
اخي الكريم رضوان بارك الله بك على اخذك بالنصيحة وانار الله طريقك الى النجاح
بالنسبة لسؤالك تفضل هذا الكود واهم نقطة فيه هو تحويل عناصر الليست بوكس الى integer حتى يتم الجمع وان كان فيها قيم لها فاصلة عشرية غير نوع البيانات الى Double مع تعريف المتغير AA ايضا Double وكذلك دالة التحويل الى CDbl
كود :
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AA As Integer = 0
       If ListBox1.Items.Count > 0 Then
           For i As Integer = 0 To ListBox1.Items.Count - 1
               AA += CInt(ListBox1.Items(i))
           Next
           TextBox1.Text = AA
       Else
           TextBox1.Text = 0
       End If
   End Sub


RE: جمع قيم داخل listbox - أبو خالد الشكري - 12-01-22

بعد إذن الأستاذ إبراهيم

أنا عندي كود مختصر قليلا ، ويعطي نفس النتيجة ،

وهذا هو ..  

كود :
       Dim myNumber As Integer = 0

       For I = myNumber To ListBox1.Items.Count - 1
           myNumber = myNumber + ListBox1.Items(I)
       Next

       TextBox1.Text = myNumber


RE: جمع قيم داخل listbox - رضوان الجماعي - 12-01-22

شكرا جزيلا استاذ ابراهيم على مرورك الرشيق والسلس في الشرح من خلال كودك الذي أرسلته ومما فهمت عدلت الكود على النحو التالي وزبط بشكل رائع
Dim x, sum as integer
For x = 0 to listbox2.items.count(x)
Next
Textbox6.text= sum