نقل العناصر - نسخة قابلة للطباعة

نقل العناصر - نسخة قابلة للطباعة

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

نقل العناصر - dasktop - 28-08-19

مرحبا

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

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

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

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

RE: نقل العناصر - Rabeea Qbaha - 28-08-19

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

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

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

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

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

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

RE: نقل العناصر - dasktop - 28-08-19

(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

RE: نقل العناصر - ابراهيم ايبو - 28-08-19

السلام عليكم ورحمة الله وبركاته
هذا الكود فيه قسمين
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