منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : نسخ صف من ليست فيو لاخري
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد نسخ صف من ليست فيو لاخري بالصورة داخل اليست فيو

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

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 حتى لا تختلف الصورة المنسوخة .
(30-10-14, 10:39 PM)kslawy كتب : [ -> ]السلام عليكم ورحمة الله وبركاته


PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 حتى لا تختلف الصورة المنسوخة .

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

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

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

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

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