Static Statement
Egy változĂłt vagy tömböt deklarál eljárásszinten egy szubrutinon vagy fĂĽggvĂ©nyen belĂĽl, Ăgy a változĂł vagy tömb Ă©rtĂ©kei a szubrutinbĂłl vagy fĂĽggvĂ©nybĹ‘l kilĂ©pĂ©s után is megmaradnak. A Dim utasĂtás elnevezĂ©si szokásai is Ă©rvĂ©nyesek.
A Static utasĂtás nem használhatĂł változĂłtömbök megadásához. A tömböket a rögzĂtett mĂ©retűnek kell megadni.
Szintaxis:
Static VáltozĂłnĂ©v[(kezdĂ©s To befejezĂ©s)] [As VáltozĂłtĂpus][, VáltozĂłnĂ©v2[(kezdĂ©s To befejezĂ©s)] [As VáltozĂłtĂpus][,...]]
PĂ©lda:
Sub ExampleStatic
Dim iCount As Integer, iResult As Integer
For iCount = 0 To 2
iResult = InitVar()
Next iCount
MsgBox iResult,0,"A válasz"
End Sub
' A statikus változó inicializáló függvénye
Function InitVar() As Integer
Static iInit As Integer
Const iMinimum As Integer = 40 ' a függvény minimális visszatérési értéke
If iInit = 0 Then ' inicializálva van-e
iInit = iMinimum
Else
iInit = iInit + 1
End If
InitVar = iInit
End Function