+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39435)
التحكم في سطور listbox - malek369 - 03-09-21
السلام عليكم
يعطيكم العافية احتاج كون من خلالو اقدر اتحكم في السطور داخل ال listbox
مثلا عندي باللست بوكس هذه السطور
1
2
3
4
وعندي بالمقابل على سبيل المثال 4 textbox
بضغطة زر line1 باللست بوكس تروح على تكست 1 ولاين 2 يروح على تكست 2 وهيك الى الاخر
الرجاء مساعدتي بالهموضوع وشكرا الكم
RE: التحكم في سطور listbox - Anas Mahmoud - 03-09-21
هل هذا ما تقصده ؟
كود :
TextBox1.Text = ListBox1.Items(0)
TextBox2.Text = ListBox1.Items(1)
TextBox3.Text = ListBox1.Items(2)
TextBox4.Text = ListBox1.Items(3)اذا كان الامر كذلك بامكانك ان تضع مربعات النص في مصفوفة ومن ثم تستعمل For Loop لتنفيذ الامر بغذ النظر عن عدد ال textboxes بدون تكرار اسطر
كود :
Dim TextBoxes() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4}
For i As Integer = 0 To TextBoxes.Length - 1
TextBoxes(i).Text = ListBox1.Items(i)
NextRE: التحكم في سطور listbox - malek369 - 03-09-21
شكرا لك اخي العزيز اشتغلت 100% في ميزان حسناتك انشالله
بس في سؤال اخير ازا ممكن تساعدني اخوي كيف احذف مثلا اخر 3 احرف من كل الموجود بلست بوكس معينة مثلا كانت اللست فيها هيك
99999111
بعد التعديل تصير هيك
99999
وشكرا الك مرة تانية وكتير الله خيرك اخوي
RE: التحكم في سطور listbox - Anas Mahmoud - 03-09-21
كود :
For i As Integer = 0 To ListBox1.Items.Count - 1
Dim item As String = ListBox1.Items(i)
ListBox1.Items(i) = item.Remove(item.Length - 3)
NextRE: التحكم في سطور listbox - malek369 - 04-09-21
شكر الك اخوي زبط 100% كتر الله خير في ميزان حسناتك انشالله <3
واسف على الازعاج كل الاحترام