[سؤال] الجمع لجميع قيم الليست بوكس

[سؤال] الجمع لجميع قيم الليست بوكس - نسخة قابلة للطباعة

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

الجمع لجميع قيم الليست بوكس - محمد - 20-12-13

توضيح السؤال لدي :
3بوتون
5 تكست
2 ليست بوكس

عند الضغط على البوتون 1 يقوم بأظافة القيمة التي في التكست 1 الى الليست بوكس 1.
عند الضغط على البوتون 2 يقوم بأظافة القيمة التي في التكست 2 الى الليست بوكس 2.
عند الضغط على البوتون 3 يقوم بالضرب بين قيم الليست بوكس 1 بقيم الليست بوكس 2
بمعنى يضرب كل قيمة في الليست بوكس 1 بما يقابلها في الليست بوكس 2
ويضع ناتج جميع عمليات الضرب في التكست 3 .
وفي نفس هذا البوتون 3 يقوم بعملية الجمع لجميع قيم الليست بوكس 1 ووضعها في التكست 4 . ونفس العملية لليست بوكس 2 واضافة مجموعهن الى التكست 5

هذا سؤالي
وشكراً لكم
Rolleyes

RE: سهل يشغل مخك - Genius Live - 20-12-13

This code will do the job
The code for this collection of values in a ListBox1 and put it in the TextBox4

كود :

Dim x As Double = 0

        For i As Integer = 0 To ListBox1.Items.Count - 1

            ListBox1.SelectedIndex = i

            x += ListBox1.SelectedItem.ToString

        Next

        TextBox4.Text = x

Use the same code to collect the other List Box

my greetings
Rolleyes

RE: سهل يشغل مخك - محمد - 20-12-13

شكراً لك اخي العزيز
وبارك الله فيك

اجابتك ناقصة

Big Grin

RE: سهل يشغل مخك - Genius Live - 20-12-13

(20-12-13, 08:27 PM)محمد كتب : شكراً لك اخي العزيز
وبارك الله فيك
اجابتك ناقصة

The remainder is easy
Take a look at the following codes

To add value to the Listbox

كود :

ListBox1.Items.Add(500) 'number

        ListBox1.Items.Add("500") 'string

To Multiplying the values of the listbox with the values of the other listbox

كود :

Dim x As Double = 0

        Dim y As Double = 0

        For i As Integer = 0 To ListBox1.Items.Count - 1

            ListBox1.SelectedIndex = i

            ListBox2.SelectedIndex = i

            y = CType(ListBox1.SelectedItem.ToString, Double) * CType(ListBox2.SelectedItem.ToString, Double)

            x += y

        Next

        TextBox3.Text = x

RE: الجمع لجميع قيم الليست بوكس - محمد - 20-12-13

بارك الله فيك وفي علمك وقدراتك شكراً لك

RE: الجمع لجميع قيم الليست بوكس - houdhoud - 07-05-14

فيجول بيسك 6 جمع قيم عمود في ليست بوكس