IBM Lotus Symphony
|
Объявляет и определяет подпрограмму в файле DLL, которую требуется выполнить из Lotus® Symphony™ Basic.
См. также FreeLibrary.
Declare {Sub | Function} имя Lib "имя-библиотеки" [Alias "псевдоним"] [параметр] [As тип]
имя: Имя, отличное от имени в DLL, для вызова подпрограммы из Lotus Symphony 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