تقييم الموضوع :
  • 1 أصوات - بمعدل 4
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الجمع لجميع قيم الليست بوكس
#1
Star 
توضيح السؤال لدي :
3بوتون
5 تكست
2 ليست بوكس

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

هذا سؤالي
وشكراً لكم
Rolleyes
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:
#2
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
RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: محمد
#3
شكراً لك اخي العزيز
وبارك الله فيك

اجابتك ناقصة

Big Grin
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:
#4
(20-12-13, 08:27 PM)محمد كتب : شكراً لك اخي العزيز
وبارك الله فيك
اجابتك ناقصة
Big Grin
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

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: محمد
#5
بارك الله فيك وفي علمك وقدراتك شكراً لك
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:
#6
فيجول بيسك 6 جمع قيم عمود في ليست بوكس
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 212 منذ 2 ساعة مضت
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 45 أمس, 11:22 AM
آخر رد: ممدوح الخطيب
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,364 30-11-16, 10:16 PM
آخر رد: omferas
  كيف اقوم بتعبئت كمبو بوكس من جدول في اسكيول سيرفر معتز الجازوي 2 69 19-11-16, 03:10 AM
آخر رد: معتز الجازوي
  مسار قاعدة البيانات في التكست بوكس hglogtd 2 75 19-11-16, 02:19 AM
آخر رد: hglogtd
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 1 73 17-11-16, 10:50 PM
آخر رد: السرور
  كيف اربط ثلاثة كومبو بوكس abanoub saeed nabil 6 182 13-11-16, 11:23 PM
آخر رد: هاوي1995
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 109 05-11-16, 07:39 PM
آخر رد: shwehdi4pc
Big Grin [VB.NET] الكنترولز في التول بوكس مش متفعلة Asmaa adel 0 43 30-10-16, 09:47 AM
آخر رد: Asmaa adel
  طريقة تغيير الباك كلر للتكست بوكس thevirus 8 211 29-10-16, 05:57 PM
آخر رد: thevirus

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


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