Declare Statement

Используется для объявления и определения подпрограммы, расположенной в файле DLL, которая должна выполняться из LibreOffice Basic.

См. также: FreeLibrary

Синтаксис


Declare {Sub | Function} Имя Lib "Имя_библиотеки" [Alias "Псевдоимя"] [Аргументы] [As Тип]

Параметры:

Имя. Имя, отличающееся от имени, определённого в библиотеке DLL, предназначенное для вызова подпрограммы из LibreOffice Basic.

Псевдоимя. Имя подпрограммы, определённое в библиотеке DLL.

Имя_библиотеки. Файловое или системное имя библиотеки 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

Пожалуйста, поддержите нас!