[كود] Concatenate List(Of T) with Func Delegate - نسخة قابلة للطباعة

PHP كود :

  Public Function ConcatenateList(Of T)(first As List(Of T), second As List(Of T)) As T()

        Dim concatenate As Func(Of List(Of T), List(Of T), T()) = Function(X As List(Of T), Y As List(Of T))
                                                                      Dim result As T() = New T(X.Count + Y.Count - 1) {}
                                                                      For i As Integer = 0 To X.Count - 1
                                                                          result(i) = X(i)
                                                                      Next
                                                                      For j As Integer = 0 To Y.Count - 1
                                                                          result(X.Count + j) = Y(j)
                                                                      Next
                                                                      Return result
                                                                  End Function
        Return concatenate(first, second)
    End Function

PHP كود :

       ' Use it as string list
        Dim l1 As List(Of String) = New List(Of String) From {"Omar", "Amr"}
        Dim l2 As List(Of String) = New List(Of String) From {"Sherief", "Ahmed", "Omar"}

        ' do something with the array
        Dim l3 As String() = ConcatenateList(Of String)(l1, l2)
        ListBox1.Items.AddRange(l3)

        ' ---------------------------------------------------

        ' Use it as integer list
        Dim int1 As List(Of Integer) = New List(Of Integer) From {10, 20, 30}
        Dim int2 As List(Of Integer) = New List(Of Integer) From {40, 50, 60}
        Dim int3 As Integer() = ConcatenateList(Of Integer)(int1, int2)

        ' do something with the array
        For Each i As Integer In int3
            ListBox2.Items.Add(i)
        Next