Contents

# 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