Declare Statement

Deklaruje a definuje podprogram v DLL súbore, ktorý chcete spustiť z LibreOfficeDev Basic.

Syntax:


Declare {Sub | Function} Name Lib "Libname" [Alias "Aliasname"] [Parameter] [As Type]

Parameters:

Name: Názov, pod ktorým sa podprogram volá z LibreOfficeDev Basic, iný ako určený v DLL.

Aliasname: Názov podprogramu určený v DLL.

Libname: Súbor alebo systémový názov DLL. Táto knižnica sa automaticky načíta pri prvom použití funkcie.

Argumentlist: Zoznam parametrov predstavujúcich argumenty, ktoré sa pri volaní odovzdávajú procedúre. Typ a počet parametrov závisí na spúšťanej procedúre.

Type: Definuje dátový typ hodnoty, ktorú funkcia vracia. Tento parameter je možné vynechať, ak za menom funkcie zadáte znak typové deklarácie.

Ak chcete podprogramu odovzdať parameter hodnotou namiesto odkazom, musíte parameter určiť kľúčovým slovom ByVal .

Example:


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

Example 2


  REM When passing arrays by reference, do not specify the type of its elements.
  Declare Function GetDiag Lib "C:\\...\\Math.dll" _
     Alias "GetDiag" ( _
     ByVal varName As String, _
     A, _
     ByVal len As Long, _
     ByVal FunctionName As String, _
     B, _
     C) As Long
Sub MyCode
  Dim A(100) As Long, B(100) As Long, C(100) As Long ' arrays
  R = GetDiag("f", A, 100, "g", B, C)
  Print R
End Sub