Declare Statement
Deklarálja és definiálja egy DLL egyik szubrutinját, amelyet végre akar hajtani a LibreOffice Basicben.
Lásd még: FreeLibrary
Szintaxis:
Declare {Sub | Function} NĂ©v Lib "LibnĂ©v" [Alias "AliasnĂ©v"] [ParamĂ©ter] [As TĂpus]
Paraméterek:
NĂ©v: A DLL-ben meghatározott nĂ©vtĹ‘l kĂĽlönbözĹ‘ nĂ©v, amellyel a szubrutint szeretnĂ© meghĂvni a LibreOffice Basicben.
Aliasnév: A szubrutin DLL-ben megadott neve.
Libnév: A DLL fájl- vagy rendszerneve. A függvény első használatakor ez a könyvtár automatikusan betöltésre kerül.
Argumentumlista: Az argumentumokat ábrázolĂł paramĂ©terek listája, amelyek meghĂváskor átadĂłdnak az eljárásnak. A paramĂ©terek tĂpusa Ă©s száma a vĂ©grehajtott eljárástĂłl fĂĽgg.
TĂpus: Megadja a fĂĽggvĂ©nyeljárás által visszaadott Ă©rtĂ©k adattĂpusát. Nem kell megadni ezt a paramĂ©tert, ha a tĂpusdeklaráciĂłs karakter meg van adva a nĂ©v után.
Ha a paramĂ©tert a szubrutinnak Ă©rtĂ©kkĂ©nt kĂvánja átadni hivatkozás helyett, akkor a paramĂ©tert a ByVal kulcsszĂłnak kell jeleznie.
PĂ©lda:
Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )
Sub ExampleDeclare
Dim lValue As Long
lValue = 5000
MyMessageBeep( lValue )
FreeLibrary("user32.dll" )
End Sub