منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

علمني احد المطورين في هذا المنتدى شى رائع جدا ان البرمجه ليست كود فقط وانما تفكير في حل المشكله فشكرا له من اعماق روحي كان اسمه ابراهيم ايبو سلام من الله عليه .

السلام عليكم ورحمة الله وبركاته
اخي الكريم رضوان بارك الله بك على اخذك بالنصيحة وانار الله طريقك الى النجاح
بالنسبة لسؤالك تفضل هذا الكود واهم نقطة فيه هو تحويل عناصر الليست بوكس الى 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

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

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

وهذا هو ..

كود :
       Dim myNumber As Integer = 0

        For I = myNumber To ListBox1.Items.Count - 1

            myNumber = myNumber + ListBox1.Items(I)

        Next

        TextBox1.Text = myNumber

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

رضوان الجماعي

ابراهيم ايبو

أبو خالد الشكري

رضوان الجماعي