Public Struct AAAA
b As Byte
c As Short
i As Integer
End Struct
Public Sub Main()
Dim a As New AAAA
Dim aa As New AAAA[]
Dim i As Integer
For i = 0 To 7
aa.Push(a)
Valorizza(i, aa[i])
Print aa[i].b, ' prima lettura
Next
Print
Print
For i = 0 To 7
Print aa[i].b, ' seconda lettura
Next
End
Private Procedure Valorizza(c As Integer, s As AAAA)
s.b = 4 * c
End
Voi dite che devo preoccuparmi ? :-XBenvenuto. Rilassa le spalle, respira col naso utilizzando il diaframma....
...ma l'avevo completamente dimenticato !
Voi dite che devo preoccuparmi ?