Создать новый массив типа параметров

Question

Я пытаюсь создать функцию для анализа всех значений в многомерном Array с учетом всего одного измерения. Детали не актуальны, но для этой функции мне нужно вернуть одномерный Array, содержащий значения того же типа, который имеет исходный многомерный Array.

Чтобы передать любые Array с любыми измерениями в мою функцию, я объявил тип этого параметра как Array. Однако как мне создать новый Array этого конкретного типа (например, Integer)?

В настоящее время у меня есть следующий код:

Function GetRow(ByVal arr As Array) As Array 
    Dim result As (...) 'This should be Integer() if arr contains Integers, etc. 
    Return result 
End Function 

Как объявить тип result, чтобы сделать его с тем же типом значений как arr? New Array невозможно как указано MustInherit.

Answer 1

Использование дженериков здесь, так что функция может обрабатывать любой тип:

Function GetRow(Of T)(ByVal arr() As T) As T() 
    Dim result() As T 
    ReDim result(arr.Length - 1) 
    Array.Copy(arr, result, arr.Length) 
    Return result 
End Function 

Пример использования:

Dim iarr() As Integer = {1, 2, 3, 4} 
    Dim copy = GetRow(iarr)