FreeLibrary Function

Declare ๋ฌธ์— ์˜ํ•ด ๋กœ๋“œ๋œ DLL์„ ํ•ด์ œํ•ฉ๋‹ˆ๋‹ค. ํ•ด์ œ๋œ DLL์€ ์ž์ฒด ํ•จ์ˆ˜ ์ค‘ ํ•˜๋‚˜๊ฐ€ ํ˜ธ์ถœ๋  ๊ฒฝ์šฐ ์ž๋™์œผ๋กœ ๋‹ค์‹œ ๋กœ๋“œ๋ฉ๋‹ˆ๋‹ค. ์ฐธ๊ณ  ํ•ญ๋ชฉ: Declare

๊ตฌ๋ฌธ:


FreeLibrary (LibName As String)

๋งค๊ฐœ ๋ณ€์ˆ˜:

LibName: DLL์˜ ์ด๋ฆ„์„ ์ง€์ •ํ•˜๋Š” ๋ฌธ์ž์—ด ์‹์ž…๋‹ˆ๋‹ค.

์ฐธ๊ณ  ์•„์ด์ฝ˜

FreeLibrary๋Š” Basic ๋Ÿฐํƒ€์ž„ ๋„์ค‘์— ๋กœ๋“œ๋œ DLL๋งŒ ํ•ด์ œํ•  ์ˆ˜ ์žˆ์Šต๋‹ˆ๋‹ค.


Error codes:

5 ์ž˜๋ชป๋œ ํ”„๋กœ์‹œ์ € ํ˜ธ์ถœ์ž…๋‹ˆ๋‹ค.

์˜ˆ:


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!