Új hozzászólás Aktív témák

• #39671 Delila_1 veterán Delila_1 #39670

  Új Válasz 2018-11-26 14:13:49 #39671

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Delila_1 #39670 üzenetére

  Egy klasszikus példa a Static tip. változó alkalmazására:

  Sub Start()
Dim i As Integer
For i = 1 To 10
Alprogram
Next
End Sub

  Sub Alprogram()
Dim Uj As Integer
Static Regi As Integer
Uj = Uj + 1
Regi = Regi + 1
MsgBox "Új érték: " & Uj & " Régi érték: " & Regi
End Sub

Új hozzászólás Aktív témák