IBM Lotus Symphony
|
在要从 Lotus® Symphony™ Basic 中执行的 DLL 文件中声明和定义一个子例程。
另请参阅:FreeLibrary。
Declare {Sub | Function} Name Lib "Libname" [Alias "Aliasname"] [Parameter] [As Type]
Name:不同于 DLL 中定义的名称,以从 Lotus Symphony Basic 调用子例程。
Aliasname:在 DLL 中定义的子例程的名称。
Libname:DLL 的文件名或系统名。首次使用该函数时会自动加载该库。
Argumentlist:参数的列表,表示调用过程时传送给该过程的参数。参数的类型和数目取决于所执行的过程。
Type:定义由函数过程所返回值的数据类型。如果在名称后输入类型声明字符,那么可以不使用此参数。
![]() |
要将一个参数作为值(而不是作为引用)传递给子例程,该参数必须由关键字 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