Declare Statement

αž”αŸ’αžšαž€αžΆαžŸ αž“αž·αž„β€‹αž€αŸ†αžŽαžαŸ‹β€‹αž‘αž˜αŸ’αžšαž„αŸ‹αž€αžΆαžšβ€‹αžšαž„β€‹αž˜αž½αž™β€‹αž€αŸ’αž“αž»αž„β€‹αž―αž€αžŸαžΆαžš DLL αž˜αž½αž™β€‹αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž…αž„αŸ‹β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž–αžΈ LibreOffice BasicΒ αŸ”

αž˜αžΎαž›β€‹αž•αž„β€‹αžŠαŸ‚αžš αŸ– FreeLibrary

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–

Declare {Sub | Function} Name Lib "Libname" [Alias "Aliasname"] [Parameter] [As Type]

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

Name αŸ– αžˆαŸ’αž˜αŸ„αŸ‡β€‹αžαž»αžŸβ€‹αž‚αŸ’αž“αžΆβ€‹αž–αžΈβ€‹αžˆαŸ’αž˜αŸ„αŸ‡β€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž€αŸ†αžŽαžαŸ‹β€‹αž€αŸ’αž“αž»αž„ DLL αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž αŸ…β€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„β€‹αž–αžΈ LibreOffice 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