Como pasar un Array de cualquier tipo como argumento

[BillieBert]

Hola!

Bueno, mi problema es que estaba tratando de hacer una función que haga "push" en un array, es decir que agregue un elemento al final de un array, la función es esta:

Código:

    Public Sub Push(ByRef DiArray() as string, ByRef DiValue as string)
        Dim Limite As Integer = DiArray.Length
        ReDim Preserve DiArray(Limite)
        DiArray(Limite) = DiValue
    End Sub

Trabaja bien, solo que acepta únicamente arrays de tipo string como se puede ver en la definición, lo que yo quiero hacer es que acepte cualquier tipo de Arrays para que funcione de manera mas universal.

El problema es que si quito el tipo de Array "as string" me dice que si un argumento está definido todos deben estarlo, y si quito el tipo al argumento DiValue entonces al compilar me da mensaje de error que es el siguiente:

"No se puede convertir un valor de tipo '1-matriz dimensional de integer' en '1-matriz dimensional de object' debido a que 'integer' no es un tipo de referencia.

Agradecería que alguien me indicara si existe solución, repito: quiero hacer una función que acepte todo tipo de Arrays y todo tipo de Valores que seran agregados al Array.

Un saludo y gracias de antemano!

[alexg88]

Buenas,

Para lo que quieres existen los tipos genéricos.

Código vb:

Public Sub Push(Of T)(ByRef DiArray() as T, ByRef DiValue as T)
        Dim Limite As Integer = DiArray.Length
        ReDim Preserve DiArray(Limite)
        DiArray(Limite) = DiValue
    End Sub
 

Te dejo un enlace para que te informes más sobre los tipos genéricos:
http://msdn.microsoft.com/es-es/library/w256ka79.aspx

Saludos.

[BillieBert]

Ooohh, vaya! no tenía idea de esto que me muestras, y de verdad que me ayuda muchísimo!
Yo andaba por otros caminos que no vienen ni al caso jaja! Pues muchas gracias :) Problema resuelto!