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

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

الصفحات: 1 2

سؤال في الليست بوكس - اليوم السابع - 25-11-19

بحثت في المنتدي ولم اجد شئ 
عندي تكست بوكس فيه محتوي 
1
2
3
4
وعندي زر بوتن 
اريد لما اضغط علي الزر تتحول الارقام بنفس الترتيب في الليست بوكس بنفس الشكل بحيث يبقي كل رقم في لاين لوحده

RE: سؤال في الليست بوكس - 3booody - 25-11-19

كود :
For Each t As String In ListBox1.Items
           TextBox1.AppendText(t & vbNewLine)
       Next
       TextBox1.Text = TextBox1.Text.Trim


RE: سؤال في الليست بوكس - اليوم السابع - 25-11-19

(25-11-19, 04:05 PM)3booody كتب :
كود :
For Each t As String In ListBox1.Items
           TextBox1.AppendText(t & vbNewLine)
       Next
       TextBox1.Text = TextBox1.Text.Trim

للأسف مش شغال الكود

RE: سؤال في الليست بوكس - 3booody - 25-11-19

العفو ظننت من ليست الى تكست

تفضل

كود :
ListBox1.Items.AddRange(TextBox1.Text.Split(vbNewLine).ToArray)


RE: سؤال في الليست بوكس - اليوم السابع - 25-11-19

(25-11-19, 05:18 PM)3booody كتب : العفو ظننت من ليست الى تكست

تفضل

كود :
ListBox1.Items.AddRange(TextBox1.Text.Split(vbNewLine).ToArray)

الله ينور تسلم ايدك
(25-11-19, 05:18 PM)3booody كتب : العفو ظننت من ليست الى تكست

تفضل

كود :
ListBox1.Items.AddRange(TextBox1.Text.Split(vbNewLine).ToArray)

معلش عندي سؤال تاني دلوقتي انا هضيف في التسكت بوكس محتوي وعندي ليبل مكتوب فيه رقم 1 
عاوز اقول للكود لما الليست بوكس الصف يكون عليه سليكت يضيف علي المحتوي اللي مكتوب في الليبل

RE: سؤال في الليست بوكس - 3booody - 25-11-19

لديك الحدث SelectedIndexChanged

كود :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       Label1.Text = ListBox1.SelectedItem.ToString
   End Sub


RE: سؤال في الليست بوكس - اليوم السابع - 25-11-19

(25-11-19, 05:34 PM)3booody كتب : لديك الحدث SelectedIndexChanged

كود :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       Label1.Text = ListBox1.SelectedItem.ToString
   End Sub

شكرا لك يا عبقري والله العظيم عندي سؤال كمان بس محرج منك اوووي

RE: سؤال في الليست بوكس - 3booody - 25-11-19

تفضل أخي اسأل على راحتك

RE: سؤال في الليست بوكس - اليوم السابع - 25-11-19

(25-11-19, 05:42 PM)3booody كتب : تفضل أخي اسأل على راحتك

عندي بالفورم داتا جريد فيو فيها عمود عاوز كل ما اعمل سيليكت في الليست بوكس يضاف الصف في الداتا جريد فيو تحت بعض

RE: سؤال في الليست بوكس - 3booody - 25-11-19

بنفس حدث الليبل


كود :
DataGridView1.Rows.Add(ListBox1.SelectedItem.ToString)