Contents

# Declare Statement

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

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

### Syntax:

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

### Parameters:

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

Aliasname DLL ནང་མཚོན་འཇོག་བྱས་པའི་ཡན་ལག་དཔེ་རིས་གྱི་མིང་།

Libname DLL གི་ཡིག་ཆའི་མིང་ངམ་མ་ལག་མིང་། ཐེངས་དང་པོར་རྟེན་གྲངས་དེ་སྤྱོད་པའི་ཚེ་ བྱ་རིམ་མཛོད་དེ་རང་འགུལ་གྱིས་བླུགས་པར་བྱེད།

Argumentlist ཞུགས་གྲངས་རེའུ་འགོད་ ཁོལ་སྤྱོད་བྱས་པའི་བརྒྱུད་རིམ་ལ་བརྒྱུད་སྐྱེལ་བྱས་པའི་ཞུགས་གྲངས་མཚོན་པ། ཞུགས་གྲངས་ཀྱི་རིགས་དང་གྲངས་ཚད་ནི་ལག་བསྟར་བྱས་པའི་བརྒྱུད་རིམ་ལ་རག་ལས་པའོ།

Type རྟེན་གྲངས་བརྒྱུད་རིམ་ཕྱིར་ལོག་གི་ཐང་གང་རུང་གི་གཞི་གྲངས་རིགས་མཚན་འཇོག་བྱ། གལ་སྲིད་མིང་གིས་རྗེས་སུ་རིགས་ཀྱི་གསལ་བསྒྲགས་ཡིག་རྟགས་ནང་འཇུག་བྱས་ན་ཞུགས་གྲངས་དེ་མ་འདུས་ནའང་འགྲིག

གལ་ཏེ་ཞུགས་གྲངས་དེ་གྲངས་ཐང་ལ་བརྩིས་བ་ལས་འདྲེན་སྤྱོད་ལ་མི་བརྩི་བར་ཡན་ལག་དཔེ་རིས་ལ་བརྒྱུད་སྐྱེལ་བྱས་ན་ཞུགས་གྲངས་དེ་ཉིད་ངེས་པར་དུ་འགག་གནད་ཚིག་ ByVal ཡིས་གསལ་སྟོན་བྱའོ།

### Example:

    Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )
    Sub ExampleDeclare
    Dim lValue As Long
        lValue = 5000
        MyMessageBeep( lValue )
        FreeLibrary("user32.dll" )
    End Sub

## Example 2

      REM When passing arrays by reference, do not specify the type of its elements.
      Declare Function GetDiag Lib "C:\\...\\Math.dll" _
         Alias "GetDiag" ( _
         ByVal varName As String, _
         A, _
         ByVal len As Long, _
         ByVal FunctionName As String, _
         B, _
         C) As Long
    Sub MyCode
      Dim A(100) As Long, B(100) As Long, C(100) As Long ' arrays
      R = GetDiag("f", A, 100, "g", B, C)
      Print R
    End Sub

Please support us!