[sooriaty03]

(18-09-13, 02:24 AM)@@أبورائد@@ كتب : السلام عليكم ورحمة الله وبركاته


جرب هذا المثال قد يفيدك

كود :

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       For i = 1 To 3
           ' ListView1.Items(i) تعني نسخة من Clone
           Me.ListView2.Items.Add(Me.ListView1.Items(i).Clone)
       Next

   End Sub

End Class

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

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


منور أخي أبو رائد 
أسأل الله أن يوفقك لكل خير ...

بالنسبة إلى السؤال
فأحب أن أضيف إضافة وهي الجمع
تفضل أخي هذا هو الكود

كود :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'طريقة جمع كامل الصفوف
        Dim Total As Integer = 0
        For I = 0 To Me.ListView1.Items.Count - 1
            ' ListView1.Items(i) تعني نسخة من Clone
            Me.ListView2.Items.Add(Me.ListView1.Items(I).Clone)
            Total += CInt(Me.ListView1.Items(I).Text)
        Next
        'طريقة جمع آخر خمسة صفوف
        Dim SubTotal As Integer = 0
        For I = 6 To Me.ListView1.Items.Count - 1
            ' ListView1.Items(i) تعني نسخة من Clone
            Me.ListView2.Items.Add(Me.ListView1.Items(I).Clone)
            SubTotal += CInt(Me.ListView1.Items(I).Text)
        Next
        MsgBox(Total)
        MsgBox(SubTotal)
    End Sub
End Class