Declare Statement
DLL рдлрд╛рдЗрд▓рдорд╛ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рдирд┐рд╢реНрдЪрд┐рдд рд░ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрдиреБрд╣реЛрд╕реН рдЬреБрди рддрдкрд╛рдИрдБрд▓реЗ рдЖрдзрд╛рд░рднреВрддLibreOfficeрдмрд╛рдЯ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдпреЛ рдкрдирд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН: рд╕реНрд╡рддрдиреНрддреНрд░ рд▓рд╛рдЗрдмреНрд░реЗрд░реА
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
{рд╕рдм | рдкреНрд░рдХрд╛рд░реНрдп} рдирд╛рдо Lib "Libname" [рдЙрдкрдирд╛рдо"рдЙрдкрдирд╛рдо рдирд╛рдо "] [Parameter] [рдкреНрд░рдХрд╛рд░рдХреЛ рд░реВрдкрдорд╛] рдШреЛрд╖рдгрд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдирд╛рдо:рдлрд░рдХ рдирд╛рдо рдЖрдзрд╛рд░рднреВрдд LibreOfficeрдмрд╛рдЯ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдорд╛ рдмреЛрд▓рд╛рдЙрдирд▓рд╛рдИ рддреНрдпрд╕ рдкрдЫрд┐ DLLрдорд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░рд┐рдПрдХреЛ рд╣реБрдиреНрдЫ,
рдЙрдкрдирд╛рдо рдирд╛рдо: DLLрдорд╛ рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реЗрдХреЛ рдЧрд╕реНрддреЛ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдХреЛ рдирд╛рдо ред
Libname: DLL рдХреЛ рдлрд╛рдЗрд▓ рд╡рд╛ рдкреНрд░рдгрд╛рд▓реА рдирд╛рдо ред рдпреЛ рд▓рд╛рдЗрдмреНрд░реЗрд░реАрд▓реЗ рдкрд╣рд┐рд▓реЛ рдкрдЯрдХ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрдХрд╛ рдкреНрд░рдХрд╛рд░реНрдп рд╕реНрд╡рдд:рд░реВрдкрдореИ рд▓реЛрдбрдЧрд░реЗрдХреЛ рд╣реБрдиреНрдЫ ред
рддрд░реНрдХ рд╕реВрдЪреА:рдкрд░рд╛рдорд┐рддрд┐рд╣реЗрд░реВрдХреЛ рд╕реВрдЪреАрд▓реЗ рддрд░реНрдХрд╣рд░реВ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджреИ рддрд┐рдиреАрд╣рд░реВрд▓реЗ рдХрд╛рд░реНрдпрд╡рд┐рдзреАрд╣рд░реВрд▓рд╛рдИ рдкрд╛рд╕ рдЧрд░рд╛рдПрдХрд╛ рдмреЗрд▓рд╛ рдпрд╕рд▓реЗ рдмреЛрд▓рд╛рдПрдХреЛ рд╣реБрдиреНрдЫ ред рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрдХреЛ рдкреНрд░рдХрд╛рд░ рд░ рдирдореНрдмрд░ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рднрдПрдХреЛ рдХрд╛рд░реНрдпрд╡рд┐рдзреАрдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ ред
рдкреНрд░рдХрд╛рд░: рдорд╛рдирдХреЛ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ рдЬреБрди рдкреНрд░рдХрд╛рд░реНрдп рдХрд╛рд░реНрдпрд╡рд┐рдзреАрдмрд╛рдЯ рдлрд┐рд░реНрддрд╛рднрдПрдХреЛ рд╣реБрдиреНрдЫ ред рддрдкрд╛рдИрдБрд▓реЗ рдирд╛рдо рднрдиреНрджрд╛ рдкрдЫрд╛рдбрд┐ рдкреНрд░рдХрд╛рд░ рдирд┐рд╢реНрдЪрд┐рдд рдЧрд░реНрдиреЗ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рдЧрд░рд╛рдП рдЦрдгреНрдбрдорд╛ рдпреЛ рдкрд░рд╛рдорд┐рддрд┐ рд╣рдЯрд╛рдЙрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рд╕рдиреНрджрд░реНрднрдХреЛ рд╡рд┐рдкрд░рд┐рдд рдорд╛рдирдХреЛ рд░реВрдкрдорд╛ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рд▓рд╛рдИ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ рдкрд╛рд╕ рдЧрд░реНрдиреБрд╣реЛрд╕реН,рдкрд░рд╛рдорд┐рддрд┐ рдХреБрдЮреНрдЬреА рд╢рдмреНрдж ByValрджреНрд╡рд╛рд░рд╛ рджреЗрдЦрд╛рдПрдХреЛ рд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )
Sub ExampleDeclare
Dim lValue As Long
lValue = 5000
MyMessageBeep( lValue )
FreeLibrary("user32.dll" )
End Sub