مرحبا
انا لدي مشروع ويحتوي على اداتين listview و textbox
وعند نقل العناصر من listview الى textbox
تضهر العناصر بشكل عرض
كيف نغير عرض العناصر في textbox الى شكل طولي مشابه لشكل العناصر في listbox
(28-08-19, 02:26 PM)dasktop كتب : [ -> ]مرحبا
انا لدي مشروع ويحتوي على اداتين listview و textbox
وعند نقل العناصر من listview الى textbox
تضهر العناصر بشكل عرض
كيف نغير عرض العناصر في textbox الى شكل طولي مشابه لشكل العناصر في listbox
أجعل ال textbox يقبل تعدد الاسطر multiline وبعد كل عمليه اضافة قم بالنزول الى سطر جديد
(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