تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقل العناصر
#1
مرحبا

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

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

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

كيف نغير عرض العناصر في textbox الى شكل طولي مشابه لشكل العناصر في listbox
الرد
تم الشكر بواسطة: asemshahen5
#2
(28-08-19, 02:26 PM)dasktop كتب : مرحبا

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

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

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

كيف نغير عرض العناصر في textbox الى شكل طولي مشابه لشكل العناصر في listbox 
أجعل ال textbox يقبل تعدد الاسطر multiline وبعد كل عمليه اضافة قم بالنزول الى سطر جديد
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , dasktop
#3
(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
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#4
السلام عليكم ورحمة الله وبركاته
هذا الكود فيه قسمين 
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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: سعود , سعود , Rabeea Qbaha , asemshahen5 , dasktop



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


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