منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] نسخ صف من ليست فيو لاخري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=10544)

نسخ صف من ليست فيو لاخري - محمد اسماعيل - 30-10-14

اريد نسخ صف من ليست فيو لاخري بالصورة داخل اليست فيو

يعني الصف فية ايقونة من imaglist اريد نسخ الصف بالكتابات والصورة داخل الايقونة من ليست فيو 1 الي ليست فيو2

حاولت بالكود دة ولكن فشلت


PHP كود :
  For Each item As ListViewItem In Me.ListView1.SelectedItems
            For Each itemg As ListViewItem In Me.ListView2.Items
                Me.ListView2.Items.Add(itemg.ImageIndex = item.ImageIndex)
            Next
        Next 


RE: نسخ صف من ليست فيو لاخري - kslawy - 30-10-14

السلام عليكم ورحمة الله وبركاته

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.ListView1.Items.Count > 0 Then
            If Me.ListView1.SelectedItems IsNot Nothing Then
                For Each itm As ListViewItem In Me.ListView1.SelectedItems
                   Dim newitem As ListViewItem = itm.Clone
                    Me.ListView2.Items.Add(newitem)
                Next
            End If
        End If
    End Sub 

يجب أن تحتوي أداتي الـ Listview علي نفس أداة الصور ImageList حتى لا تختلف الصورة المنسوخة .

RE: نسخ صف من ليست فيو لاخري - محمد اسماعيل - 30-10-14

(30-10-14, 10:39 PM)kslawy كتب : السلام عليكم ورحمة الله وبركاته


PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.ListView1.Items.Count > 0 Then
            If Me.ListView1.SelectedItems IsNot Nothing Then
                For Each itm As ListViewItem In Me.ListView1.SelectedItems
                   Dim newitem As ListViewItem = itm.Clone
                    Me.ListView2.Items.Add(newitem)
                Next
            End If
        End If
    End Sub 

يجب أن تحتوي أداتي الـ Listview علي نفس أداة الصور ImageList حتى لا تختلف الصورة المنسوخة .

الكود يعمل جيدا جزاك اللة خيرا
اريد لو اخترت اكتر من صفين لا ينقل شيء

RE: نسخ صف من ليست فيو لاخري - kslawy - 31-10-14

لديك طريقتين اما تضيف كود تحقق اضافي لجملة IF الثانية كالتالي:

If Me.ListView1.SelectedItems IsNot Nothing And Me.ListView1.SelectedItems.Count =1 Then

أو تذهب لخاصية MultiSelect التابعة لأداة .ListView وتضع قيمتها False وتعني عدم تحديد أكثر من صف.

RE: نسخ صف من ليست فيو لاخري - محمد اسماعيل - 03-11-14

جزاك اللة الف خير علي الاكواد

يقفل الموضوع لانتهاء الطلب