Pergunte aqui
0

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

perguntadas 2014-07-25 22:39:06 +0200

imagem do gravatar de andre amador

updated 2014-07-26 12:07:36 +0200

imagem do gravatar de Olivier

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?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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

imagem do gravatar de andre amadorandre amador ( 2014-07-26 16:17:36 +0200 )editar

1 Resposta

0

respondidas 2014-07-26 12:18:36 +0200

imagem do gravatar de Olivier

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
editar assinalar como ofensivo Excluir Link mais

Comentários

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

imagem do gravatar de andre amadorandre amador ( 2014-07-28 16:42:54 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2014-07-25 22:39:06 +0200

Lidas: 281 vezes

Última atualização: Jul 26 '14