Cómo llamar una función en Visual Basic

Información del autor

¿Tienes problemas con los conceptos de “función” en VB (Visual Basic)? Si es así, lee esta guía para que puedas aprender acerca de las llamadas a funciones en el paradigma de VB.

Pasos

1
¿Qué es una función?
- Usa un procedimiento de función cuando necesites devolver un valor al código de llamada.
- Una función tiene un tipo, y la función devolverá un valor a la subrutina de llamada basándose en el código que contenga.
2
¿Cómo declarar una función?
- Solo es posible definir una función a nivel del módulo. Esto significa que el contexto de declaración de una función debe ser una clase, estructura, módulo o interfaz, y no puede ser un archivo de código fuente, procedimiento o bloque.
- Una función se declara de la misma manera que una subrutina, excepto en que debes usar la palabra clave “Function” en lugar de “Sub”.
- Las funciones por defecto tienen acceso público. Puedes ajustar su nivel de acceso con los modificadores de acceso.
3
¿Cómo llamar una función?
- Llamas a una función con el nombre del procedimiento, seguido de la lista de argumentos entre paréntesis, en una expresión.
- Puedes omitir los paréntesis sólo si no proporcionas argumentos. Sin embargo, el código es más legible si incluyes siempre los paréntesis.
- Una función también puede ser llamada usando una instrucción Call, en cuyo caso se ignora el valor de retorno.
- Para devolver un valor, asigna un valor del tipo apropiado para el nombre de la función, como si se tratara de una variable.

Sintaxis

Declaración

[ <attributelist> ] [ accessmodifier ] [ proceduremodifiers ] [ Shared ]
Function name [ (Of typeparamlist) ] [ (parameterlist) ] [ As returntype ]
    [ statements ]
    [ Exit Function ]
    [ statements ]
End Function

Llamado

'Sin Call
Function_Name()
    
'Con Call
Call Function_Name()

Ejemplo

Ejemplo de una función que sumo dos números

Private Function Add(ByVal x As Integer, ByVal y As Integer) As Integer
    Dim Res as integer
    Res = x + y
    Add = Res
End Function
 
Private Sub Form_Load()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    a = 32
    b = 64
    c = Add(a, b)
    MsgBox ("Sum is : " & c)
End Sub