Call Statement

рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рдкреНрд░рдХрд╛рд░реНрдп,рд╡рд╛ DLL рдХрд╛рд░реНрдпрд╡рд┐рдзреА рдорд╛ рдХрд╛рд░реНрдпрдХреНрд░рдордХреЛ рдирд┐рдпрдиреНрддреНрд░рдг рд╕рд╛рд░реНрдиреБрд╣реЛрд╕реН ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


[Call] рдирд╛рдо [Parameter]

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдирд╛рдо: рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдХреЛ рдирд╛рдо, рдкреНрд░рдХрд╛рд░реНрдп, рд╡рд╛ DLL, рдЬреБрди рддрдкрд╛рдИрдБрд▓реЗ рдмреЛрд▓рд╛рдЙрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рдкрд░рд╛рдорд┐рддрд┐: рдкрд░рд╛рдорд┐рддрд┐ рдХрд╛рд░реНрдпрд╡рд┐рдзреА рдкрд╛рд╕ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрдХреЛ рдкреНрд░рдХрд╛рд░реНрдп рд░ рдирдореНрдмрд░ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдорд╛ рдирд┐рд░реНрднрд░ рд╣реБрдиреНрдЫ рдЬреБрди рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рднрдЗрд░рд╣рдиреНрдЫ ред

рджреНрд░рд╖реНрдЯрд╡реНрдп рдкреНрд░рддрд┐рдорд╛

рддрдкрд╛рдИрдБрд▓реЗ рдХрд╛рд░реНрдпрд╡рд┐рдзреА рдмреЛрд▓рд╛рдЙрджрд╛ рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдРрдЪреНрдЫрд┐рдХ рд╣реБрдиреНрдЫрди ред рдпрджрд┐ рдкреНрд░рдХрд╛рд░реНрдп рдХрд╛рд░реНрдпрд╡рд┐рдзреАрдХреЛ рд░реВрдкрдорд╛ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ рдХрдердирдорд╛ рдХреЛрд╖реНрдардХрджреНрд╡рд╛рд░рд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдиреБ рдкрд░реНрджрдЫ ред рдпрджрд┐ DLLрдмреЛрд▓рд╛рдПрдХреЛ рдЫ рднрдиреЗ рд╕рдмрднрдиреНрджрд╛ рдкрд╣рд┐рд▓реЗ рдШреЛрд╖рдгрд╛-рдХрдердирдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреИ рдкрд░реНрджрдЫ ред


рдЙрджрд╛рд╣рд░рдг:


Sub ExampleCall
Dim sVar As String
    sVar = "LibreOffice"
    Call f_callFun sVar
End Sub

Sub f_callFun (sText as String)
    Msgbox sText
End Sub