Declare Statement

āĻāĻ•āϟāĻŋ DLL āĻĢāĻžāχāϞ⧇āϰ āĻŽāĻ§ā§āϝ⧇ āĻāĻ•āϟāĻŋ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ āĻĄāĻŋāĻ•ā§āĻ˛ā§‡ā§ŸāĻžāϰ āĻāĻŦāĻ‚ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āϝāĻž āφāĻĒāύāĻŋ LibreOffice āĻŦ⧇āϏāĻŋāĻ• āĻĨ⧇āϕ⧇ āϚāĻžāϞāĻžāϤ⧇ āϚāĻžāύāĨ¤

āφāϰāĻ“ āĻĻ⧇āϖ⧁āύ: FreeLibrary

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


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

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āύāĻžāĻŽ: DLL āĻ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŋāϤ āĻāĻ•āϟāĻŋ āĻ­āĻŋāĻ¨ā§āύ āύāĻžāĻŽ, LibreOffice āĻŦ⧇āϏāĻŋāĻ• āĻĨ⧇āϕ⧇ āϏāĻžāĻŦāϰ⧁āϟāĻŋ āĻ•āϞ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝāĨ¤

āωāĻĒāύāĻžāĻŽ: DLL āĻ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŋāϤ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ⧇āϰ āύāĻžāĻŽāĨ¤

Libname: DLL āĻāϰ āĻĢāĻžāχāϞ āĻ…āĻĨāĻŦāĻž āϏāĻŋāĻ¸ā§āĻŸā§‡āĻŽā§‡āϰ āύāĻžāĻŽāĨ¤ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻĒā§āϰāĻĨāĻŽāĻŦāĻžāϰ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāĻž āĻšāϞ⧇ āϞāĻžāχāĻŦā§āϰ⧇āϰāĻŋāϟāĻŋ āĻ¸ā§āĻŦ⧟āĻ‚āĻ•ā§āϰāĻŋ⧟āĻ­āĻžāĻŦ⧇ āϞ⧋āĻĄ āĻšā§Ÿā§‡ āĻĨāĻžāϕ⧇āĨ¤

Argumentlist: āφāϰāϗ⧁āĻŽā§‡āĻ¨ā§āϟ āωāĻĒāĻ¸ā§āĻĨāĻžāĻĒāύāĻ•āĻžāϰ⧀ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ⧇āϰ āϤāĻžāϞāĻŋāĻ•āĻž āϝāĻž āĻ•āϞ āĻ•āϰāĻžāϰ āϏāĻŽā§Ÿ āĻĒā§āϰāϏāĻŋāϜāĻžāϰ⧇ āĻĒāĻžāϏ āĻ•āϰāĻž āĻšā§ŸāĨ¤ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ⧇āϰ āϧāϰāύ āĻāĻŦāĻ‚ āϏāĻ‚āĻ–ā§āϝāĻž āϚāĻžāϞāĻžāύ⧋ āĻĒā§āϰāϏāĻŋāϜāĻžāϰ⧇āϰ āωāĻĒāϰ āύāĻŋāĻ°ā§āĻ­āϰ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϧāϰāύ: āĻŽāĻžāύ⧇āϰ āĻĄāĻžāϟāĻž āϟāĻžāχāĻĒ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āϝāĻž āĻāĻ•āϟāĻŋ āĻĢāĻžāĻ‚āĻļāύ āĻĒā§āϰāϏāĻŋāϜāĻžāϰ āĻĻā§āĻŦāĻžāϰāĻž āĻĒā§āϰāĻĻāĻžāύ āĻšā§ŸāĨ¤ āϝāĻĻāĻŋ āύāĻžāĻŽā§‡āϰ āĻĒāϰ⧇ āĻāĻ•āϟāĻŋ āϟāĻžāχāĻĒ-āĻĄāĻŋāĻ•ā§āĻ˛ā§‡ā§ŸāĻžāϰ āĻ•āϰāĻžāϰ āĻ…āĻ•ā§āώāϰ āĻ…āĻ¨ā§āϤāĻ°ā§āĻ­ā§‚āĻ•ā§āϤ āĻ•āϰāĻž āĻšā§Ÿ āϤāĻžāĻšāϞ⧇ āφāĻĒāύāĻŋ āĻāχ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰāϟāĻŋ āĻŦāĻžāĻĻ āĻĻāĻŋāϤ⧇ āĻĒāĻžāϰ⧇āύāĨ¤

āϏāϤāĻ°ā§āĻ•āϤāĻžāĻŽā§‚āϞāĻ• āφāχāĻ•āύ

āϰ⧇āĻĢāĻžāϰ⧇āĻ¨ā§āϏ⧇āϰ āĻĒāϰāĻŋāĻŦāĻ°ā§āϤ⧇ āĻāĻ•āϟāĻŋ āĻŽāĻžāύ āĻšāĻŋāϏ⧇āĻŦ⧇ āĻāĻ•āϟāĻŋ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰāϕ⧇ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ⧇ āĻĒāĻžāϏ āĻ•āϰāĻžāύ⧋āϰ āϜāĻ¨ā§āϝ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰāϟāĻŋ āĻ…āĻŦāĻļā§āϝāχ 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

Please support us!