Declare Statement

LibreOffice ཧུང་བརྒྱུད་ནས་ལག་བསྟར་བྱ་བའི་ DLL ཡིག་ཆའི་ནང་གི་ཡན་ལག་འཆར་ཅན་བྱ་རིམ་གསལ་བསྒྲགས་དང་མཚན་འགོད་བྱ།

འདི་ལ་དཔྱད་གཟིགས་མཛད་རོགས་ FreeLibrary

བརྡ་འཕྲོད་


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

ཁུགས་གྲངས་

Name ཡིས་ LibreOffice ཧུང་བརྒྱུད་ནས་ཡན་ལག་དཔེ་རིམ་སྐབས་བེད་སྤྱད་པའི་མིང་ཁོལ་སྤྱོད་བྱེད་ DLL ནར་མཚན་འཇོག་བྱས་པའི་མིང་དང་མི་འདྲ།

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

Please support us!