Declare Statement
Declara i defineix una subrutina en un fitxer de DLL que voleu executar des del LibreOffice Basic.
Vegeu també: FreeLibrary
Sintaxi:
Declare {Sub | Function} Name Lib "Libname" [Alias "Aliasname"] [Parameter] [As Type]
Parà metres:
Nom: Un nom diferent del definit a la DLL, per cridar la subrutina del LibreOffice Basic.
Aliasname: Nom de la subrutina tal com es defineix a la DLL.
Libname: Nom del fitxer o del sistema de la DLL. Esta biblioteca es carrega automà ticament la primera vegada que s'utilitza la funció.
Argumentlist: Llista de parà metres que representen arguments que es passen al procediment quan es crida. El tipus i el nombre dels parà metres depèn del procediment executat.
Tipus: Defineix el tipus de dades del valor que es torna amb un procediment de funció. Podeu excloure este parà metre si s'introdueix un carà cter de declaració de tipus després del nom.
Per passar un parà metre a una subrutina com un valor en lloc de com a referència, el parà metre s'ha d'indicar amb la paraula clau ByVal.
Exemple:
Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )
Sub ExampleDeclare
Dim lValue As Long
lValue = 5000
MyMessageBeep( lValue )
FreeLibrary("user32.dll" )
End Sub