28-01-16, 07:24 PM
الكود التالي يوضح كيف نضيف مصفوفة إلي مصفوفة أخري
الإستخدام
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