LOTUSSCRIPT 言語

例:Declare ステートメント (外部 C 呼び出し)
例 1
Dim strOut As String
' Declare the external function StrUpr, defined in StrLib.
Declare Function StrUpr Lib "StrLib" (ByVal inVal As String) _
As String
' Call StrUpr
strOut$ = StrUpr("abc")

例 2
' Declare an exported library function (SendDLL) with an alias
' to preserve case sensitivity.
Declare Function SendDLL Lib "C:\myxports.dll" _
Alias "_SendExportedRoutine" (i1 As Long, i2 As Long)
' Call SendDLL
SendDLL(5, 10)

例 3
' Pass the string argument amIStr to the function StrFun as
' a Unicode string.The function's return value is also
' a Unicode string.
Declare Function StrFun Lib "lib.dll" _
(amIStr As Unicode String) As Unicode String

例 4
' Pass the string argument amLStr to the function StrFun as
' a LMBCS string.The function's return value is a LotusScript
' platform-native string.
Declare Function StrFun Lib "lib.dll" _
(amLStr As LMBCS String) As String

関連項目