Compartir a través de


Procedimientos genéricos en Visual Basic

Un procedimiento genérico, también denominado método genérico, es el que está definido con al menos un parámetro de tipo.Esto permite que el código de llamada ajuste los tipos de datos a sus requisitos cada vez que llama al procedimiento.

El simple hecho de estar definido dentro de una clase o estructura genérica no convierte en genérico al procedimiento.Para ser genérico, el procedimiento debe tomar por lo menos un parámetro de tipo, además de cualquier otro parámetro normal que pueda a tomar.Una clase o estructura genérica puede contener procedimientos que no sean genéricos; y las clases, estructuras o módulos no genéricos pueden contener procedimientos genéricos.

Un procedimiento genérico puede utilizar los parámetros de tipo en su lista de parámetros normales, en su tipo de valor devuelto, si existe, y en su código de procedimiento.

Inferencia de tipo

Puede llamar a un procedimiento genérico sin proporcionar ningún argumento de tipo.Al llamar de este modo, el compilador intenta determinar los tipos de datos adecuados para pasar los argumentos de tipo del procedimiento.Esto se denomina inferencia de tipo.El código siguiente muestra una llamada en la que el compilador deduce que debe pasar el tipo String al parámetro de tipo t.

Public Sub testSub(Of t)(ByVal arg As t)
End Sub
Public Sub callTestSub()
    testSub("Use this string")
End Sub

Si el compilador no puede deducir los argumentos de tipo del contexto de su llamada, crea un informe de error.Una posible causa de este tipo de error es la falta de coincidencia del rango de matriz.Por ejemplo, suponga que define un parámetro normal como matriz de un parámetro de tipo.Si se llama al procedimiento genérico proporcionando una matriz de distinto rango (número de dimensiones), la desigualdad provoca que se produzca un error en la inferencia de tipo.En el código siguiente se muestra una llamada en la que se pasa una matriz bidimensional a un procedimiento que espera una matriz unidimensional.

Public Sub demoSub(Of t)(ByVal arg() As t)

End Sub

Public Sub callDemoSub()

Dim twoDimensions(,) As Integer

demoSub(twoDimensions)

End Sub

Sólo se puede invocar la inferencia de tipo omitiendo todos los argumentos de tipo.Si proporciona alguno, debe proporcionarlos todos.

La inferencia de tipo sólo se admite para los procedimientos genéricos.No puede invocar la inferencia de tipo en las clases, estructuras, interfaces o delegados genéricos.

Ejemplo

ms235246.collapse_all(es-es,VS.110).gifDescripción

En el ejemplo siguiente se define un procedimiento genérico Function para encontrar un elemento concreto en una matriz.Se define un parámetro de tipo, que se utiliza para construir los dos parámetros de la lista de parámetros.

ms235246.collapse_all(es-es,VS.110).gifCódigo

Public Function findElement(Of T As IComparable) (
        ByVal searchArray As T(), ByVal searchValue As T) As Integer

    If searchArray.GetLength(0) > 0 Then
        For i As Integer = 0 To searchArray.GetUpperBound(0)
            If searchArray(i).CompareTo(searchValue) = 0 Then Return i
        Next i
    End If

    Return -1
End Function

ms235246.collapse_all(es-es,VS.110).gifComentarios

Para el ejemplo anterior es necesario poder comparar searchValue con cada elemento de searchArray.Para garantizar esta capacidad, se restringe el parámetro de tipo T para implementar la interfaz IComparable<T>.El código utiliza el método CompareTo, en lugar del operador =, puesto que no existen garantías de que el tipo de argumento proporcionado para T admita el operador =.

Puede probar el procedimiento findElement con el código siguiente.

Public Sub tryFindElement()
    Dim stringArray() As String = {"abc", "def", "xyz"}
    Dim stringSearch As String = "abc"
    Dim integerArray() As Integer = {7, 8, 9}
    Dim integerSearch As Integer = 8
    Dim dateArray() As Date = {#4/17/1969#, #9/20/1998#, #5/31/2004#}
    Dim dateSearch As Date = Microsoft.VisualBasic.DateAndTime.Today
    MsgBox(CStr(findElement(Of String)(stringArray, stringSearch)))
    MsgBox(CStr(findElement(Of Integer)(integerArray, integerSearch)))
    MsgBox(CStr(findElement(Of Date)(dateArray, dateSearch)))
End Sub

Las llamadas anteriores a MsgBox muestran respectivamente "0", "1" y "-1."

Vea también

Tareas

Cómo: Definir una clase que pueda proporcionar la misma funcionalidad en tipos de datos diferentes (Visual Basic)

Cómo: Usar clases genéricas (Visual Basic)

Referencia

Lista de tipos (Visual Basic)

Lista de parámetros (Visual Basic)

Conceptos

Tipos genéricos en Visual Basic (Visual Basic)

Procedimientos en Visual Basic

Argumentos y parámetros de procedimiento (Visual Basic)