28-08-19, 08:36 PM
السلام عليكم ورحمة الله وبركاته
هذا الكود فيه قسمين
1 اذا كنت تنقل العناصر من ليست فيو ListView
2 اذا كنت تنقل العناصر من ليست بوكس ListBox
اختر حسب الاداة التي تريد
اما من اجل السطر فنضيف vbNewLine
هذا الكود فيه قسمين
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اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
