Contenido

# Instrucción Declare

Declara y define una subrutina en un archivo DLL que se desee ejecutar desde LibreOffice Basic.

Consulte también: FreeLibrary

## Sintaxis:

    Declare {Sub | Function} Name Lib "NombreBiblioteca" [Alias "NombreAlias"] [Parámetro] [As Tipo]

## Parámetros:

Nombre: un nombre distinto del definido en la DLL para llamar a la subrutina desde LibreOffice Basic.

NombreAlias: Nombre de la subrutina como se define en la DLL.

NombreBiblioteca: Archivo o nombre del sistema de la DLL. Esta biblioteca se carga automáticamente la primera vez que se utiliza la función.

ListaArgumentos: lista de parámetros que representan argumentos que se pasan al procedimiento cuando se accede a él. El tipo y número de parámetros depende del procedimiento que se ejecute.

Tipo: define el tipo de datos del valor que devuelve un procedimiento de función. Puede excluir este parámetro si se introduce un carácter de declaración de tipo después del nombre.

Para pasar un parámetro a una subrutina como valor en lugar de como referencia, el parámetro debe estar indicado con la palabra clave ByVal.

## Ejemplo:

    Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )
    Sub ExampleDeclare
    Dim lValue As Long
        lValue = 5000
        MyMessageBeep( lValue )
        FreeLibrary("user32.dll" )
    End Sub