Como Importar dll LibreOffice Basic, exemplo VBA , como faz Basic

[andreamador]

Exemplo no VBA

Private Declare Function APCreateConnControl Lib "ApApi" (ByVal Server As String, ByVal Port As Integer, ByVal Environment As String, ByVal User As String, ByVal Password As String) As Integer

Como ficaria em LibreOffice Basic?

[andreamador]

a dll esta na mesma pasta é necessario apontar em algum lugar

assim estaria certo?

Private Declare Function APCreateConnControl2 Lib “ApApi.dll” Alias “APCreateConnControl” (ByVal Server As String, ByVal Port As Integer, ByVal Environment As String, ByVal User As String, ByVal Password As String) As Integer

[ohallot]

Veja a instrução Declare na ajuda do LibreOffice Basic. Tem o mesmo propósito.

Instrução Declare [Runtime]
Declara e define uma subrotina a partir da qual se deseja executar do LibreOffice Basic.
Consulte também: FreeLibrary
Sintaxe:
Declare {Sub | Function} Name Lib "Libname" [Alias "Aliasname"] [Parameter] [As Type]
Parâmetros:
Name: um nome (diferente do definido na DLL) para chamar a subrotina do LibreOffice Basic.
Aliasname: Nome da subrotina conforme definido na DLL.
Libname: nome do sistema ou arquivo da DLL. Esta biblioteca é automaticamente carregada na primeira vez que a função é usada.
Argumentlist: lista dos parâmetros que representam os argumentos que são passados para o procedimento quando ele é chamado. O tipo e o número dos parâmetros dependem do procedimento executado.
Type: define o tipo de dados do valor retornado por um procedimento de função. Você poderá excluir esse parâmetro se houver um caractere de declaração de tipo incluído após o nome.

Para enviar um parâmetro para uma subrotina como um valor (em vez de como uma referência), é necessário indicar o parâmetro com a palavra-chave ByVal.

Exemplo:

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

[andreamador]

a dll esta na mesma pasta é necessario apontar em algum lugar

assim estaria certo?

Private Declare Function APCreateConnControl2 Lib “ApApi.dll” Alias “APCreateConnControl” (ByVal Server As String, ByVal Port As Integer, ByVal Environment As String, ByVal User As String, ByVal Password As String) As Integer