Global keyword

рдЖрдпрд╛рдорд┐рдХрд╣рд░реВ рдЪрд▓ рд╡рд╛ рдПрд░реЗ рд╡рд┐рд╢реНрд╡рд╡реНрдпрд╛рдкреА рд╕реНрддрд░рдорд╛(рддрд┐рдиреАрд╣рд░реВ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рд╡рд╛ рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рд╣реБрдБрджреИрдирдиреН)рд╣реБрдиреНрдЫрдиреН рддреНрдпрд╕реИрд▓реЗ рдЪрд▓ рд░ рдПрд░реЗ рд╕рдмреИ рд▓рд╛рдЗрдмреНрд░реЗрд░реАрд╣рд░реВ рд░ рдореЛрдбреНрдпреБрд▓рд╣рд░реВрдорд╛ рд╣рд╛рд▓рдХреЛ рд╕рддреНрд░рдХреЛрд▓рд╛рдЧрд┐ рд╡реИрдз рд╣реБрдиреНрдЫрдиреН ред

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


рд╡рд┐рд╢реНрд╡рд╡реНрдпрд╛рдкреА VarName[(рд╕реБрд░реБ рджреЗрдЦрд┐ рдЕрдиреНрддреНрдп)] [As VarType][, VarNameреи[(рд╕реБрд░реБ рджреЗрдЦрд┐ рдЕрдиреНрддреНрдп)] [As VarType][,...]]

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


Global iGlobalVar As Integer
Sub ExampleGlobal
    iGlobalVar = iGlobalVar + 1
    MsgBox iGlobalVar
End Sub

Please support us!