[dasktop]

مرحبا

انا لدي مشروع ويحتوي على اداتين listview و textbox 

وعند نقل العناصر من listview الى textbox 

تضهر العناصر بشكل عرض

كيف نغير عرض العناصر في textbox الى شكل طولي مشابه لشكل العناصر في listbox

[Rabeea Qbaha]

(28-08-19, 02:26 PM)dasktop كتب : مرحبا

انا لدي مشروع ويحتوي على اداتين listview و textbox 

وعند نقل العناصر من listview الى textbox 

تضهر العناصر بشكل عرض

كيف نغير عرض العناصر في textbox الى شكل طولي مشابه لشكل العناصر في listbox 

أجعل ال textbox يقبل تعدد الاسطر multiline وبعد كل عمليه اضافة قم بالنزول الى سطر جديد

[dasktop]

(28-08-19, 04:10 PM)Rabeea Qbaha كتب :

(28-08-19, 02:26 PM)dasktop كتب : مرحبا

انا لدي مشروع ويحتوي على اداتين listview و textbox 

وعند نقل العناصر من listview الى textbox 

تضهر العناصر بشكل عرض

كيف نغير عرض العناصر في textbox الى شكل طولي مشابه لشكل العناصر في listbox 

أجعل ال textbox يقبل تعدد الاسطر multiline وبعد كل عمليه اضافة قم بالنزول الى سطر جديد

كتبت هاذا الكود لتعبئة ال textbox من listview ونجح

والمشكله هي ان جميع السطور في سطر واحد بلعرض

فكيف نجعل السطور مثل ال listbox

كود :

For x5 As Integer = 0 To ListView1.Items.Count - 1
           For Each t4 In ListView1.Items(x5).Text
               TextBox2.Text = TextBox2.Text + t4
           Next
       Next

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
هذا الكود فيه قسمين 
1 اذا كنت تنقل العناصر من ليست فيو  ListView
2 اذا كنت تنقل العناصر من ليست بوكس ListBox
اختر حسب الاداة التي تريد
اما من اجل السطر فنضيف   vbNewLine

كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'ListView  اذا كانت الاداة ليست فيو  
       Dim Mylist As New List(Of String)
       For Each objItem As ListViewItem In ListView1.Items
           Mylist.Add(objItem.Text)
       Next
       For Each item As String In Mylist
           TextBox2.Text += item & vbNewLine
       Next

       '================
       'ListBox  اذا كانت الاداة ليست بوكس
       For Each item As String In ListBox1.Items
           TextBox2.Text += item & vbNewLine
       Next

   End Sub