¿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
-
¿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.
-
¿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.
-
¿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.
Anuncio
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
Anuncio